1.0.27.30: minor octets.lisp cleanup

[sbcl.git] / tests / octets.pure.lisp

diff --git a/tests/octets.pure.lisp b/tests/octets.pure.lisp
index f0d5dba..166d01b 100644 (file)
--- a/tests/octets.pure.lisp
+++ b/tests/octets.pure.lisp
@@ -219,3 +219,7 @@
   )
 
 )
+
+;; regression test: STRING->UTF8 didn't properly handle a non-zero
+;; START argument.
+(assert (equalp #(50) (string-to-octets "42" :start 1 :external-format :utf-8)))