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;