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