CPAN Upload: S/SB/SBURKE/Test-1.21.tar.gz

[p5sagit/p5-mst-13.2.git] / lib / Test / t / mix.t

diff --git a/lib/Test/t/mix.t b/lib/Test/t/mix.t
index a746ba6..5298338 100644 (file)
--- a/lib/Test/t/mix.t
+++ b/lib/Test/t/mix.t
@@ -46,5 +46,13 @@ ok 4 # skip
 EXPECT
 
 
+sub commentless {
+  my $in = $_[0];
+  $in =~ s/^#[^\n]*\n//mg;
+  $in =~ s/\n#[^\n]*$//mg;
+  return $in;
+}
+
+
 print "1..1\n";
-ok( $out, $expect );
+ok( commentless($out), commentless($expect) );