remove <" from multiline tests

db4
Doug Coleman 2009-09-23 16:24:32 -05:00
parent faf54ce8e2
commit a4524874f4
2 changed files with 4 additions and 12 deletions

View File

@ -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:

View File

@ -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" }