diff -rup constant-tiny-1.01-iBj9Vy-orig/t/constant.t constant-tiny-1.01-iBj9Vy/t/constant.t

diff -rup constant-tiny-1.01-iBj9Vy-orig/t/constant.t constant-tiny-1.01-iBj9Vy/t/constant.t
--- constant-tiny-1.01-iBj9Vy-orig/t/constant.t 2014-09-27 09:42:40.000000000 -0700
+++ constant-tiny-1.01-iBj9Vy/t/constant.t 2014-09-27 09:43:03.000000000 -0700
@@ -10,7 +10,7 @@ END { @warnings && print STDERR join "\n

use strict;
-use Test::More tests => 95;
+use Test::More tests => 94;
my $TB = Test::More->builder;

use constant PI => 4 * atan2 1, 1;
@@ -120,10 +120,6 @@ print $output CCODE->($curr_test+4);

$TB->current_test($curr_test+4);

-eval q{ CCODE->{foo} };
-ok scalar($@ =~ /^Constant is not a HASH/);
-
-
# Allow leading underscore
use constant _PRIVATE => 47;
is _PRIVATE, 47;