2009-01-28 01:30:30 -05:00
|
|
|
! Copyright (C) 2009 Slava Pestov.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2009-02-16 02:03:34 -05:00
|
|
|
USING: tools.test namespaces documents documents.elements multiline ;
|
2009-01-28 01:30:30 -05:00
|
|
|
IN: document.elements.tests
|
|
|
|
|
|
|
|
|
|
<document> "doc" set
|
2009-02-16 02:03:34 -05:00
|
|
|
"123\nabc" "doc" get set-doc-string
|
|
|
|
|
|
|
|
|
|
! char-elt
|
|
|
|
|
[ { 0 0 } ] [ { 0 0 } "doc" get char-elt prev-elt ] unit-test
|
|
|
|
|
[ { 0 0 } ] [ { 0 1 } "doc" get char-elt prev-elt ] unit-test
|
|
|
|
|
[ { 0 3 } ] [ { 1 0 } "doc" get char-elt prev-elt ] unit-test
|
|
|
|
|
|
|
|
|
|
[ { 1 3 } ] [ { 1 3 } "doc" get char-elt next-elt ] unit-test
|
|
|
|
|
[ { 0 2 } ] [ { 0 1 } "doc" get char-elt next-elt ] unit-test
|
|
|
|
|
[ { 1 0 } ] [ { 0 3 } "doc" get char-elt next-elt ] unit-test
|
|
|
|
|
|
|
|
|
|
! word-elt
|
|
|
|
|
<document> "doc" set
|
|
|
|
|
"Hello world\nanother line" "doc" get set-doc-string
|
|
|
|
|
|
|
|
|
|
[ { 0 0 } ] [ { 0 0 } "doc" get word-elt prev-elt ] unit-test
|
|
|
|
|
[ { 0 0 } ] [ { 0 2 } "doc" get word-elt prev-elt ] unit-test
|
|
|
|
|
[ { 0 0 } ] [ { 0 5 } "doc" get word-elt prev-elt ] unit-test
|
|
|
|
|
[ { 0 5 } ] [ { 0 6 } "doc" get word-elt prev-elt ] unit-test
|
|
|
|
|
[ { 0 6 } ] [ { 0 8 } "doc" get word-elt prev-elt ] unit-test
|
|
|
|
|
[ { 0 11 } ] [ { 1 0 } "doc" get word-elt prev-elt ] unit-test
|
|
|
|
|
|
|
|
|
|
[ { 0 5 } ] [ { 0 0 } "doc" get word-elt next-elt ] unit-test
|
|
|
|
|
[ { 0 6 } ] [ { 0 5 } "doc" get word-elt next-elt ] unit-test
|
|
|
|
|
[ { 0 11 } ] [ { 0 6 } "doc" get word-elt next-elt ] unit-test
|
|
|
|
|
[ { 1 0 } ] [ { 0 11 } "doc" get word-elt next-elt ] unit-test
|
|
|
|
|
|
|
|
|
|
! one-word-elt
|
2009-01-28 01:30:30 -05:00
|
|
|
[ { 0 0 } ] [ { 0 0 } "doc" get one-word-elt prev-elt ] unit-test
|
|
|
|
|
[ { 0 0 } ] [ { 0 2 } "doc" get one-word-elt prev-elt ] unit-test
|
|
|
|
|
[ { 0 0 } ] [ { 0 5 } "doc" get one-word-elt prev-elt ] unit-test
|
|
|
|
|
[ { 0 5 } ] [ { 0 2 } "doc" get one-word-elt next-elt ] unit-test
|
|
|
|
|
[ { 0 5 } ] [ { 0 5 } "doc" get one-word-elt next-elt ] unit-test
|
|
|
|
|
|
2009-02-16 02:03:34 -05:00
|
|
|
! line-elt
|
2009-01-28 01:30:30 -05:00
|
|
|
<document> "doc" set
|
|
|
|
|
"Hello\nworld, how are\nyou?" "doc" get set-doc-string
|
|
|
|
|
|
|
|
|
|
[ { 0 0 } ] [ { 0 3 } "doc" get line-elt prev-elt ] unit-test
|
|
|
|
|
[ { 0 3 } ] [ { 1 3 } "doc" get line-elt prev-elt ] unit-test
|
|
|
|
|
[ { 2 4 } ] [ { 2 1 } "doc" get line-elt next-elt ] unit-test
|
2009-02-16 02:03:34 -05:00
|
|
|
|
|
|
|
|
! one-line-elt
|
|
|
|
|
[ { 1 0 } ] [ { 1 3 } "doc" get one-line-elt prev-elt ] unit-test
|
|
|
|
|
[ { 1 14 } ] [ { 1 3 } "doc" get one-line-elt next-elt ] unit-test
|
|
|
|
|
|
|
|
|
|
! page-elt
|
|
|
|
|
<document> "doc" set
|
|
|
|
|
<" First line
|
|
|
|
|
Second line
|
|
|
|
|
Third line
|
|
|
|
|
Fourth line
|
|
|
|
|
Fifth line
|
|
|
|
|
Sixth line"> "doc" get set-doc-string
|
|
|
|
|
|
|
|
|
|
[ { 0 0 } ] [ { 3 3 } "doc" get 4 <page-elt> prev-elt ] unit-test
|
|
|
|
|
[ { 1 2 } ] [ { 5 2 } "doc" get 4 <page-elt> prev-elt ] unit-test
|
|
|
|
|
|
|
|
|
|
[ { 4 3 } ] [ { 0 3 } "doc" get 4 <page-elt> next-elt ] unit-test
|
|
|
|
|
[ { 5 10 } ] [ { 4 2 } "doc" get 4 <page-elt> next-elt ] unit-test
|
|
|
|
|
|
|
|
|
|
! doc-elt
|
|
|
|
|
[ { 0 0 } ] [ { 3 4 } "doc" get doc-elt prev-elt ] unit-test
|
|
|
|
|
[ { 5 10 } ] [ { 3 4 } "doc" get doc-elt next-elt ] unit-test
|
