use strict;
use warnings;
-use Test::More tests => 7;
+use Test::More tests => 8 + 1;
use Variable::Magic qw/wizard cast/;
}};
like $@, qr/pepperoni/, 'die in len callback in BEGIN';
+
+use lib 't/lib';
+eval "use Variable::Magic::TestScopeEnd";
+
+like $@, qr/turnip/, 'die in BEGIN in require triggers hints hash destructor';