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