From: Grant M. <gr...@us...> - 2007-08-02 10:35:44
|
Update of /cvsroot/perl-xml/xml-simple/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4860/t Modified Files: 1_XMLin.t Log Message: - don't hard code expected version number Index: 1_XMLin.t =================================================================== RCS file: /cvsroot/perl-xml/xml-simple/t/1_XMLin.t,v retrieving revision 1.26 retrieving revision 1.27 diff -u -d -r1.26 -r1.27 --- 1_XMLin.t 6 Feb 2007 09:09:50 -0000 1.26 +++ 1_XMLin.t 2 Aug 2007 10:35:40 -0000 1.27 @@ -25,9 +25,15 @@ $@ = ''; eval "use XML::Simple;"; is($@, '', 'Module compiled OK'); -my $version = '2.16'; +my $version = 'unknown'; +if(open my $chg, '<Changes') { + while(<$chg>) { + last if ($version) = $_ =~ /^([\d\._]+) /; + } + close($chg); +} unless($XML::Simple::VERSION eq $version) { - diag("Warning: XML::Simple::VERSION = $XML::Simple::VERSION (expected $version)"); + diag("Warning: XML::Simple::VERSION = $XML::Simple::VERSION (Changes version: $version)"); } |