allow optionally using the pure-perl implementation

1 files changed, 28 insertions, 0 deletions

diff --git a/t/error_pp.t b/t/error_pp.t
new file mode 100644
index 0000000..954aef5
--- /dev/null
+++ b/t/error_pp.t
@@ -0,0 +1,28 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+
+BEGIN { $smartmatch::engine::core::USE_PP = 1 }
+
+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;