From 49d9bf6f2047290a296f44da44970ccc7cf60b14 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 14 Jun 2010 03:10:28 -0500
Subject: add todo test for the Carp::Always bug

---
 t/001-term.t | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

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");
+}
-- 
cgit v1.2.3