From 3abcebc36cdd0c09bc7cae8222a9b32a8f11ab82 Mon Sep 17 00:00:00 2001 From: Daniel Ehrenberg Date: Thu, 2 Jul 2009 21:12:38 -0500 Subject: [PATCH] More unit tests for wrap --- basis/wrap/strings/strings-tests.factor | 3 +++ 1 file changed, 3 insertions(+) diff --git a/basis/wrap/strings/strings-tests.factor b/basis/wrap/strings/strings-tests.factor index 07f42caae3..cf01499bcb 100644 --- a/basis/wrap/strings/strings-tests.factor +++ b/basis/wrap/strings/strings-tests.factor @@ -39,3 +39,6 @@ word wrap."> [ "aaa bb\nccccccc\nddddddd" ] [ "aaa bb ccccccc ddddddd" 6 wrap-string ] unit-test [ "a b c d e f\ng h" ] [ "a b c d e f g h" 11 wrap-string ] unit-test + +[ "" ] [ "" 10 wrap-string ] unit-test +[ "Hello" ] [ "\nHello\n" 10 wrap-string ] unit-test