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;