IN: documents.tests USING: documents namespaces tools.test ; ! Tests [ { 10 4 } ] [ { "a" } { 10 3 } text+loc ] unit-test [ { 10 4 } ] [ { "a" } { 10 3 } text+loc ] unit-test [ { 2 9 } ] [ "doc" set "Hello world,\nhow are you?\nMore text" "doc" get set-doc-string { 10 0 } "doc" get validate-loc ] unit-test [ { 1 12 } ] [ "doc" set "Hello world,\nhow are you?\nMore text" "doc" get set-doc-string { 1 20 } "doc" get validate-loc ] unit-test [ " world,\nhow are you?\nMore" ] [ "doc" set "Hello world,\nhow are you?\nMore text" "doc" get set-doc-string { 0 5 } { 2 4 } "doc" get doc-range ] unit-test [ "Hello world,\nhow you?\nMore text" ] [ "doc" set "Hello world,\nhow are you?\nMore text" "doc" get set-doc-string { 1 3 } { 1 7 } "doc" get remove-doc-range "doc" get doc-string ] unit-test [ "Hello world,\nhow text" ] [ "doc" set "Hello world,\nhow are you?\nMore text" "doc" get set-doc-string { 1 3 } { 2 4 } "doc" get remove-doc-range "doc" get doc-string ] unit-test [ "Hello world,\nhow you?\nMore text" ] [ "doc" set "Hello world,\nhow are you?\nMore text" "doc" get set-doc-string "" { 1 3 } { 1 7 } "doc" get set-doc-range "doc" get doc-string ] unit-test [ "Hello world,\nhow text" ] [ "doc" set "Hello world,\nhow are you?\nMore text" "doc" get set-doc-string "" { 1 3 } { 2 4 } "doc" get set-doc-range "doc" get doc-string ] unit-test "doc" set "Hello world" "doc" get set-doc-string [ { 0 0 } ] [ { 0 0 } "doc" get T{ one-word-elt } prev-elt ] unit-test [ { 0 0 } ] [ { 0 2 } "doc" get T{ one-word-elt } prev-elt ] unit-test [ { 0 0 } ] [ { 0 5 } "doc" get T{ one-word-elt } prev-elt ] unit-test [ { 0 5 } ] [ { 0 2 } "doc" get T{ one-word-elt } next-elt ] unit-test [ { 0 5 } ] [ { 0 5 } "doc" get T{ one-word-elt } next-elt ] unit-test "doc" set "Hello\nworld, how are\nyou?" "doc" get set-doc-string [ { 2 4 } ] [ "doc" get doc-end ] unit-test [ { 0 0 } ] [ { 0 3 } "doc" get T{ line-elt } prev-elt ] unit-test [ { 0 3 } ] [ { 1 3 } "doc" get T{ line-elt } prev-elt ] unit-test [ { 2 4 } ] [ { 2 1 } "doc" get T{ line-elt } next-elt ] unit-test