diff options
Diffstat (limited to 't/error.t')
-rw-r--r-- | t/error.t | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/t/error.t b/t/error.t new file mode 100644 index 0000000..10d69be --- /dev/null +++ b/t/error.t @@ -0,0 +1,26 @@ +#!/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; |