use Test::More;
use Test::XML::XPath;
plan tests=>1;
TODO: {
	local $TODO = 'testing todo block';
	like_xpath('<xml-bad/>',
	'/xml',
	'test test');
}

##</code><code>##

t\test.t ..
t\test.t .. 1/1 #   Failed test 'test test'
#   at C:/strawberry/perl/site/lib/Test/XML/XPath.pm line 55.
#            input: <xml-bad/>
#   does not match: /xml
# Looks like you failed 1 test of 1.
t\test.t .. Dubious, test returned 1 (wstat 256, 0x100)
Failed 1/1 subtests

Test Summary Report
-------------------
t\test.t (Wstat: 256 Tests: 1 Failed: 1)
  Failed test:  1
  Non-zero exit status: 1
Files=1, Tests=1,  1 wallclock secs ( 0.19 usr +  0.14 sys =  0.33 CPU)
Result: FAIL