steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixing more XML unit tests

db4
Daniel Ehrenberg 2008-08-29 00:30:58 +02:00
parent 48ff069ccb
commit d86a4b40a1
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/xml/tests/templating.factor
View File

@ -1,5 +1,5 @@
USING: kernel xml sequences assocs tools.test io arrays namespaces USING: kernel xml sequences assocs tools.test io arrays namespaces
xml.data xml.utilities xml.writer generic sequences.deep ; accessors xml.data xml.utilities xml.writer generic sequences.deep ;
IN: xml.tests IN: xml.tests
: sub-tag : sub-tag
@ -11,7 +11,7 @@ GENERIC: (r-ref) ( xml -- )
M: tag (r-ref) M: tag (r-ref)
sub-tag over at* [ sub-tag over at* [
ref-table get at ref-table get at
swap set-tag-children >>children drop
] [ 2drop ] if ; ] [ 2drop ] if ;
M: object (r-ref) drop ; M: object (r-ref) drop ;
@ -34,7 +34,7 @@ M: object (r-ref) drop ;
[ [
H{ H{
{ "foo" { "foo" } } { "foo" { "foo" } }
{ "bar" { "blah" T{ tag T{ name f "" "a" "" } V{ } f } } } { "bar" { "blah" T{ tag f T{ name f "" "a" "" } f f } } }
{ "baz" f } { "baz" f }
} ref-table set } ref-table set
sample-doc string>xml dup template xml>string sample-doc string>xml dup template xml>string