From 6c633925df4759e66222ff74a9b23141839b0661 Mon Sep 17 00:00:00 2001 From: Dan Ballard Date: Fri, 13 Apr 2018 23:45:26 -0700 Subject: [PATCH] test buffer didn't save for last commit -_-; including updated tests for 0 repeat fix --- tests.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/tests.lisp b/tests.lisp index 12c187b..a8393b0 100644 --- a/tests.lisp +++ b/tests.lisp @@ -117,7 +117,8 @@ (string= (pack "NX2" #x41424344) "AB") ;delete chars (string= (pack "c.c" 65 0 66 ) "B") ; truncate (string= (pack "c.c" 65 2 66) (concatenate 'string "A" (string #\null) "B")) ; null pad - (string= (pack "c@0c" 65 66) "B") ;truncate + (string= (pack "cc0c" 65 66 67) "AB") ; 0 repeat consumes nothing + (string= (pack "c@0c" 65 66) "AB") ;truncate (string= (pack "c@2c" 65 66) (concatenate 'string "A" (string #\null) "B")) ; null pad ))