From 6c7d5e2e4024df3b3d0f54bab14909ddfcd478c0 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Fri, 8 Jul 2011 03:02:34 -0500 Subject: split core out into its own dist --- t/error.t | 26 -------------------------- 1 file changed, 26 deletions(-) delete mode 100644 t/error.t (limited to 't/error.t') 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; -- cgit v1.2.3-54-g00ecf