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

new accessor

db4
Doug Coleman 2008-09-01 21:36:34 -05:00
parent 38b8686161
commit 4f08a2caf6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/xml/tests/test.factor
View File

@ -21,7 +21,7 @@ SYMBOL: xml-file
[ t ] [ xml-file get children>> second contained-tag? ] unit-test [ t ] [ xml-file get children>> second contained-tag? ] unit-test
[ "<a></b>" string>xml ] [ xml-parse-error? ] must-fail-with [ "<a></b>" string>xml ] [ xml-parse-error? ] must-fail-with
[ T{ comment f "This is where the fun begins!" } ] [ [ T{ comment f "This is where the fun begins!" } ] [
xml-file get xml-before [ comment? ] find nip xml-file get before>> [ comment? ] find nip
] unit-test ] unit-test
[ "xsl stylesheet=\"that-one.xsl\"" ] [ [ "xsl stylesheet=\"that-one.xsl\"" ] [
xml-file get after>> [ instruction? ] find nip text>> xml-file get after>> [ instruction? ] find nip text>>