Update magical flags after dispelling magic

[perl/modules/Variable-Magic.git] / t / 32-hash.t

diff --git a/t/32-hash.t b/t/32-hash.t
index 5072484cf323ec2929856ec67b4c9af2886b0407..0ad2e96413adb937e21f6d1d6bb8acb3b7f44c4c 100644 (file)
--- 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');
 }