Test output for sxml-modifications [ok]

Testing time: 0s

/home/mario/local/chicken-4.8.0.3/bin/csi -script run.scm < /dev/null

-- testing sxml-modifications ------------------------------------------------
((sxml:modify `("/stanza/line[1]" ,modif:delete)) vmdf:tree2) ........ [ PASS]
((sxml:modify `("/stanza" ,modif:delete-undeep)) vmdf:tree2) ......... [ PASS]
((sxml:modify `("/stanza" ,(modif:rename 'para))) vmdf:tree2) ........ [ PASS]
((sxml:modify `("/stanza[2]" ,(modif:insert-into (lambda (conte... ... [ PASS]
((sxml:modify `("/stanza[2]/line[last()]" ,(modif:insert-follow... ... [ PASS]
((sxml:modify `("@poet" ,modif:delete)) vmdf:tree2) .................. [ PASS]
((sxml:modify `("/stanza[2]" ,modif:delete) `("preceding-siblin... ... [ PASS]
((sxml:modify `("/stanza/line[1]" ,modif:delete) `("/stanza" ,(... ... [ PASS]
((sxml:modify `("//@*" ,modif:delete)) vmdf:tree1) ................... [ PASS]
((sxml:modify `("/head/title/text()" ,modif:delete) `("/head/ti... ... [ PASS]
((sxml:modify `("//text()" ,modif:delete-undeep)) vmdf:tree1) ........ [ PASS]
((sxml:modify `("//*" ,modif:delete-undeep)) ((sxml:modify `("/... ... [ PASS]
((sxml:modify '("/stanza/line[1]" delete)) vmdf:tree2) ............... [ PASS]
((sxml:modify '("/stanza" delete-undeep)) vmdf:tree2) ................ [ PASS]
((sxml:modify '("/stanza" rename para)) vmdf:tree2) .................. [ PASS]
((sxml:modify '("/stanza[2]" insert-into (line "Whatever"))) vm... ... [ PASS]
((sxml:modify '("/stanza[2]/line[last()]" insert-following (lin... ... [ PASS]
((sxml:modify '("@poet" delete)) vmdf:tree2) ......................... [ PASS]
((sxml:modify '("/stanza[2]" move-preceding "preceding-sibling:... ... [ PASS]
((sxml:modify '("/stanza/line[1]" delete) '("/stanza" rename pa... ... [ PASS]
((sxml:modify '("//@*" delete)) vmdf:tree1) .......................... [ PASS]
((sxml:modify '("/head/title/text()" delete) '("/head/title" in... ... [ PASS]
((sxml:modify '("//text()" delete-undeep)) vmdf:tree1) ............... [ PASS]
((sxml:modify '("//*" delete-undeep)) ((sxml:modify '("//@*" de... ... [ PASS]
24 tests completed in 0.003 seconds.
24 out of 24 (100%) tests passed.
-- done testing sxml-modifications -------------------------------------------