X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Foctets.pure.lisp;fp=tests%2Foctets.pure.lisp;h=166d01b4bc65fc1d1f41d21b7495b51dbc75e321;hb=d8ad375f27c0006f8896047686a065b8243c7e0f;hp=f0d5dba1101558347a10f3cfdfc9e19bc2d88c53;hpb=30b24d582dd8620b91c798e38a8aa9a6b999b4be;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)))