X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F32-hash.t;h=0ad2e96413adb937e21f6d1d6bb8acb3b7f44c4c;hb=159e8ad7c747edb4a25db2f2673bbe143531f347;hp=5072484cf323ec2929856ec67b4c9af2886b0407;hpb=8654247137887f7bf842faaf1404750813410c7b;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/t/32-hash.t b/t/32-hash.t
index 5072484..0ad2e96 100644
--- a/t/32-hash.t
+++ b/t/32-hash.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => (2 * 21 + 7) + (2 * 5 + 4) + 1;
+use Test::More tests => (2 * 21 + 7) + (2 * 5 + 5) + 1;
 
 use Variable::Magic qw/cast dispell MGf_COPY VMG_UVAR/;
 
@@ -84,7 +84,7 @@ SKIP: {
  }
  if ($SKIP) {
   $SKIP .= ' required to test uvar/clear interaction fix';
-  skip $SKIP => 2 * 5 + 4;
+  skip $SKIP => 2 * 5 + 5;
  }
 
  my $bd = B::Deparse->new;
@@ -111,4 +111,7 @@ SKIP: {
  watch { %h = () } { clear => 1 }, 'fixed clear';
 
  watch { dispell %h, $wiz } { }, 'dispell clear/uvar';
+
+ require B;
+ ok(!(B::svref_2object(\%h)->FLAGS & B::SVs_RMG()), '%h no longer has the RMG flag set');
 }