42 lines
558 B
Factor
42 lines
558 B
Factor
IN: scratchpad
|
|
USE: arithmetic
|
|
USE: combinators
|
|
USE: compiler
|
|
USE: hashtables
|
|
USE: kernel
|
|
USE: lists
|
|
USE: logic
|
|
USE: namespaces
|
|
USE: stack
|
|
USE: stdio
|
|
USE: strings
|
|
USE: test
|
|
|
|
"Checking hashtables" print
|
|
|
|
16 <hashtable> "testhash" set
|
|
|
|
: silly-key/value dup sq swap ;
|
|
|
|
1000 [ silly-key/value "testhash" get set-hash ] times*
|
|
|
|
[ f ]
|
|
[ 1000 count ]
|
|
[ [ silly-key/value "testhash" get hash = not ] subset ]
|
|
test-word
|
|
|
|
[ t ]
|
|
[ "testhash" get ]
|
|
[ hashtable? ]
|
|
test-word
|
|
|
|
[ f ]
|
|
[ [ 1 2 | 3 ] ]
|
|
[ hashtable? ]
|
|
test-word
|
|
|
|
[ f ]
|
|
[ namestack* ]
|
|
[ hashtable? ]
|
|
test-word
|