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
   4 USING: accessors documents io.styles kernel namespaces
   5 sequences tools.test ui.tools.listener.history ;
   6
   7 IN: ui.tools.listener.history.tests
   8
   9 [ ] [ <document> "d" set ] unit-test
  10 [ ] [ "d" get <history> "h" set ] unit-test
  11
  12 [ ] [ "1" "d" get set-doc-string ] unit-test
  13 [ T{ input f "1" } ] [ "h" get history-add ] unit-test
  14
  15 [ ] [ "2" "d" get set-doc-string ] unit-test
  16 [ T{ input f "2" } ] [ "h" get history-add ] unit-test
  17
  18 [ ] [ "3" "d" get set-doc-string ] unit-test
  19 [ T{ input f "3" } ] [ "h" get history-add ] unit-test
  20
  21 [ ] [ "" "d" get set-doc-string ] unit-test
  22
  23 [ ] [ "h" get history-recall-previous ] unit-test
  24 [ "3" ] [ "d" get doc-string ] unit-test
  25
  26 [ ] [ "h" get history-recall-previous ] unit-test
  27 [ "2" ] [ "d" get doc-string ] unit-test
  28
  29 [ ] [ "h" get history-recall-previous ] unit-test
  30 [ "1" ] [ "d" get doc-string ] unit-test
  31
  32 [ ] [ "h" get history-recall-previous ] unit-test
  33 [ "1" ] [ "d" get doc-string ] unit-test
  34
  35 [ ] [ "h" get history-recall-next ] unit-test
  36 [ "2" ] [ "d" get doc-string ] unit-test
  37
  38 [ ] [ "22" "d" get set-doc-string ] unit-test
  39
  40 [ ] [ "h" get history-recall-next ] unit-test
  41 [ "3" ] [ "d" get doc-string ] unit-test
  42
  43 [ ] [ "h" get history-recall-previous ] unit-test
  44 [ "22" ] [ "d" get doc-string ] unit-test
  45
  46 [ ] [ "h" get history-recall-previous ] unit-test
  47 [ "1" ] [ "d" get doc-string ] unit-test
  48
  49 [ ] [ "222" "d" get set-doc-string ] unit-test
  50 [ T{ input f "222" } ] [ "h" get history-add ] unit-test
  51
  52 [ ] [ "h" get history-recall-previous ] unit-test
  53 [ ] [ "h" get history-recall-previous ] unit-test
  54 [ ] [ "h" get history-recall-previous ] unit-test
  55
  56 [ "22" ] [ "d" get doc-string ] unit-test
  57
  58 [ ] [ <document> "d" set ] unit-test
  59 [ ] [ "d" get <history> "h" set ] unit-test
  60
  61 [ ] [ "aaa" "d" get set-doc-string ] unit-test
  62 [ T{ input f "aaa" } ] [ "h" get history-add ] unit-test
  63
  64 [ ] [ "" "d" get set-doc-string ] unit-test
  65 [ T{ input f "" } ] [ "h" get history-add ] unit-test
  66 [ T{ input f "" } ] [ "h" get history-add ] unit-test
  67 [ ] [ "   " "d" get set-doc-string ] unit-test
  68 [ ] [ "h" get history-recall-previous ] unit-test
  69
  70 [ 1 ] [
  71     "abc" <document> [ set-doc-string ] [ <history> ] bi
  72     [ history-add drop ]
  73     [ history-add drop ]
  74     [ elements>> length ] tri
  75 ] unit-test