summaryrefslogtreecommitdiffstats
path: root/t/html.t
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2016-08-30 01:39:07 -0400
committerJesse Luehrs <doy@tozt.net>2016-08-30 01:39:07 -0400
commit07edf5e4760c25baedc1e911221802918744d8f1 (patch)
tree104e663a7c01d808b5f133a2524a9db0bc58d216 /t/html.t
parentc69ab718b2cd8a2e18da56c3dd49fae2d247c2a7 (diff)
downloadcarp-always-color-07edf5e4760c25baedc1e911221802918744d8f1.tar.gz
carp-always-color-07edf5e4760c25baedc1e911221802918744d8f1.zip
use a consistent implementation of output_like
not all of them were passing along @INC
Diffstat (limited to 't/html.t')
-rw-r--r--t/html.t14
1 files changed, 2 insertions, 12 deletions
diff --git a/t/html.t b/t/html.t
index 046990e..57dd7db 100644
--- a/t/html.t
+++ b/t/html.t
@@ -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;