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
6 { "[[asdf]]" } [ "asdf" escape-string ] unit-test
7 { "[[[[]]" } [ "[[" escape-string ] unit-test
8 { "[=[]]]=]" } [ "]]" escape-string ] unit-test
10 { "[===[]]]==][=[=]=]]===]" } [ "]]]==][=[=]=]" escape-string ] unit-test
11 { "[==[[=[=]=]]==]" } [ "[=[=]=]" escape-string ] unit-test
12 { "[[[a[]]" } [ "[a[" escape-string ] unit-test
14 { "[=[ab]]=]" } [ "ab]" escape-string ] unit-test
16 { "[==[[=[abcd]]=]]==]" } [ { "abcd]" } escape-strings ] unit-test
17 { "[==[[=[abcd]]]=]]==]" } [ { "abcd]]" } escape-strings ] unit-test
19 { "[==[]]ab]=]==]" } [ "]]ab]=" escape-string ] unit-test
20 { "[=[]]ab]==]=]" } [ "]]ab]==" escape-string ] unit-test
21 { "[=[]]ab]===]=]" } [ "]]ab]===" escape-string ] unit-test
23 { "[[]ab]=]]" } [ "]ab]=" escape-string ] unit-test
24 { "[[]ab]==]]" } [ "]ab]==" escape-string ] unit-test
25 { "[[]ab]===]]" } [ "]ab]===" escape-string ] unit-test