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

   1 ! Copyright (C) 2009 Slava Pestov.
   2 ! See https://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 { } [ <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
  55
  56 { } [ <document> "d" set ] unit-test
  57 { } [ "d" get <history> "h" set ] unit-test
  58
  59 { } [ "aaa" "d" get set-doc-string ] unit-test
  60 { T{ input f "aaa" } } [ "h" get history-add ] unit-test
  61
  62 { } [ "" "d" get set-doc-string ] unit-test
  63 { T{ input f "" } } [ "h" get history-add ] unit-test
  64 { T{ input f "" } } [ "h" get history-add ] unit-test
  65 { } [ "   " "d" get set-doc-string ] unit-test
  66 { } [ "h" get history-recall-previous ] unit-test
  67
  68 { 1 } [
  69     "abc" <document> [ set-doc-string ] [ <history> ] bi
  70     [ history-add drop ]
  71     [ history-add drop ]
  72     [ elements>> length ] tri
  73 ] unit-test