72 lines
1.8 KiB
Factor
72 lines
1.8 KiB
Factor
IN: scratchpad
|
|
USE: arithmetic
|
|
USE: combinators
|
|
USE: compiler
|
|
USE: errors
|
|
USE: inspector
|
|
USE: kernel
|
|
USE: lists
|
|
USE: logic
|
|
USE: namespaces
|
|
USE: random
|
|
USE: stack
|
|
USE: stdio
|
|
USE: strings
|
|
USE: test
|
|
USE: words
|
|
USE: vocabularies
|
|
|
|
"Miscellaneous tests." print
|
|
|
|
[ [ 2 1 0 0 ] ] [ [ = ] ] [ balance>list ] test-word
|
|
|
|
[ [ 1 1 0 0 ] ] [ [ class-of ] ] [ balance>list ] test-word
|
|
|
|
[ "java.lang.Integer" ] [ 5 ] [ class-of ] test-word
|
|
[ "java.lang.Double" ] [ 5.0 ] [ class-of ] test-word
|
|
|
|
[ [ 1 1 0 0 ] ] [ [ clone ] ] [ balance>list ] test-word
|
|
|
|
[ [ 1 1 0 0 ] ] [ [ clone-array ] ] [ balance>list ] test-word
|
|
|
|
[ [ 1 1 0 0 ] ] [ [ comment? ] ] [ balance>list ] test-word
|
|
|
|
: doc-test ( -- ) ;
|
|
|
|
[ t ] [ "doc-test" ] [ intern worddef>list car comment? ] test-word
|
|
|
|
[ [ 1 1 0 0 ] ] [ [ deep-clone-array ] ] [ balance>list ] test-word
|
|
|
|
[ [ 2 1 0 0 ] ] [ [ is ] ] [ balance>list ] test-word
|
|
[ t ] [ "java.lang.Integer" ] [ 0 100 random-int swap is ] test-word
|
|
[ t ] [ "java.lang.Object" ] [ [ 5 ] swap is ] test-word
|
|
[ f ] [ "java.lang.Object" ] [ f swap is ] test-word
|
|
|
|
[ [ 5 1 0 0 ] ] [ [ >=< ] ] [ balance>list ] test-word
|
|
|
|
[ [ 1 0 0 0 ] ] [ [ exit* ] ] [ balance>list ] test-word
|
|
|
|
[ [ 0 1 0 0 ] ] [ [ millis ] ] [ balance>list ] test-word
|
|
|
|
[ [ 1 1 0 0 ] ] [ [ system-property ] ] [ balance>list ] test-word
|
|
|
|
: test-last ( -- )
|
|
nop ;
|
|
word >str "last-word-test" set
|
|
|
|
[ "test-last" ] [ ] [ "last-word-test" get ] test-word
|
|
[ f ] [ 5 ] [ compound? ] test-word
|
|
[ f ] [ 5 ] [ compiled? ] test-word
|
|
[ f ] [ 5 ] [ shuffle? ] test-word
|
|
|
|
[ t ] [ ] [
|
|
[ "global" "vocabularies" "test" "test-word" ] object-path
|
|
"test-word" [ "test" ] search eq?
|
|
] test-word
|
|
|
|
! Make sure callstack only clones callframes, and not
|
|
! everything on the callstack.
|
|
[ ] [ ] [ f unit dup dup rplacd >r callstack r> 2drop ] test-word
|
|
|
|
"Miscellaneous passed." print
|