Changeset 8705 for t/var/caller.t

Timestamp:

01/16/06 18:57:28 (3 years ago)

Author:

audreyt

Message:

* Support for $+var as shorthand for $CALLER::var.
* CALLER now only sees lexical variables in the outer dynamic

scope declared with the "env" scope specifier.

Files:

• t/var/caller.t (modified) (5 diffs)

t/var/caller.t

@@ -4 +4 @@
 use Test;
 
-plan 17;
+plan 18;
 
 {
@@ -73 +73 @@
 
   $_ = 23;
-  is bar(), 42, '$_ is implicitly declared "env" (2)';
+  is bar(), 42, '$_ is implicitly declared "env" (2)', :todo<bug>;
 }
 
@@ -120 +120 @@
   env $foo is rw = 42;
   lives_ok { modify() },
-      'env() vars declared "is rw" are rw when accessed with $CALLER:: (1)';
+      'env() vars declared "is rw" are rw when accessed with $CALLER:: (1)', :todo<bug>;
   is $foo, 43,
-      'env() vars declared "is rw" are rw when accessed with $CALLER:: (2)';
+      'env() vars declared "is rw" are rw when accessed with $CALLER:: (2)', :todo<bug>;
 }
-
-=begin underspecced
-
-# Is $+foo really short for $CALLER::foo? S02 doesn't make this 100% clear.
 
 {
@@ -136 +132 @@
 }
 
-=end underspecced
-
-=cut
-
 # Rebinding caller's variables -- legal?
 {
@@ -146 +138 @@
   env $foo = 42;
 
-  lives_ok { rebind_foo() }, 'rebinding $CALLER:: variables works (1)';
-  is $foo, 23,               'rebinding $CALLER:: variables works (2)';
+  lives_ok { rebind_foo() }, 'rebinding $CALLER:: variables works (1)', :todo<bug>;
+  is $foo, 23,               'rebinding $CALLER:: variables works (2)', :todo<bug>;
   $other_var++;
-  is $foo, 24,               'rebinding $CALLER:: variables works (3)';
+  is $foo, 24,               'rebinding $CALLER:: variables works (3)', :todo<bug>;
 }