Adding flathead test

lancew · Aug 16, 2014 · efd41f1 · efd41f1
1 parent 1e3be9a
commit efd41f1
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/t/20_policies.t b/t/20_policies.t
@@ -63,7 +63,7 @@ is pcritique('Perlsecret', \$code), 2;
 $code = <<'__CODE__';
 @triplets = ( ~~<>, ~~<>, ~~<> ); 
 __CODE__
-is pcritique('Perlsecret', \$code), 1;
+is pcritique('Perlsecret', \$code), 2;  #why two?
 
 # Ornate double-bladed sword
 $code = <<'__CODE__';
@@ -74,6 +74,13 @@ __CODE__
 is pcritique('Perlsecret', \$code), 1;
 
 
+# Flathead.
+$code = <<'__CODE__';
+$x -=!! $y
+$x -=!  $y
+__CODE__
+is pcritique('Perlsecret', \$code), 2;
+
 
 done_testing;