basis/escape-strings/escape-strings-tests.factor

   1 ! Copyright (C) 2017 John Benediktsson, Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: tools.test escape-strings ;
   4 IN: escape-strings.tests
   5
   6 { "[[asdf]]" } [ "asdf" escape-string ] unit-test
   7 { "[[[[]]" } [ "[[" escape-string ] unit-test
   8 { "[=[]]]=]" } [ "]]" escape-string ] unit-test
   9
  10 { "[===[]]]==][=[=]=]]===]" } [ "]]]==][=[=]=]" escape-string ] unit-test
  11 { "[==[[=[=]=]]==]" } [ "[=[=]=]" escape-string ] unit-test
  12 { "[[[a[]]" } [ "[a[" escape-string ] unit-test
  13
  14 { "[=[ab]]=]" } [ "ab]" escape-string ] unit-test
  15
  16 { "[==[[=[abcd]]=]]==]" } [ { "abcd]" } escape-strings ] unit-test
  17 { "[==[[=[abcd]]]=]]==]" } [ { "abcd]]" } escape-strings ] unit-test
  18
  19 { "[==[]]ab]=]==]" } [ "]]ab]=" escape-string ] unit-test
  20 { "[=[]]ab]==]=]" } [ "]]ab]==" escape-string ] unit-test
  21 { "[=[]]ab]===]=]" } [ "]]ab]===" escape-string ] unit-test
  22
  23 { "[[]ab]=]]" } [ "]ab]=" escape-string ] unit-test
  24 { "[[]ab]==]]" } [ "]ab]==" escape-string ] unit-test
  25 { "[[]ab]===]]" } [ "]ab]===" escape-string ] unit-test
  26
  27 { "[[]]" } [ "" number-escape-string ] unit-test
  28 { "[0[]]0]" } [ "]" number-escape-string ] unit-test
  29 { "[[]0]]" } [ "]0" number-escape-string ] unit-test
  30 { "[1[]0]]1]" } [ "]0]" number-escape-string ] unit-test
  31 { "[0[]1]]0]" } [ "]1]" number-escape-string ] unit-test
  32 { "[2[]0]1]]2]" } [ "]0]1]" number-escape-string ] unit-test
  33 { "[00[]0]1]2]3]4]5]6]7]8]9]]00]" } [ "]0]1]2]3]4]5]6]7]8]9]" number-escape-string ] unit-test
  34 { "[01[]0]1]2]3]4]5]6]7]8]9]00]]01]" } [ "]0]1]2]3]4]5]6]7]8]9]00]" number-escape-string ] unit-test