t/op/localref.t

   1 #!./perl
   2
   3 chdir 't' if -d 't';
   4 @INC = qw(. ../lib);
   5 require "test.pl";
   6 plan( tests => 64 );
   7
   8 $aa = 1;
   9 { local $aa;     $aa = 2; is($aa,2); }
  10 is($aa,1);
  11 { local ${aa};   $aa = 3; is($aa,3); }
  12 is($aa,1);
  13 { local ${"aa"}; $aa = 4; is($aa,4); }
  14 is($aa,1);
  15 $x = "aa";
  16 { local ${$x};   $aa = 5; is($aa,5); undef $x; is($aa,5); }
  17 is($aa,1);
  18 $x = "a";
  19 { local ${$x x2};$aa = 6; is($aa,6); undef $x; is($aa,6); }
  20 is($aa,1);
  21 $x = "aa";
  22 { local $$x;     $aa = 7; is($aa,7); undef $x; is($aa,7); }
  23 is($aa,1);
  24
  25 @aa = qw/a b/;
  26 { local @aa;     @aa = qw/c d/; is("@aa","c d"); }
  27 is("@aa","a b");
  28 { local @{aa};   @aa = qw/e f/; is("@aa","e f"); }
  29 is("@aa","a b");
  30 { local @{"aa"}; @aa = qw/g h/; is("@aa","g h"); }
  31 is("@aa","a b");
  32 $x = "aa";
  33 { local @{$x};   @aa = qw/i j/; is("@aa","i j"); undef $x; is("@aa","i j"); }
  34 is("@aa","a b");
  35 $x = "a";
  36 { local @{$x x2};@aa = qw/k l/; is("@aa","k l"); undef $x; is("@aa","k l"); }
  37 is("@aa","a b");
  38 $x = "aa";
  39 { local @$x;     @aa = qw/m n/; is("@aa","m n"); undef $x; is("@aa","m n"); }
  40 is("@aa","a b");
  41
  42 %aa = qw/a b/;
  43 { local %aa;     %aa = qw/c d/; is($aa{c},"d"); }
  44 is($aa{a},"b");
  45 { local %{aa};   %aa = qw/e f/; is($aa{e},"f"); }
  46 is($aa{a},"b");
  47 { local %{"aa"}; %aa = qw/g h/; is($aa{g},"h"); }
  48 is($aa{a},"b");
  49 $x = "aa";
  50 { local %{$x};   %aa = qw/i j/; is($aa{i},"j"); undef $x; is($aa{i},"j"); }
  51 is($aa{a},"b");
  52 $x = "a";
  53 { local %{$x x2};%aa = qw/k l/; is($aa{k},"l"); undef $x; is($aa{k},"l"); }
  54 is($aa{a},"b");
  55 $x = "aa";
  56 { local %$x;     %aa = qw/m n/; is($aa{m},"n"); undef $x; is($aa{m},"n"); }
  57 is($aa{a},"b");
  58
  59 sub test_err_localref () {
  60     like($@,qr/Can't localize through a reference/,'error');
  61 }
  62 $x = \$aa;
  63 my $y = \$aa;
  64 eval { local $$x; };      test_err_localref;
  65 eval { local ${$x}; };    test_err_localref;
  66 eval { local $$y; };      test_err_localref;
  67 eval { local ${$y}; };    test_err_localref;
  68 eval { local ${\$aa}; };  test_err_localref;
  69 eval { local ${\'aa'}; }; test_err_localref;
  70 $x = \@aa;
  71 $y = \@aa;
  72 eval { local @$x; };      test_err_localref;
  73 eval { local @{$x}; };    test_err_localref;
  74 eval { local @$y; };      test_err_localref;
  75 eval { local @{$y}; };    test_err_localref;
  76 eval { local @{\@aa}; };  test_err_localref;
  77 eval { local @{[]}; };    test_err_localref;
  78 $x = \%aa;
  79 $y = \%aa;
  80 eval { local %$x; };      test_err_localref;
  81 eval { local %{$x}; };    test_err_localref;
  82 eval { local %$y; };      test_err_localref;
  83 eval { local %{$y}; };    test_err_localref;
  84 eval { local %{\%aa}; };  test_err_localref;
  85 eval { local %{{a=>1}}; };test_err_localref;
  86
  87
  88 {
  89     # [perl #27638] when restoring a localized variable, the thing being
  90     # freed shouldn't be visible
  91     my $ok;
  92     $x = 0;
  93     sub X::DESTROY { $ok = !ref($x); }
  94     {
  95         local $x = \ bless {}, 'X';
  96         1;
  97     }
  98 ok($ok,'old value not visible during restore');
  99 }