Actually parse version and add a test

parrot · May 6, 2011 · 34e3c86 · 34e3c86
1 parent 2cdd5cd
commit 34e3c86
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 2 deletions.
diff --git a/src/m0/m0_assembler.pl b/src/m0/m0_assembler.pl
@@ -34,7 +34,8 @@ sub assemble {
     my $source  = slurp($file);
     $source     = remove_junk($source);
 
-    #my $version = parse_version($source);
+    my $version = parse_version($source);
+    say "Parsing M0 v$version";
 
     parse_next_chunk($source);
 }

diff --git a/t/m0/m0_assembler.t b/t/m0/m0_assembler.t
@@ -21,7 +21,7 @@ use warnings;
 use Test::More;
 use File::Spec::Functions;
 
-plan tests => 3;
+plan tests => 4;
 
 my $exefile = catfile( ".", qw/src m0 m0_assembler.pl/ );
 
@@ -31,6 +31,12 @@ output_like(
     'parse hello.m0'
 );
 
+output_like(
+    catfile(qw/t m0 hello.m0/),
+    qr/Parsing M0 v0/,
+    'detect M0 v0'
+);
+
 output_like(
     catfile(qw/t m0 hello_invalid.m0/),
     qr/Invalid M0/ms,