diff options
| author | Jesse Luehrs <doy@tozt.net> | 2010-04-30 20:06:11 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2010-04-30 20:09:40 -0500 |
| commit | ddd601047a76fb519d4acba4c59d77ebfde1fa6e (patch) | |
| tree | 2a5840e61ce7a6868d522015ddc74c0f938d9be5 /t/002-html.t | |
| parent | ce489a3dcdcd8dcc1dec85b92698e0b94c85ca38 (diff) | |
| download | carp-always-color-ddd601047a76fb519d4acba4c59d77ebfde1fa6e.tar.gz carp-always-color-ddd601047a76fb519d4acba4c59d77ebfde1fa6e.zip | |
only color the actual warning/error
also clean up a couple more edge cases
Diffstat (limited to 't/002-html.t')
| -rw-r--r-- | t/002-html.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/t/002-html.t b/t/002-html.t index 86be6a9..f51914d 100644 --- a/t/002-html.t +++ b/t/002-html.t @@ -20,7 +20,7 @@ output_is(<<EOF, use Carp::Always::Color::HTML; warn "foo"; EOF - "<span style=\"color:#880\">foo at -e line 2</span>\n", + "<span style=\"color:#880\">foo</span> at -e line 2\n", "simple warns work"); output_is(<<EOF, @@ -30,14 +30,14 @@ output_is(<<EOF, } foo(); EOF - "<span style=\"color:#880\">foo at -e line 3</span>\n\tmain::foo() called at -e line 5\n", + "<span style=\"color:#880\">foo</span> 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::HTML; die "foo"; EOF - "<span style=\"color:#800\">foo at -e line 2</span>\n", + "<span style=\"color:#800\">foo</span> at -e line 2\n", "simple dies work"); output_is(<<EOF, @@ -47,5 +47,5 @@ output_is(<<EOF, } foo(); EOF - "<span style=\"color:#800\">foo at -e line 3</span>\n\tmain::foo() called at -e line 5\n", + "<span style=\"color:#800\">foo</span> at -e line 3\n\tmain::foo() called at -e line 5\n", "dies with a stacktrace work"); |