factor/library/test/vectors.factor

88 lines
2.3 KiB
Factor
Raw Normal View History

2005-04-02 02:52:27 -05:00
USING: sequences ;
2004-07-16 02:26:21 -04:00
USE: lists
USE: kernel
2004-08-26 22:21:17 -04:00
USE: math
USE: random
2004-07-16 02:26:21 -04:00
USE: test
USE: vectors
2004-11-08 22:36:51 -05:00
USE: strings
USE: namespaces
USE: kernel-internals
2004-07-16 02:26:21 -04:00
2004-12-24 02:52:02 -05:00
[ [ t f t ] vector-length ] unit-test-fails
[ 3 ] [ { t f t } vector-length ] unit-test
[ -3 { } vector-nth ] unit-test-fails
[ 3 { } vector-nth ] unit-test-fails
[ 3 #{ 1 2 }# vector-nth ] unit-test-fails
2004-12-24 02:52:02 -05:00
[ "hey" [ 1 2 ] set-vector-length ] unit-test-fails
[ "hey" { 1 2 } set-vector-length ] unit-test-fails
[ 3 ] [ 3 0 <vector> [ set-vector-length ] keep vector-length ] unit-test
[ "yo" ] [
"yo" 4 1 <vector> [ set-vector-nth ] keep 4 swap vector-nth
] unit-test
[ 5 list>vector ] unit-test-fails
[ { } ] [ [ ] list>vector ] unit-test
[ { 1 2 } ] [ [ 1 2 ] list>vector ] unit-test
[ t ] [
100 empty-vector [ drop 0 100 random-int ] vector-map
2005-04-02 02:39:33 -05:00
dup >list list>vector =
] unit-test
[ f ] [ { } { 1 2 3 } = ] unit-test
[ f ] [ { 1 2 } { 1 2 3 } = ] unit-test
[ f ] [ [ 1 2 ] { 1 2 3 } = ] unit-test
[ f ] [ { 1 2 } [ 1 2 3 ] = ] unit-test
2005-01-28 23:55:22 -05:00
[ [ 1 4 9 16 ] ]
[
[ 1 2 3 4 ]
2005-04-02 02:39:33 -05:00
list>vector [ dup * ] vector-map >list
2005-01-28 23:55:22 -05:00
] unit-test
2004-09-26 21:34:25 -04:00
[ t ] [ { } hashcode { } hashcode = ] unit-test
[ t ] [ { 1 2 3 } hashcode { 1 2 3 } hashcode = ] unit-test
[ t ] [ { 1 { 2 } 3 } hashcode { 1 { 2 } 3 } hashcode = ] unit-test
[ t ] [ { } hashcode { } hashcode = ] unit-test
[ { 1 2 3 4 5 6 } ]
[ { 1 2 3 } { 4 5 6 } vector-append ] unit-test
2004-11-08 22:36:51 -05:00
[ { "" "a" "aa" "aaa" } ]
[ 4 [ CHAR: a fill ] vector-project ]
unit-test
2004-12-02 22:44:36 -05:00
[ [ ] ] [ 0 { } vector-tail ] unit-test
[ [ ] ] [ 2 { 1 2 } vector-tail ] unit-test
[ [ 3 4 ] ] [ 2 { 1 2 3 4 } vector-tail ] unit-test
[ 2 [ ] vector-tail ] unit-test-fails
2004-12-02 22:44:36 -05:00
[ [ 3 ] ] [ 1 { 1 2 3 } vector-tail* ] unit-test
0 <vector> "funny-stack" set
[ ] [ { 1 5 } "funny-stack" get vector-push ] unit-test
[ ] [ { 2 3 } "funny-stack" get vector-push ] unit-test
[ { 2 3 } ] [ "funny-stack" get vector-pop ] unit-test
[ { 1 5 } ] [ "funny-stack" get vector-peek ] unit-test
[ { 1 5 } ] [ "funny-stack" get vector-pop ] unit-test
[ "funny-stack" get vector-pop ] unit-test-fails
[ "funny-stack" get vector-pop ] unit-test-fails
[ ] [ "funky" "funny-stack" get vector-push ] unit-test
[ "funky" ] [ "funny-stack" get vector-pop ] unit-test
[ t ] [
2005-04-02 02:52:27 -05:00
{ 1 2 3 4 } dup vector-array length
>r clone vector-array length r>
=
] unit-test
2005-01-28 23:55:22 -05:00
[ f ] [
{ 1 2 3 4 } dup clone
swap vector-array swap vector-array eq?
] unit-test