extra/models/history/history-tests.factor

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