Permalink
Browse files

add selftest for the combine option

  • Loading branch information...
1 parent 86eea36 commit 5af6d87633c709eb318dbe008ff10fb1d58d79fe @szabgab committed Apr 9, 2009
View
@@ -0,0 +1 @@
+Some warning
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+print "Please type in your name\n";
+my $name = <STDIN>;
+chomp $name;
+print "Hello $name\n";
+
+warn "Some warning\n";
+exit(10);
+
@@ -0,0 +1 @@
+10
@@ -0,0 +1 @@
+Foo
@@ -0,0 +1,3 @@
+Some warning
+Please type in your name
+Hello Foo
@@ -0,0 +1,10 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+print "Please type in your name\n";
+my $name = <STDIN>;
+chomp $name;
+print "Hello $name\n";
+
+warn "Some warning\n";
@@ -0,0 +1 @@
+Foo
@@ -0,0 +1,3 @@
+Some warning
+Please type in your name
+Hello Foo
View
@@ -0,0 +1,9 @@
+use strict;
+use warnings;
+
+use Test::More;
+use Test::Snapshots;
+
+Test::Snapshots::combine(1);
+test_all_snapshots("eg/samedir_combine");
+

0 comments on commit 5af6d87

Please sign in to comment.