summaryrefslogtreecommitdiffstats
path: root/t/error.t
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2011-07-08 03:02:34 -0500
committerJesse Luehrs <doy@tozt.net>2011-07-08 03:02:34 -0500
commit6c7d5e2e4024df3b3d0f54bab14909ddfcd478c0 (patch)
tree8a907820e18d8304d06f9af34bd64fa37357146b /t/error.t
parent046119999e010e4a38b67f5f194baaf60e7c8707 (diff)
downloadsmartmatch-engine-rjbs-6c7d5e2e4024df3b3d0f54bab14909ddfcd478c0.tar.gz
smartmatch-engine-rjbs-6c7d5e2e4024df3b3d0f54bab14909ddfcd478c0.zip
split core out into its own dist
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;