From 5649f766a3f28cf9368305072b3351733d675e56 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Thu, 7 Jul 2011 20:21:34 -0500 Subject: make the error line up with the one used in core --- t/error.t | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 t/error.t (limited to 't') 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; -- cgit v1.2.3