X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F17-ctl.t;h=7e2e7d8440c4bc3f0e5bbb1313c19d7b04b1ccf5;hb=bf4c4354fb3bdfdd4d33501318ba3bdd382469c8;hp=ce22ea6d93d37405d1c39e6943848486fefd9b76;hpb=ede9927507603e9db94fd3f5f31867b2f0fd0b87;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/t/17-ctl.t b/t/17-ctl.t
index ce22ea6..7e2e7d8 100644
--- a/t/17-ctl.t
+++ b/t/17-ctl.t
@@ -76,6 +76,6 @@ eval q{BEGIN {
 like $@, qr/pepperoni/, 'die in len callback in BEGIN';
 
 use lib 't/lib';
-eval "use Variable::Magic::TestDieRequired";
+eval "use Variable::Magic::TestScopeEnd";
 
-like $@, qr/turnip/, 'die in required with localized hash gets the right error message';
+like $@, qr/turnip/, 'die in BEGIN in require triggers hints hash destructor';