view release on metacpan or  search on metacpan

t/element_text.t  view on Meta::CPAN

# contributed by Michel Rodriguez
use strict;

print "1..2\n";

use XML::Checker::Parser;

$/=''; # records are now separated by an empty line

# first parse, a valid document
my $doc1=<DATA>;
my $p= new XML::Checker::Parser;
eval
  { local $XML::Checker::FAIL= \&my_fail;
    $p->parse( $doc1);
  };

if( $@) { print "not ok 1: # $@\n"; }

t/empty_elt.t  view on Meta::CPAN

# contributed by Philippe Verdret
use strict;
use lib '../lib';

print "1..2\n";

use XML::Checker::Parser;

$/ = ''; # records are now separated by an empty line

my $Test = 0;

# first parse, a valid document
$Test++;
my $doc1=<DATA>;
my $p= new XML::Checker::Parser;
eval
  { local $XML::Checker::FAIL= \&my_fail;
    $p->parse( $doc1);