Changeset 8705 for t/var/state.t

Show
Ignore:
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:
1 modified

Legend:

Unmodified
Added
Removed

  • t/var/state.t

    r8323 r8705  
    134134    sub step () { 
    135135        state $svar = state $svar2 = 42; 
    136         $svar++; 
    137         $svar2--; 
    138         return ($svar, $svar2); 
     136        try { 
     137            $svar++; 
     138            $svar2--; 
     139            return ($svar, $svar2); 
     140        } 
    139141    }; 
    140142 
    141     is(step().perl, "(43, 41)", "chained state (#1)"); 
    142     is(step().perl, "(44, 40)", "chained state (#2)"); 
     143    is(step().perl, "(43, 41)", "chained state (#1)", :todo<bug>); 
     144    is(step().perl, "(44, 40)", "chained state (#2)", :todo<bug>); 
    143145}