basis/inspector/inspector-tests.factor

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