TODO tests for deparsing strict, warnings as strings, and my $x if 0;

diff --git a/ext/B/t/deparse.t b/ext/B/t/deparse.t
index 6ba97d0..27e9f9e 100644 (file)
--- a/ext/B/t/deparse.t
+++ b/ext/B/t/deparse.t
@@ -27,7 +27,7 @@ BEGIN {
     require feature;
     feature->import(':5.10');
 }
-use Test::More tests => 74;
+use Test::More tests => 77;
 use Config ();
 
 use B::Deparse;
@@ -586,3 +586,24 @@ warn O_EXCL;
 ####
 # 67 tests for deparsing of blessed constant with overloaded numification
 warn OVERLOADED_NUMIFICATION;
+####
+# TODO Only strict 'refs' currently supported
+# 68 strict
+no strict;
+$x;
+####
+# TODO Subsets of warnings could be encoded textually, rather than as bitflips.
+no warnings 'deprecated';
+my $x;
+####
+# TODO Better test for CPAN #33708 - the deparsed code has different behaviour
+use strict;
+no warnings;
+
+foreach (0..3) {
+    my $x = 2;
+    {
+       my $x if 0;
+       print ++$x, "\n";
+    }
+}