1 ! Copyright (C) 2009 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: tools.test namespaces documents documents.elements ;
4 IN: document.elements.tests
8 "123\nabcé" doc get set-doc-string
11 { { 0 0 } } [ { 0 0 } doc get char-elt prev-elt ] unit-test
12 { { 0 0 } } [ { 0 1 } doc get char-elt prev-elt ] unit-test
13 { { 0 3 } } [ { 1 0 } doc get char-elt prev-elt ] unit-test
14 { { 1 3 } } [ { 1 5 } doc get char-elt prev-elt ] unit-test
16 { { 1 5 } } [ { 1 5 } doc get char-elt next-elt ] unit-test
17 { { 0 2 } } [ { 0 1 } doc get char-elt next-elt ] unit-test
18 { { 1 0 } } [ { 0 3 } doc get char-elt next-elt ] unit-test
19 { { 1 5 } } [ { 1 3 } doc get char-elt next-elt ] unit-test
23 "Hello world\nanother line" doc get set-doc-string
25 { { 0 0 } } [ { 0 0 } doc get word-elt prev-elt ] unit-test
26 { { 0 0 } } [ { 0 2 } doc get word-elt prev-elt ] unit-test
27 { { 0 0 } } [ { 0 5 } doc get word-elt prev-elt ] unit-test
28 { { 0 5 } } [ { 0 6 } doc get word-elt prev-elt ] unit-test
29 { { 0 6 } } [ { 0 8 } doc get word-elt prev-elt ] unit-test
30 { { 0 11 } } [ { 1 0 } doc get word-elt prev-elt ] unit-test
32 { { 0 5 } } [ { 0 0 } doc get word-elt next-elt ] unit-test
33 { { 0 6 } } [ { 0 5 } doc get word-elt next-elt ] unit-test
34 { { 0 11 } } [ { 0 6 } doc get word-elt next-elt ] unit-test
35 { { 1 0 } } [ { 0 11 } doc get word-elt next-elt ] unit-test
39 { { 0 0 } } [ { 0 0 } doc get one-word-elt prev-elt ] unit-test
40 { { 0 0 } } [ { 0 2 } doc get one-word-elt prev-elt ] unit-test
41 { { 0 0 } } [ { 0 5 } doc get one-word-elt prev-elt ] unit-test
42 { { 0 5 } } [ { 0 2 } doc get one-word-elt next-elt ] unit-test
43 { { 0 5 } } [ { 0 5 } doc get one-word-elt next-elt ] unit-test
47 "Hello\nworld, how are\nyou?" doc get set-doc-string
49 { { 0 0 } } [ { 0 3 } doc get line-elt prev-elt ] unit-test
50 { { 0 3 } } [ { 1 3 } doc get line-elt prev-elt ] unit-test
51 { { 2 4 } } [ { 2 1 } doc get line-elt next-elt ] unit-test
54 { { 1 0 } } [ { 1 3 } doc get one-line-elt prev-elt ] unit-test
55 { { 1 14 } } [ { 1 3 } doc get one-line-elt next-elt ] unit-test
64 Sixth line" doc get set-doc-string
66 { { 0 0 } } [ { 3 3 } doc get 4 <page-elt> prev-elt ] unit-test
67 { { 1 2 } } [ { 5 2 } doc get 4 <page-elt> prev-elt ] unit-test
69 { { 4 3 } } [ { 0 3 } doc get 4 <page-elt> next-elt ] unit-test
70 { { 5 10 } } [ { 4 2 } doc get 4 <page-elt> next-elt ] unit-test
73 { { 0 0 } } [ { 3 4 } doc get doc-elt prev-elt ] unit-test
74 { { 5 10 } } [ { 3 4 } doc get doc-elt next-elt ] unit-test