basis/models/history/history-tests.factor

   1 USING: arrays generic kernel math models namespaces sequences assocs\r
   2 tools.test models.history accessors ;\r
   3 IN: models.history.tests\r
   4 \r
   5 f <history> "history" set\r
   6 \r
   7 "history" get add-history\r
   8 \r
   9 [ t ] [ "history" get back>> empty? ] unit-test\r
  10 [ t ] [ "history" get forward>> empty? ] unit-test\r
  11 \r
  12 "history" get add-history\r
  13 3 "history" get set-model\r
  14 \r
  15 [ t ] [ "history" get back>> empty? ] unit-test\r
  16 [ t ] [ "history" get forward>> empty? ] unit-test\r
  17 \r
  18 "history" get add-history\r
  19 4 "history" get set-model\r
  20 \r
  21 [ f ] [ "history" get back>> empty? ] unit-test\r
  22 [ t ] [ "history" get forward>> empty? ] unit-test\r
  23 \r
  24 "history" get go-back\r
  25 \r
  26 [ 3 ] [ "history" get value>> ] unit-test\r
  27 \r
  28 [ t ] [ "history" get back>> empty? ] unit-test\r
  29 [ f ] [ "history" get forward>> empty? ] unit-test\r
  30 \r
  31 "history" get go-forward\r
  32 \r
  33 [ 4 ] [ "history" get value>> ] unit-test\r
  34 \r
  35 [ f ] [ "history" get back>> empty? ] unit-test\r
  36 [ t ] [ "history" get forward>> empty? ] unit-test\r
  37 \r