X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Foctets.pure.lisp;h=166d01b4bc65fc1d1f41d21b7495b51dbc75e321;hb=007bcd5aac2f3a1e714563bd39f7a2db2d0bf7c2;hp=f0d5dba1101558347a10f3cfdfc9e19bc2d88c53;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/tests/octets.pure.lisp b/tests/octets.pure.lisp
index f0d5dba..166d01b 100644
--- 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)))