diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-03-08 21:09:34 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-03-08 21:09:34 -0600 |
commit | c182157b3bf68888a3296b5cef1bd26e80d44332 (patch) | |
tree | 7071c5d77c896026c613d99aa8581d8acbbd930b /t | |
parent | b9841300cb47cee9d6cda24b3477c763530b947f (diff) | |
download | carp-always-color-c182157b3bf68888a3296b5cef1bd26e80d44332.tar.gz carp-always-color-c182157b3bf68888a3296b5cef1bd26e80d44332.zip |
done_testing
Diffstat (limited to 't')
-rw-r--r-- | t/detect.t | 3 | ||||
-rw-r--r-- | t/eval.t | 3 | ||||
-rw-r--r-- | t/html.t | 3 | ||||
-rw-r--r-- | t/object.t | 4 | ||||
-rw-r--r-- | t/term.t | 3 |
5 files changed, 11 insertions, 5 deletions
@@ -5,7 +5,6 @@ use Test::More; BEGIN { eval "use IO::Pty::Easy;"; plan skip_all => "IO::Pty::Easy is required for this test" if $@; - plan tests => 2; } sub output_like { @@ -35,3 +34,5 @@ output_like(<<EOF, EOF qr+<span style=\"color:#880\">foo</span> at -e line 7\b+, "detection works for terminal output"); + +done_testing; @@ -5,7 +5,6 @@ use Test::More; BEGIN { eval "use IO::Pty::Easy;"; plan skip_all => "IO::Pty::Easy is required for this test" if $@; - plan tests => 2; } sub output_like { @@ -38,3 +37,5 @@ output_like(<<EOF, EOF qr/\e\[31m\e\[31mfoo\e\[m\e\[m at -e line 3\.?\n\teval {\.\.\.} called at -e line 3\n\tmain::foo\(\) called at -e line 5\.?\n\tmain::foo\(\) called at -e line 8\n/, "rethrowing works inside functions"); + +done_testing; @@ -5,7 +5,6 @@ use Test::More; BEGIN { eval "use IO::Pty::Easy;"; plan skip_all => "IO::Pty::Easy is required for this test" if $@; - plan tests => 4; } sub output_like { @@ -49,3 +48,5 @@ output_like(<<EOF, EOF qr+<span style=\"color:#800\">foo</span> at -e line 3\.?\n\tmain::foo\(\) called at -e line 5\n+, "dies with a stacktrace work"); + +done_testing; @@ -1,10 +1,12 @@ #!/usr/bin/env perl use strict; use warnings; -use Test::More tests => 1; +use Test::More; use Carp::Always::Color; my $err = bless({}, 'My::Error::Class'); eval { die $err }; is($@, $err, "exception objects aren't affected"); + +done_testing; @@ -5,7 +5,6 @@ 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_like { @@ -56,3 +55,5 @@ output_like(<<EOF, EOF qr/\e\[31mfoo at bar line 23\e\[m at -e line 2\b/, "weird messages work"); + +done_testing; |