basis/ui/tools/listener/history/history-tests.factor

   1 ! Copyright (C) 2009 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: documents namespaces tools.test io.styles
   4 ui.tools.listener.history kernel ;
   5 IN: ui.tools.listener.history.tests
   6
   7 [ ] [ <document> "d" set ] unit-test
   8 [ ] [ "d" get <history> "h" set ] unit-test
   9
  10 [ ] [ "1" "d" get set-doc-string ] unit-test
  11 [ T{ input f "1" } ] [ "h" get history-add ] unit-test
  12
  13 [ ] [ "2" "d" get set-doc-string ] unit-test
  14 [ T{ input f "2" } ] [ "h" get history-add ] unit-test
  15
  16 [ ] [ "3" "d" get set-doc-string ] unit-test
  17 [ T{ input f "3" } ] [ "h" get history-add ] unit-test
  18
  19 [ ] [ "" "d" get set-doc-string ] unit-test
  20
  21 [ ] [ "h" get history-recall-previous ] unit-test
  22 [ "3" ] [ "d" get doc-string ] unit-test
  23
  24 [ ] [ "h" get history-recall-previous ] unit-test
  25 [ "2" ] [ "d" get doc-string ] unit-test
  26
  27 [ ] [ "h" get history-recall-previous ] unit-test
  28 [ "1" ] [ "d" get doc-string ] unit-test
  29
  30 [ ] [ "h" get history-recall-previous ] unit-test
  31 [ "1" ] [ "d" get doc-string ] unit-test
  32
  33 [ ] [ "h" get history-recall-next ] unit-test
  34 [ "2" ] [ "d" get doc-string ] unit-test
  35
  36 [ ] [ "22" "d" get set-doc-string ] unit-test
  37
  38 [ ] [ "h" get history-recall-next ] unit-test
  39 [ "3" ] [ "d" get doc-string ] unit-test
  40
  41 [ ] [ "h" get history-recall-previous ] unit-test
  42 [ "22" ] [ "d" get doc-string ] unit-test
  43
  44 [ ] [ "h" get history-recall-previous ] unit-test
  45 [ "1" ] [ "d" get doc-string ] unit-test
  46
  47 [ ] [ "222" "d" get set-doc-string ] unit-test
  48 [ T{ input f "222" } ] [ "h" get history-add ] unit-test
  49
  50 [ ] [ "h" get history-recall-previous ] unit-test
  51 [ ] [ "h" get history-recall-previous ] unit-test
  52 [ ] [ "h" get history-recall-previous ] unit-test
  53
  54 [ "22" ] [ "d" get doc-string ] unit-test