[PATCH Deparse.t] test just-posted patches

This patch to Deparse.t tests the patches I've just posted.
(Actually test 15 will fail if you apply the @F patch and not this one)

I've also changed the numbers in the comments to correspond to the actual
test numbers.

  .robin.

--- ext/B/Deparse.t.orig	Mon Jul  2 22:10:50 2001
+++ ext/B/Deparse.t	Mon Jul  2 23:42:56 2001
@@ -15,7 +15,7 @@
  use strict;
  use Config;

-print "1..14\n";
+print "1..15\n";

  use B::Deparse;
  my $deparse = B::Deparse->new() or print "not ";
@@ -105,7 +105,7 @@

  LINE: while (defined($_ = <ARGV>)) {
      chomp $_;
-    @F = split(" ", $_, 0);
+    our(@F) = split(" ", $_, 0);
      '???';
  }

@@ -114,27 +114,27 @@
  print "ok " . $i++ . "\n";

  __DATA__
-# 1
+# 2
  1;
  ####
-# 2
+# 3
  {
      no warnings;
      '???';
      2;
  }
  ####
-# 3
+# 4
  my $test;
  ++$test and $test /= 2;
  >>>>
  my $test;
  $test /= 2 if ++$test;
  ####
-# 4
+# 5
  -((1, 2) x 2);
  ####
-# 5
+# 6
  {
      my $test = sub : lvalue {
  	my $x;
@@ -142,7 +142,7 @@
      ;
  }
  ####
-# 6
+# 7
  {
      my $test = sub : method {
  	my $x;
@@ -150,7 +150,7 @@
      ;
  }
  ####
-# 7
+# 8
  {
      my $test = sub : locked method {
  	my $x;
@@ -158,7 +158,7 @@
      ;
  }
  ####
-# 8
+# 9
  {
      234;
  }
@@ -166,10 +166,14 @@
      123;
  }
  ####
-# 9
+# 10
  my $x;
  print $main::x;
  ####
-# 10
+# 11
  my @x;
  print $main::x[1];
+####
+# 12
+my %x;
+$x{warn()};

• [PATCH Deparse.t] test just-posted patches by Robin Houston
• Re: [PATCH Deparse.t] test just-posted patches by Jarkko Hietaniemi