summaryrefslogtreecommitdiffstats
path: root/t/01-term.t
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2011-09-04 12:03:26 -0500
committerJesse Luehrs <doy@tozt.net>2011-09-04 12:03:26 -0500
commita2a44a1e4da072193f3d2a165bc62f9907d5a964 (patch)
treed9061dcbaedda981cf642590d6c542aca5a739bd /t/01-term.t
parent05596e277d97bad8338f83b4da0f90e28521b3a6 (diff)
downloadcarp-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.t58
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");