[svn:parrot] r48731 - trunk/t/run

[cotto at svn.parrot.org]

Author: cotto
Date: Tue Aug 31 04:23:57 2010
New Revision: 48731
URL: https://trac.parrot.org/parrot/changeset/48731

Log:
add a test to ensure that VERSION match the version of the built parrot for TT #1721

Modified:
   trunk/t/run/options.t

Modified: trunk/t/run/options.t
==============================================================================
--- trunk/t/run/options.t	Mon Aug 30 23:06:29 2010	(r48730)
+++ trunk/t/run/options.t	Tue Aug 31 04:23:57 2010	(r48731)
@@ -20,7 +20,7 @@
 use warnings;
 use lib qw( lib . ../lib ../../lib );
 
-use Test::More tests => 27;
+use Test::More tests => 28;
 use Parrot::Config;
 use File::Temp 0.13 qw/tempfile/;
 use File::Spec;
@@ -119,6 +119,14 @@
     return $filename;
 }
 
+#make sure that VERSION matches the output of --version
+open(my $version_fh, "<", "VERSION") or die "couldn't open VERSION: $!";
+my $file_version = <$version_fh>;
+chomp($file_version);
+close($version_fh);
+like( qx{$PARROT --version}, qr/.*${file_version}.*/, "VERSION matches --version" );
+
+
 # Local Variables:
 #   mode: cperl
 #   cperl-indent-level: 4