More unit tests for wrap

2009-07-02 21:12:38 -05:00 · 2009-07-02 21:12:38 -05:00 · 3abcebc36c
parent 38f520bcdb
commit 3abcebc36c
1 changed files with 3 additions and 0 deletions
--- 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