121 lines
2.9 KiB
Factor
121 lines
2.9 KiB
Factor
USING: continuations kernel math math.order namespaces make
|
|
strings strings.private sbufs tools.test sequences vectors
|
|
arrays memory prettyprint io.streams.null ;
|
|
IN: strings.tests
|
|
|
|
[ CHAR: b ] [ 1 >bignum "abc" nth ] unit-test
|
|
|
|
[ ] [ 10 [ [ -1000000 <sbuf> ] ignore-errors ] times ] unit-test
|
|
|
|
[ "abc" ] [ [ "a" "b" "c" ] [ [ % ] each ] "" make ] unit-test
|
|
|
|
[ "abc" ] [ "ab" "c" append ] unit-test
|
|
[ "abc" ] [ "a" "b" "c" 3append ] unit-test
|
|
|
|
[ 3 ] [ "a" "hola" start ] unit-test
|
|
[ f ] [ "x" "hola" start ] unit-test
|
|
[ 0 ] [ "" "a" start ] unit-test
|
|
[ 0 ] [ "" "" start ] unit-test
|
|
[ 0 ] [ "hola" "hola" start ] unit-test
|
|
[ 1 ] [ "ol" "hola" start ] unit-test
|
|
[ f ] [ "amigo" "hola" start ] unit-test
|
|
[ f ] [ "holaa" "hola" start ] unit-test
|
|
|
|
[ "Beginning" ] [ "Beginning and end" 9 head ] unit-test
|
|
|
|
[ f ] [ CHAR: I "team" member? ] unit-test
|
|
[ t ] [ "ea" "team" subseq? ] unit-test
|
|
[ f ] [ "actore" "Factor" subseq? ] unit-test
|
|
|
|
[ "end" ] [ "Beginning and end" 14 tail ] unit-test
|
|
|
|
[ t ] [ "abc" "abd" before? ] unit-test
|
|
[ t ] [ "z" "abd" after? ] unit-test
|
|
[ "abc" ] [ "abc" "abd" min ] unit-test
|
|
[ "z" ] [ "z" "abd" max ] unit-test
|
|
|
|
[ 0 10 "hello" subseq ] must-fail
|
|
|
|
[ "Replacing+spaces+with+plus" ]
|
|
[
|
|
"Replacing spaces with plus"
|
|
[ dup CHAR: \s = [ drop CHAR: + ] when ] map
|
|
]
|
|
unit-test
|
|
|
|
[ "05" ] [ "5" 2 CHAR: 0 pad-left ] unit-test
|
|
[ "666" ] [ "666" 2 CHAR: 0 pad-left ] unit-test
|
|
|
|
[ 1 "" nth ] must-fail
|
|
[ -6 "hello" nth ] must-fail
|
|
|
|
[ t ] [ "hello world" dup >vector >string = ] unit-test
|
|
|
|
[ "ab" ] [ 2 "abc" resize-string ] unit-test
|
|
[ "abc\0\0\0" ] [ 6 "abc" resize-string ] unit-test
|
|
|
|
[ "\u001234b" ] [ 2 "\u001234bc" resize-string ] unit-test
|
|
[ "\u001234bc\0\0\0" ] [ 6 "\u001234bc" resize-string ] unit-test
|
|
|
|
! Random tester found this
|
|
[ 2 -7 resize-string ] [ { "kernel-error" 3 12 -7 } = ] must-fail-with
|
|
|
|
! Make sure 24-bit strings work
|
|
"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
|
|
|
|
[
|
|
{
|
|
CHAR: h
|
|
HEX: 1234
|
|
CHAR: l
|
|
HEX: 4321
|
|
CHAR: o
|
|
HEX: 654321
|
|
CHAR: w
|
|
CHAR: o
|
|
CHAR: r
|
|
CHAR: l
|
|
CHAR: d
|
|
}
|
|
] [
|
|
"s" get >array
|
|
] unit-test
|
|
|
|
! Make sure we clear aux vector when storing octets
|
|
[ "\u123456hi" ] [ "ih\u123456" clone dup reverse-here ] unit-test
|
|
|
|
! Make sure aux vector is not shared
|
|
[ "\udeadbe" ] [
|
|
"\udeadbe" clone
|
|
CHAR: \u123456 over clone set-first
|
|
] unit-test
|
|
|
|
! Regressions
|
|
[ ] [
|
|
[
|
|
4 [
|
|
100 [ "obdurak" clone ] replicate
|
|
gc
|
|
dup [
|
|
1234 0 rot set-string-nth
|
|
] each
|
|
1000 [
|
|
1000 f <array> drop
|
|
] times
|
|
.
|
|
] times
|
|
] with-null-stream
|
|
] unit-test
|
|
|
|
[ t ] [
|
|
10000 [
|
|
drop
|
|
300 100 CHAR: \u123456
|
|
[ <string> clone resize-string first ] keep =
|
|
] all?
|
|
] unit-test
|