summaryrefslogtreecommitdiffstats
path: root/t/error.t
diff options
context:
space:
mode:
Diffstat (limited to 't/error.t')
-rw-r--r--t/error.t26
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;