Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re^3: TODO blocks for Test::XML, and in general

by MidLifeXis (Monsignor)
on Sep 04, 2012 at 18:18 UTC ( #991674=note: print w/ replies, xml ) Need Help??


in reply to Re^2: TODO blocks for Test::XML, and in general
in thread TODO blocks for Test::XML, and in general

Stupid question, but does my snippet above emit a TODO test?

I also rebuilt the like_xpath routine after removing the lines making use of the XPath parser (see below). What output do you get from it?

use strict; use warnings; use Carp; use Test::More; use Test::Builder; sub like_xpath { my ($input, $statement, $test_name) = @_; die "usage: like_xpath(xml,xpath[,name])" unless $input && $statement; my $Test = Test::Builder->new; my $ok = eval { # Hardcode a failure return 0; }; if ($@) { $Test->ok( 0, $test_name ); $Test->diag( " Parse Failure: $@" ); return 0; } else { ok( $ok, $test_name ); unless ( $ok ) { diag ( " input: $input" ); diag ( " does not match: $statement" ); } return $ok; } } plan tests=>1; TODO: { local $TODO = 'testing todo block'; like_xpath('<xml-bad/>', '/xml', 'test test'); }

--MidLifeXis


Comment on Re^3: TODO blocks for Test::XML, and in general
Select or Download Code
Re^4: TODO blocks for Test::XML, and in general
by nglenn (Beadle) on Sep 04, 2012 at 19:49 UTC
    Your snippet and your edited version both result in TODO tests, and a passing grade for the test suite. Don't know why...

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://991674]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (5)
As of 2015-07-05 06:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (60 votes), past polls