store requested strictures version so we can switch behavior based on it

[p5sagit/strictures.git] / t / strictures.t

diff --git a/t/strictures.t b/t/strictures.t
index 9a107ed..d2c6ad6 100644 (file)
--- a/t/strictures.t
+++ b/t/strictures.t
@@ -25,6 +25,8 @@ sub capture_expect { push @expect, capture_stuff }
 # I'm assuming here we'll have more cases later. maybe not. eh.
 
 foreach my $idx (0 .. $#us) {
+  # ignore lexicalized hints
+  $us[$idx][0] &= ~ 0x20000;
   is($us[$idx][0], $expect[$idx][0], 'Hints ok for case '.($idx+1));
   is($us[$idx][1], $expect[$idx][1], 'Warnings ok for case '.($idx+1));
 }