remove <" from multiline tests
parent
faf54ce8e2
commit
a4524874f4
|
@ -8,17 +8,6 @@ bar
|
|||
;
|
||||
|
||||
[ "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:
|
||||
|
|
|
@ -54,6 +54,7 @@ $nl
|
|||
"one two three" " " split
|
||||
[ [XML <item><-></item> XML] ] map
|
||||
<XML <doc><-></doc> XML> pprint-xml"""
|
||||
|
||||
"""<?xml version="1.0" encoding="UTF-8"?>
|
||||
<doc>
|
||||
<item>
|
||||
|
@ -83,6 +84,7 @@ $nl
|
|||
string=<-string->
|
||||
word=<-word-> />
|
||||
XML> pprint-xml ]"""
|
||||
|
||||
"""<?xml version="1.0" encoding="UTF-8"?>
|
||||
<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:"
|
||||
|
@ -94,7 +96,8 @@ $nl
|
|||
{ [ [XML <b val='yes'/> XML] ] [ "yes" ] }
|
||||
{ [ [XML <b val=<->/> XML] ] [ "no" prepend ] }
|
||||
} switch ;
|
||||
[XML <a>pple</a> XML] dispatch write""" "apple" } ;
|
||||
[XML <a>pple</a> XML] dispatch write"""
|
||||
"apple" } ;
|
||||
|
||||
HELP: XML-NS:
|
||||
{ $syntax "XML-NS: name http://url" }
|
||||
|
|
Loading…
Reference in New Issue