steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

strings: fix broken unit tests introduced by recent commit

db4
Slava Pestov 2011-08-24 23:42:02 -07:00
parent b584b9466c
commit a5e70d2e78
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
core/strings/strings-tests.factor
View File

@ -64,12 +64,13 @@ unit-test
"hello world" "s" set "hello world" "s" set
[ ] [ HEX: 1234 1 "s" get set-nth ] unit-test [ ] [ HEX: 1234 1 "s" get set-nth ] unit-test
[ ] [ HEX: 4321 3 "s" get set-nth ] unit-test [ HEX: 1234 ] [ 1 "s" get nth ] unit-test
[ ] [ HEX: 654321 5 "s" get set-nth ] unit-test
[ ] [ HEX: -1 5 "s" get set-nth ] unit-test [ ] [ HEX: 4321 3 "s" get set-nth ] unit-test
[ ] [ HEX: 80,0000 5 "s" get set-nth ] unit-test [ HEX: 4321 ] [ 3 "s" get nth ] unit-test
[ ] [ HEX: 100,0000 5 "s" get set-nth ] unit-test
[ ] [ HEX: 654321 5 "s" get set-nth ] unit-test
[ HEX: 654321 ] [ 5 "s" get nth ] unit-test
[ [
{ {
@ -125,3 +126,10 @@ unit-test
[ <string> clone resize-string first ] keep = [ <string> clone resize-string first ] keep =
] all-integers? ] all-integers?
] unit-test ] unit-test
"X" "s" set
[ ] [ HEX: 100,0000 0 "s" get set-nth ] unit-test
[ 0 ] [ 0 "s" get nth ] unit-test
[ ] [ -1 0 "s" get set-nth ] unit-test
[ HEX: 7f ] [ 0 "s" get nth ] unit-test