diff options
Diffstat (limited to 't/error.t')
-rw-r--r-- | t/error.t | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/t/error.t b/t/error.t deleted file mode 100644 index 10d69be..0000000 --- a/t/error.t +++ /dev/null @@ -1,26 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; -use Test::More; - -my $foo = bless {}; -my $bar = bless {}; - -eval '$foo ~~ $bar'; -my $core_error = $@; -$core_error =~ s/\d+/XXX/g; -(my $short_core_error = $core_error) =~ s/ at .* line .*//; - -{ - use smartmatch 'core'; - eval '$foo ~~ $bar'; - my $engine_error = $@; - $engine_error =~ s/\d+/XXX/g; - (my $short_engine_error = $engine_error) =~ s/ at .* line .*//; - is($short_engine_error, $short_core_error); - { local $TODO = "Carp is dumb"; - is($engine_error, $core_error); - } -} - -done_testing; |