remove <" from multiline tests
parent
faf54ce8e2
commit
a4524874f4
|
@ -8,17 +8,6 @@ bar
|
||||||
;
|
;
|
||||||
|
|
||||||
[ "foo\nbar\n" ] [ test-it ] unit-test
|
[ "foo\nbar\n" ] [ test-it ] unit-test
|
||||||
[ "foo\nbar\n" ] [ <" foo
|
|
||||||
bar
|
|
||||||
"> ] unit-test
|
|
||||||
|
|
||||||
[ "hello\nworld" ] [ <" hello
|
|
||||||
world"> ] unit-test
|
|
||||||
|
|
||||||
[ "hello" "world" ] [ <" hello"> <" world"> ] unit-test
|
|
||||||
|
|
||||||
[ "\nhi" ] [ <"
|
|
||||||
hi"> ] unit-test
|
|
||||||
|
|
||||||
|
|
||||||
! HEREDOC:
|
! HEREDOC:
|
||||||
|
|
|
@ -54,6 +54,7 @@ $nl
|
||||||
"one two three" " " split
|
"one two three" " " split
|
||||||
[ [XML <item><-></item> XML] ] map
|
[ [XML <item><-></item> XML] ] map
|
||||||
<XML <doc><-></doc> XML> pprint-xml"""
|
<XML <doc><-></doc> XML> pprint-xml"""
|
||||||
|
|
||||||
"""<?xml version="1.0" encoding="UTF-8"?>
|
"""<?xml version="1.0" encoding="UTF-8"?>
|
||||||
<doc>
|
<doc>
|
||||||
<item>
|
<item>
|
||||||
|
@ -83,6 +84,7 @@ $nl
|
||||||
string=<-string->
|
string=<-string->
|
||||||
word=<-word-> />
|
word=<-word-> />
|
||||||
XML> pprint-xml ]"""
|
XML> pprint-xml ]"""
|
||||||
|
|
||||||
"""<?xml version="1.0" encoding="UTF-8"?>
|
"""<?xml version="1.0" encoding="UTF-8"?>
|
||||||
<x number="3" url="http://factorcode.org/" string="hello" word="drop"/>""" }
|
<x number="3" url="http://factorcode.org/" string="hello" word="drop"/>""" }
|
||||||
"XML interpolation can also be used, in conjunction with " { $vocab-link "inverse" } " in pattern matching. For example:"
|
"XML interpolation can also be used, in conjunction with " { $vocab-link "inverse" } " in pattern matching. For example:"
|
||||||
|
@ -94,7 +96,8 @@ $nl
|
||||||
{ [ [XML <b val='yes'/> XML] ] [ "yes" ] }
|
{ [ [XML <b val='yes'/> XML] ] [ "yes" ] }
|
||||||
{ [ [XML <b val=<->/> XML] ] [ "no" prepend ] }
|
{ [ [XML <b val=<->/> XML] ] [ "no" prepend ] }
|
||||||
} switch ;
|
} switch ;
|
||||||
[XML <a>pple</a> XML] dispatch write""" "apple" } ;
|
[XML <a>pple</a> XML] dispatch write"""
|
||||||
|
"apple" } ;
|
||||||
|
|
||||||
HELP: XML-NS:
|
HELP: XML-NS:
|
||||||
{ $syntax "XML-NS: name http://url" }
|
{ $syntax "XML-NS: name http://url" }
|
||||||
|
|
Loading…
Reference in New Issue