--- trunk/t/3-normalize-xml.t 2005/07/24 15:03:11 31 +++ trunk/t/3-normalize-xml.t 2005/11/15 14:31:12 62 @@ -5,6 +5,7 @@ use Cwd qw/abs_path/; use blib; use strict; +use Data::Dumper; BEGIN { use_ok( 'WebPAC::Normalize::XML' ); @@ -21,7 +22,7 @@ throws_ok { $n->open() } qr/tag/, "open without tag"; throws_ok { $n->open( tag => 'isis' ) } qr/xml_file/, "open without xml_file"; -throws_ok { $n->open( tag => 'isis', xml_file => 'foo' ) } qr/file.*doesn't exist/, "open with invalid xml_file"; +throws_ok { $n->open( tag => 'isis', xml_file => '/foo/bar/baz' ) } qr/file.*doesn't exist/, "open with invalid xml_file"; ok( $n->open( tag => 'isis', xml_file => "$abs_path../conf/normalize/isis.xml", @@ -35,3 +36,4 @@ ok(my @ds = $n->data_structure( $rec ), "data_structure"); +#diag Dumper(@ds);