Permalink
Browse files

add test case with multiple files

  • Loading branch information...
1 parent 2b89df5 commit 1a372fce292c71bcf5ebd8e8e600af110cb4c345 @szabgab committed Apr 10, 2009
View
@@ -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 @@
+Some warning
@@ -0,0 +1 @@
+Foo
@@ -0,0 +1,2 @@
+Please type in your name
+Hello Foo
@@ -0,0 +1 @@
+Some warning
@@ -0,0 +1 @@
+Foo
@@ -0,0 +1,2 @@
+Please type in your name
+Hello Foo
View
@@ -0,0 +1,10 @@
+use strict;
+use warnings;
+
+use Test::More;
+use Test::Snapshots;
+
+Test::Snapshots::multiple(1);
+
+test_all_snapshots("eg/multiple");
+

0 comments on commit 1a372fc

Please sign in to comment.