2007-09-20 18:09:08 -04:00
|
|
|
USING: kernel tools.test math namespaces prettyprint
|
|
|
|
|
sequences inspector io.streams.string ;
|
2008-03-01 17:00:45 -05:00
|
|
|
IN: inspector.tests
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
[ 1 2 3 ] describe
|
|
|
|
|
f describe
|
|
|
|
|
\ + describe
|
|
|
|
|
H{ } describe
|
|
|
|
|
H{ } describe
|
|
|
|
|
|
2009-03-11 18:33:54 -04:00
|
|
|
[ "fixnum instance\n\n" ] [ [ 3 describe ] with-string-writer ] unit-test
|
2008-06-27 01:48:05 -04:00
|
|
|
|
|
|
|
|
[ ] [ H{ } clone inspect ] unit-test
|
|
|
|
|
|
|
|
|
|
[ ] [ "a" "b" &add ] unit-test
|
|
|
|
|
|
|
|
|
|
[ H{ { "b" "a" } } ] [ me get ] unit-test
|
|
|
|
|
|
|
|
|
|
[ ] [ "x" 0 &put ] unit-test
|
|
|
|
|
|
|
|
|
|
[ H{ { "b" "x" } } ] [ me get ] unit-test
|
|
|
|
|
|
|
|
|
|
[ ] [ 0 &at ] unit-test
|
|
|
|
|
|
|
|
|
|
[ "x" ] [ me get ] unit-test
|
|
|
|
|
|
|
|
|
|
[ ] [ &back ] unit-test
|
|
|
|
|
|
|
|
|
|
[ ] [ "y" 0 &rename ] unit-test
|
|
|
|
|
|
|
|
|
|
[ H{ { "y" "x" } } ] [ me get ] unit-test
|
|
|
|
|
|
|
|
|
|
[ ] [ 0 &delete ] unit-test
|
|
|
|
|
|
|
|
|
|
[ H{ } ] [ me get ] unit-test
|
