basis/documents/documents-tests.factor

   1 IN: documents.tests
   2 USING: documents namespaces tools.test ;
   3
   4 ! Tests
   5
   6 [ { 10 4 } ] [ { "a" } { 10 3 } text+loc ] unit-test
   7 [ { 10 4 } ] [ { "a" } { 10 3 } text+loc ] unit-test
   8
   9 [ { 2 9 } ] [
  10     <document> "doc" set
  11     "Hello world,\nhow are you?\nMore text"
  12     "doc" get set-doc-string
  13     { 10 0 } "doc" get validate-loc
  14 ] unit-test
  15
  16 [ { 1 12 } ] [
  17     <document> "doc" set
  18     "Hello world,\nhow are you?\nMore text"
  19     "doc" get set-doc-string
  20     { 1 20 } "doc" get validate-loc
  21 ] unit-test
  22
  23 [ " world,\nhow are you?\nMore" ] [
  24     <document> "doc" set
  25     "Hello world,\nhow are you?\nMore text"
  26     "doc" get set-doc-string
  27     { 0 5 } { 2 4 } "doc" get doc-range
  28 ] unit-test
  29
  30 [ "Hello world,\nhow you?\nMore text" ] [
  31     <document> "doc" set
  32     "Hello world,\nhow are you?\nMore text"
  33     "doc" get set-doc-string
  34     { 1 3 } { 1 7 } "doc" get remove-doc-range
  35     "doc" get doc-string
  36 ] unit-test
  37
  38 [ "Hello world,\nhow text" ] [
  39     <document> "doc" set
  40     "Hello world,\nhow are you?\nMore text"
  41     "doc" get set-doc-string
  42     { 1 3 } { 2 4 } "doc" get remove-doc-range
  43     "doc" get doc-string
  44 ] unit-test
  45
  46 [ "Hello world,\nhow you?\nMore text" ] [
  47     <document> "doc" set
  48     "Hello world,\nhow are you?\nMore text"
  49     "doc" get set-doc-string
  50     "" { 1 3 } { 1 7 } "doc" get set-doc-range
  51     "doc" get doc-string
  52 ] unit-test
  53
  54 [ "Hello world,\nhow text" ] [
  55     <document> "doc" set
  56     "Hello world,\nhow are you?\nMore text"
  57     "doc" get set-doc-string
  58     "" { 1 3 } { 2 4 } "doc" get set-doc-range
  59     "doc" get doc-string
  60 ] unit-test
  61
  62 <document> "doc" set
  63 "Hello world" "doc" get set-doc-string
  64 [ { 0 0 } ] [ { 0 0 } "doc" get T{ one-word-elt } prev-elt ] unit-test
  65 [ { 0 0 } ] [ { 0 2 } "doc" get T{ one-word-elt } prev-elt ] unit-test
  66 [ { 0 0 } ] [ { 0 5 } "doc" get T{ one-word-elt } prev-elt ] unit-test
  67 [ { 0 5 } ] [ { 0 2 } "doc" get T{ one-word-elt } next-elt ] unit-test
  68 [ { 0 5 } ] [ { 0 5 } "doc" get T{ one-word-elt } next-elt ] unit-test
  69
  70 <document> "doc" set
  71 "Hello\nworld, how are\nyou?" "doc" get set-doc-string
  72
  73 [ { 2 4 } ] [ "doc" get doc-end ] unit-test
  74
  75 [ { 0 0 } ] [ { 0 3 } "doc" get T{ line-elt } prev-elt ] unit-test
  76 [ { 0 3 } ] [ { 1 3 } "doc" get T{ line-elt } prev-elt ] unit-test
  77 [ { 2 4 } ] [ { 2 1 } "doc" get T{ line-elt } next-elt ] unit-test