diff options
-rw-r--r-- | t/detect.t | 17 | ||||
-rw-r--r-- | t/eval.t | 14 | ||||
-rw-r--r-- | t/html.t | 14 | ||||
-rw-r--r-- | t/lib/TestHelpers.pm | 26 | ||||
-rw-r--r-- | t/term.t | 14 |
5 files changed, 34 insertions, 51 deletions
@@ -2,21 +2,8 @@ use strict; use warnings; use Test::More; -BEGIN { - eval "use IO::Pty::Easy;"; - plan skip_all => "IO::Pty::Easy is required for this test" if $@; -} -use B; - -sub output_like { - local $Test::Builder::Level = $Test::Builder::Level + 1; - my ($script, $expected, $desc) = @_; - my $pty = IO::Pty::Easy->new; - my $inc = '(' . join(',', map { B::perlstring($_) } @INC) . ')'; - $script = "BEGIN { \@INC = $inc }$script"; - $pty->spawn("$^X", "-e", $script); - like($pty->read, $expected, $desc); -} +use lib 't/lib'; +use TestHelpers 'output_like'; output_like(<<EOF, use Carp::Always::Color; @@ -2,18 +2,8 @@ use strict; use warnings; use Test::More; -BEGIN { - eval "use IO::Pty::Easy;"; - plan skip_all => "IO::Pty::Easy is required for this test" if $@; -} - -sub output_like { - local $Test::Builder::Level = $Test::Builder::Level + 1; - my ($script, $expected, $desc) = @_; - my $pty = IO::Pty::Easy->new; - $pty->spawn("$^X", "-e", $script); - like($pty->read, $expected, $desc); -} +use lib 't/lib'; +use TestHelpers 'output_like'; output_like(<<EOF, use Carp::Always::Color; @@ -2,18 +2,8 @@ use strict; use warnings; use Test::More; -BEGIN { - eval "use IO::Pty::Easy;"; - plan skip_all => "IO::Pty::Easy is required for this test" if $@; -} - -sub output_like { - local $Test::Builder::Level = $Test::Builder::Level + 1; - my ($script, $expected, $desc) = @_; - my $pty = IO::Pty::Easy->new; - $pty->spawn("$^X", "-e", $script); - like($pty->read, $expected, $desc); -} +use lib 't/lib'; +use TestHelpers 'output_like'; output_like(<<EOF, use Carp::Always::Color::HTML; diff --git a/t/lib/TestHelpers.pm b/t/lib/TestHelpers.pm new file mode 100644 index 0000000..c44d045 --- /dev/null +++ b/t/lib/TestHelpers.pm @@ -0,0 +1,26 @@ +package TestHelpers; +use strict; +use warnings; + +BEGIN { + if (!eval { require IO::Pty::Easy; 1 }) { + Test::More::plan skip_all => "IO::Pty::Easy is required for this test" + } +} + +use B; +use Exporter 'import'; + +our @EXPORT_OK = qw(output_like); + +sub output_like { + local $Test::Builder::Level = $Test::Builder::Level + 1; + my ($script, $expected, $desc) = @_; + my $pty = IO::Pty::Easy->new; + my $inc = '(' . join(',', map { B::perlstring($_) } @INC) . ')'; + $script = "BEGIN { \@INC = $inc }$script"; + $pty->spawn("$^X", "-e", $script); + Test::More::like($pty->read, $expected, $desc); +} + +1; @@ -2,18 +2,8 @@ use strict; use warnings; use Test::More; -BEGIN { - eval "use IO::Pty::Easy;"; - plan skip_all => "IO::Pty::Easy is required for this test" if $@; -} - -sub output_like { - local $Test::Builder::Level = $Test::Builder::Level + 1; - my ($script, $expected, $desc) = @_; - my $pty = IO::Pty::Easy->new; - $pty->spawn("$^X", "-e", $script); - like($pty->read, $expected, $desc); -} +use lib 't/lib'; +use TestHelpers 'output_like'; output_like(<<EOF, use Carp::Always::Color::Term; |