diff options
-rw-r--r-- | t/001-term.t | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/t/001-term.t b/t/001-term.t index 7c1977d..b93af1e 100644 --- a/t/001-term.t +++ b/t/001-term.t @@ -5,7 +5,7 @@ use Test::More; BEGIN { eval "use IO::Pty::Easy;"; plan skip_all => "IO::Pty::Easy is required for this test" if $@; - plan tests => 4; + plan tests => 5; } sub output_is { @@ -49,3 +49,12 @@ output_is(<<EOF, EOF "\e[31mfoo\e[m at -e line 3\n\tmain::foo() called at -e line 5\n", "dies with a stacktrace work"); + +{ local $TODO = "this is a Carp::Always bug"; +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"); +} |