diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-07-08 03:02:34 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-07-08 03:02:34 -0500 |
commit | 6c7d5e2e4024df3b3d0f54bab14909ddfcd478c0 (patch) | |
tree | 8a907820e18d8304d06f9af34bd64fa37357146b /t/error.t | |
parent | 046119999e010e4a38b67f5f194baaf60e7c8707 (diff) | |
download | smartmatch-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.t | 26 |
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; |