Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

add more tests, now fo the set_accessories_dir option

  • Loading branch information...
commit 155948e621707fa53f1239854ac850605f1d67ec 1 parent 9dd8b18
@szabgab authored
View
1  eg/otherdir_accessories/other.pl.err
@@ -0,0 +1 @@
+Some warning
View
1  eg/otherdir_accessories/other.pl.exit
@@ -0,0 +1 @@
+10
View
1  eg/otherdir_accessories/other.pl.in
@@ -0,0 +1 @@
+Foo
View
2  eg/otherdir_accessories/other.pl.out
@@ -0,0 +1,2 @@
+Please type in your name
+Hello Foo
View
1  eg/otherdir_accessories/script.pl.err
@@ -0,0 +1 @@
+Some warning
View
1  eg/otherdir_accessories/script.pl.in
@@ -0,0 +1 @@
+Foo
View
2  eg/otherdir_accessories/script.pl.out
@@ -0,0 +1,2 @@
+Please type in your name
+Hello Foo
View
12 eg/otherdir_code/other.pl
@@ -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);
+
View
10 eg/otherdir_code/script.pl
@@ -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";
View
10 t/07-otherdir.t
@@ -0,0 +1,10 @@
+use strict;
+use warnings;
+
+use Test::More;
+use Test::Snapshots;
+
+#Test::Snapshots::combine(1);
+Test::Snapshots::set_accessories_dir('eg/otherdir_accessories/');
+test_all_snapshots('eg/otherdir_code');
+
Please sign in to comment.
Something went wrong with that request. Please try again.