basis/inspector/inspector-tests.factor

   1 USING: kernel tools.test math namespaces prettyprint sequences
   2 inspector io.streams.string ;
   3
   4 [ 1 2 3 ] describe
   5 f describe
   6 \ + describe
   7 H{ } describe
   8 H{ } describe
   9
  10 { "fixnum\n\n" } [ [ 3 describe ] with-string-writer ] unit-test
  11
  12 { } [ H{ } clone inspect ] unit-test
  13
  14 { } [ "a" "b" &add ] unit-test
  15
  16 { H{ { "b" "a" } } } [ me get ] unit-test
  17
  18 { } [ "x" 0 &put ] unit-test
  19
  20 { H{ { "b" "x" } } } [ me get ] unit-test
  21
  22 { } [ 0 &at ] unit-test
  23
  24 { "x" } [ me get ] unit-test
  25
  26 { } [ &back ] unit-test
  27
  28 { } [ "y" 0 &rename ] unit-test
  29
  30 { H{ { "y" "x" } } } [ me get ] unit-test
  31
  32 { } [ 0 &delete ] unit-test
  33
  34 { H{ } } [ me get ] unit-test