diff options
Diffstat (limited to 't/term.t')
-rw-r--r-- | t/term.t | 24 |
1 files changed, 12 insertions, 12 deletions
@@ -8,51 +8,51 @@ BEGIN { plan tests => 5; } -sub output_is { +sub output_like { local $Test::Builder::Level = $Test::Builder::Level + 1; my ($script, $expected, $desc) = @_; my $pty = IO::Pty::Easy->new; $pty->spawn("$^X", "-e", $script); - is($pty->read, $expected, $desc); + like($pty->read, $expected, $desc); } -output_is(<<EOF, +output_like(<<EOF, use Carp::Always::Color::Term; warn "foo"; EOF - "\e[33mfoo\e[m at -e line 2\n", + qr/\e\[33mfoo\e\[m at -e line 2\b/, "simple warns work"); -output_is(<<EOF, +output_like(<<EOF, use Carp::Always::Color::Term; sub foo { warn "foo"; } foo(); EOF - "\e[33mfoo\e[m at -e line 3\n\tmain::foo() called at -e line 5\n", + qr/\e\[33mfoo\e\[m at -e line 3\.?\n\tmain::foo\(\) called at -e line 5\n/, "warns with a stacktrace work"); -output_is(<<EOF, +output_like(<<EOF, use Carp::Always::Color::Term; die "foo"; EOF - "\e[31mfoo\e[m at -e line 2\n", + qr/\e\[31mfoo\e\[m at -e line 2\b/, "simple dies work"); -output_is(<<EOF, +output_like(<<EOF, use Carp::Always::Color::Term; sub foo { die "foo"; } foo(); EOF - "\e[31mfoo\e[m at -e line 3\n\tmain::foo() called at -e line 5\n", + qr/\e\[31mfoo\e\[m at -e line 3\.?\n\tmain::foo\(\) called at -e line 5\n/, "dies with a stacktrace work"); -output_is(<<EOF, +output_like(<<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", + qr/\e\[31mfoo at bar line 23\e\[m at -e line 2\b/, "weird messages work"); |