basis/documents/elements/elements-tests.factor

   1 ! Copyright (C) 2009 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: tools.test namespaces documents documents.elements multiline ;
   4 IN: document.elements.tests
   5
   6 <document> "doc" set
   7 "123\nabc" "doc" get set-doc-string
   8
   9 ! char-elt
  10 [ { 0 0 } ] [ { 0 0 } "doc" get char-elt prev-elt ] unit-test
  11 [ { 0 0 } ] [ { 0 1 } "doc" get char-elt prev-elt ] unit-test
  12 [ { 0 3 } ] [ { 1 0 } "doc" get char-elt prev-elt ] unit-test
  13
  14 [ { 1 3 } ] [ { 1 3 } "doc" get char-elt next-elt ] unit-test
  15 [ { 0 2 } ] [ { 0 1 } "doc" get char-elt next-elt ] unit-test
  16 [ { 1 0 } ] [ { 0 3 } "doc" get char-elt next-elt ] unit-test
  17
  18 ! word-elt
  19 <document> "doc" set
  20 "Hello world\nanother line" "doc" get set-doc-string
  21
  22 [ { 0 0 } ] [ { 0 0 } "doc" get word-elt prev-elt ] unit-test
  23 [ { 0 0 } ] [ { 0 2 } "doc" get word-elt prev-elt ] unit-test
  24 [ { 0 0 } ] [ { 0 5 } "doc" get word-elt prev-elt ] unit-test
  25 [ { 0 5 } ] [ { 0 6 } "doc" get word-elt prev-elt ] unit-test
  26 [ { 0 6 } ] [ { 0 8 } "doc" get word-elt prev-elt ] unit-test
  27 [ { 0 11 } ] [ { 1 0 } "doc" get word-elt prev-elt ] unit-test
  28
  29 [ { 0 5 } ] [ { 0 0 } "doc" get word-elt next-elt ] unit-test
  30 [ { 0 6 } ] [ { 0 5 } "doc" get word-elt next-elt ] unit-test
  31 [ { 0 11 } ] [ { 0 6 } "doc" get word-elt next-elt ] unit-test
  32 [ { 1 0 } ] [ { 0 11 } "doc" get word-elt next-elt ] unit-test
  33
  34 ! one-word-elt
  35 [ { 0 0 } ] [ { 0 0 } "doc" get one-word-elt prev-elt ] unit-test
  36 [ { 0 0 } ] [ { 0 2 } "doc" get one-word-elt prev-elt ] unit-test
  37 [ { 0 0 } ] [ { 0 5 } "doc" get one-word-elt prev-elt ] unit-test
  38 [ { 0 5 } ] [ { 0 2 } "doc" get one-word-elt next-elt ] unit-test
  39 [ { 0 5 } ] [ { 0 5 } "doc" get one-word-elt next-elt ] unit-test
  40
  41 ! line-elt
  42 <document> "doc" set
  43 "Hello\nworld, how are\nyou?" "doc" get set-doc-string
  44
  45 [ { 0 0 } ] [ { 0 3 } "doc" get line-elt prev-elt ] unit-test
  46 [ { 0 3 } ] [ { 1 3 } "doc" get line-elt prev-elt ] unit-test
  47 [ { 2 4 } ] [ { 2 1 } "doc" get line-elt next-elt ] unit-test
  48
  49 ! one-line-elt
  50 [ { 1 0 } ] [ { 1 3 } "doc" get one-line-elt prev-elt ] unit-test
  51 [ { 1 14 } ] [ { 1 3 } "doc" get one-line-elt next-elt ] unit-test
  52
  53 ! page-elt
  54 <document> "doc" set
  55 <" First line
  56 Second line
  57 Third line
  58 Fourth line
  59 Fifth line
  60 Sixth line"> "doc" get set-doc-string
  61
  62 [ { 0 0 } ] [ { 3 3 } "doc" get 4 <page-elt> prev-elt ] unit-test
  63 [ { 1 2 } ] [ { 5 2 } "doc" get 4 <page-elt> prev-elt ] unit-test
  64
  65 [ { 4 3 } ] [ { 0 3 } "doc" get 4 <page-elt> next-elt ] unit-test
  66 [ { 5 10 } ] [ { 4 2 } "doc" get 4 <page-elt> next-elt ] unit-test
  67
  68 ! doc-elt
  69 [ { 0 0 } ] [ { 3 4 } "doc" get doc-elt prev-elt ] unit-test
  70 [ { 5 10 } ] [ { 3 4 } "doc" get doc-elt next-elt ] unit-test