From a5e70d2e7874233c84178ec7165794ce18bba940 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Wed, 24 Aug 2011 23:42:02 -0700 Subject: [PATCH] strings: fix broken unit tests introduced by recent commit --- core/strings/strings-tests.factor | 18 +++++++++++++----- 1 file changed, 13 insertions(+), 5 deletions(-) diff --git a/core/strings/strings-tests.factor b/core/strings/strings-tests.factor index 869543fc0a..1a24540d66 100644 --- a/core/strings/strings-tests.factor +++ b/core/strings/strings-tests.factor @@ -64,12 +64,13 @@ unit-test "hello world" "s" set [ ] [ HEX: 1234 1 "s" get set-nth ] unit-test -[ ] [ HEX: 4321 3 "s" get set-nth ] unit-test -[ ] [ HEX: 654321 5 "s" get set-nth ] unit-test +[ HEX: 1234 ] [ 1 "s" get 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 +[ ] [ HEX: 4321 3 "s" get set-nth ] unit-test +[ HEX: 4321 ] [ 3 "s" get 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 [ clone resize-string first ] keep = ] all-integers? ] 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