XXX: Testing

• My test re-purposing tool

• #!/usr/bin/perl -p -w use strict;

• BEGIN { # add the shebang line, use strict and the CVS id line print qq{#!/usr/bin/perl -w\nuse strict;\n# \$Id\n}; }

• s{^use XML::XPath;}{use XML::Twig::XPath;};

• s{^my \$xp = XML::XPath->new\(ioref => \*DATA\);} {my \$t= XML::Twig::XPath->new->parse( \\*DATA);};

• s{\$xp->}{\$t->}g;

• s{^ok\(\$xp\);}{ok(\$t);};