[perl-xml-cvs] CVS: xml-simple/t 1_XMLin.t,1.26,1.27

[Grant M. <gr...@us...>]

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