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)");
}
|
