diff options
author | Jesse Luehrs <doy@tozt.net> | 2010-06-14 03:21:42 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2010-06-14 03:21:42 -0500 |
commit | b6f9cf0cd8b90c31a024581d524cf513a5446c93 (patch) | |
tree | a8dcdf7fefa4eb50973263dda9d46a3b46c872e2 /t/003-detect.t | |
parent | 90bf809d0662a2f87d63a4453e0cd74c101418a7 (diff) | |
download | carp-always-color-b6f9cf0cd8b90c31a024581d524cf513a5446c93.tar.gz carp-always-color-b6f9cf0cd8b90c31a024581d524cf513a5446c93.zip |
update dzil (and other packaging) stuff
Diffstat (limited to 't/003-detect.t')
-rw-r--r-- | t/003-detect.t | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/t/003-detect.t b/t/003-detect.t deleted file mode 100644 index 6c4f7d3..0000000 --- a/t/003-detect.t +++ /dev/null @@ -1,37 +0,0 @@ -#!/usr/bin/env perl -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 $@; - plan tests => 2; -} - -sub output_is { - local $Test::Builder::Level = $Test::Builder::Level + 1; - my ($script, $expected, $desc) = @_; - my $pty = IO::Pty::Easy->new; - $pty->spawn("$^X", "-e", $script); - is($pty->read, $expected, $desc); -} - -output_is(<<EOF, - use Carp::Always::Color; - warn "foo"; -EOF - "\e[33mfoo\e[m at -e line 2\n", - "detection works for terminal output"); - -output_is(<<EOF, - my \$stderr; - BEGIN { - close(STDERR); - open(STDERR, '>', \\\$stderr); - } - use Carp::Always::Color; - warn "foo"; - print \$stderr; -EOF - "<span style=\"color:#880\">foo</span> at -e line 7\n", - "detection works for terminal output"); |