diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-09-04 12:03:26 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-09-04 12:03:26 -0500 |
commit | a2a44a1e4da072193f3d2a165bc62f9907d5a964 (patch) | |
tree | d9061dcbaedda981cf642590d6c542aca5a739bd /t/01-term.t | |
parent | 05596e277d97bad8338f83b4da0f90e28521b3a6 (diff) | |
download | carp-always-color-a2a44a1e4da072193f3d2a165bc62f9907d5a964.tar.gz carp-always-color-a2a44a1e4da072193f3d2a165bc62f9907d5a964.zip |
remove test numbers
Diffstat (limited to 't/01-term.t')
-rw-r--r-- | t/01-term.t | 58 |
1 files changed, 0 insertions, 58 deletions
diff --git a/t/01-term.t b/t/01-term.t deleted file mode 100644 index 8eb479a..0000000 --- a/t/01-term.t +++ /dev/null @@ -1,58 +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 => 5; -} - -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::Term; - warn "foo"; -EOF - "\e[33mfoo\e[m at -e line 2\n", - "simple warns work"); - -output_is(<<EOF, - use Carp::Always::Color::Term; - sub foo { - warn "foo"; - } - foo(); -EOF - "\e[33mfoo\e[m at -e line 3\n\tmain::foo() called at -e line 5\n", - "warns with a stacktrace work"); - -output_is(<<EOF, - use Carp::Always::Color::Term; - die "foo"; -EOF - "\e[31mfoo\e[m at -e line 2\n", - "simple dies work"); - -output_is(<<EOF, - use Carp::Always::Color::Term; - sub foo { - die "foo"; - } - foo(); -EOF - "\e[31mfoo\e[m at -e line 3\n\tmain::foo() called at -e line 5\n", - "dies with a stacktrace work"); - -output_is(<<EOF, - use Carp::Always::Color::Term; - die "foo at bar line 23"; -EOF - "\e[31mfoo at bar line 23\e[m at -e line 2\n", - "weird messages work"); |