Fix path with no slash and bad dependency

ingydotnet · Oct 23, 2013 · a6b40b2 · a6b40b2
1 parent b9566b5
commit a6b40b2
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 4 deletions.
diff --git a/lib/TestML/Runtime.pm b/lib/TestML/Runtime.pm
@@ -219,9 +219,9 @@ sub compile_testml {
     die "'testml' document required but not found"
         unless $self->testml;
     if ($self->testml !~ /\n/) {
-        $self->testml =~ /(.*)\/(.*)/ or die;
+        $self->testml =~ /(?:(.*)\/)?(.*)/ or die;
         $self->{testml} = $2;
-        $self->{base} = $self->base . '/' . $1;
+        $self->{base} .= '/' . $1 if $1;
         $self->{testml} = $self->read_testml_file($self->testml);
     }
     $self->{function} = $self->compiler->new->compile($self->testml)

diff --git a/t/compile.t b/t/compile.t
@@ -1,7 +1,6 @@
 # BEGIN { $Pegex::Parser::Debug = 1 }
-# use Test::Differences; *is = \&eq_or_diff;
+use Test::Differences; *is = \&eq_or_diff;
 use Test::More;
-use Test::Diff;
 use strict;
 
 BEGIN {