diff options
author | Jesse Luehrs <doy@tozt.net> | 2010-06-14 03:10:28 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2010-06-14 03:10:28 -0500 |
commit | 49d9bf6f2047290a296f44da44970ccc7cf60b14 (patch) | |
tree | 7b62812b4a4f33b22bb19a71fbce70cbce7fb8e3 /t | |
parent | 239243355af79052d3ce6083889e71e3dcf2039a (diff) | |
download | carp-always-color-49d9bf6f2047290a296f44da44970ccc7cf60b14.tar.gz carp-always-color-49d9bf6f2047290a296f44da44970ccc7cf60b14.zip |
add todo test for the Carp::Always bug
Diffstat (limited to 't')
-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"); +} |