Expand test 25 to check that methods have access to surrounding nonstatic lexicals.

Author: pmurias

t/nqp/25-class.t

@@ -2,11 +2,11 @@
 
 # class
 
-plan(2);
+plan(5);
 
 class XYZ {
     method foo($x) {
-        say($x);
+        ok($x eq 'ok 1');
     }
 }
 
@@ -19,11 +19,29 @@ $xyz.foo('ok 1');
 
 class QRS {
     method foo($x) {
-        say($x);
+        ok($x eq 'ok 2');
     }
 }
 
 my $qrs := QRS.new();
 
 $qrs.foo('ok 2');
 
+class ABC {
+    my $foo := 15;
+    my sub helper($x) {
+        $x*2;
+    }
+    method foo($x) {
+        helper($x);
+    }
+    method bar($x) {
+      $foo := $foo + $x;
+      $foo;
+    }
+}
+
+my $abc := ABC.new();
+ok($abc.foo(100) == 200,"using a lexical sub inside a method");
+ok($abc.bar(10) == 25,"using a outer lexical inside a method");
+ok($abc.bar(1) == 26,"the value of the lexical persisting");