strings: a few more peace-of-mind tests setting out-of-range code points in strings

db4
Joe Groff 2011-07-20 13:52:42 -07:00
parent b9be481bcd
commit 62332cfa17
1 changed files with 4 additions and 2 deletions

View File

@ -67,6 +67,10 @@ unit-test
[ ] [ HEX: 4321 3 "s" get set-nth ] unit-test
[ ] [ HEX: 654321 5 "s" get set-nth ] unit-test
[ ] [ HEX: -1 5 "s" get set-nth ] unit-test
[ ] [ HEX: 80,0000 5 "s" get set-nth ] unit-test
[ ] [ HEX: 100,0000 5 "s" get set-nth ] unit-test
[
{
CHAR: h
@ -121,5 +125,3 @@ unit-test
[ <string> clone resize-string first ] keep =
] all-integers?
] unit-test
[ HEX: 7fffff ] [ { -1 } >string first ] unit-test