Permalink
Browse files

Bring a test up to latest spec on our names.

  • Loading branch information...
1 parent 7761c24 commit 498ffb2d96a0819f52c123a1eb267f2f7d3b4c4d @jnthn jnthn committed Jul 28, 2011
Showing with 8 additions and 3 deletions.
  1. +8 −3 S06-routine-modifiers/scoped-named-subs.t
View
11 S06-routine-modifiers/scoped-named-subs.t
@@ -25,14 +25,19 @@ eval_dies_ok('myNamedInt()', 'Correct : lexical named sub myNamedInt() should NO
our Str sub ourNamedStr() { return 'string' };
is ourNamedStr(), 'string', 'package-scoped named sub() return Str';
}
-is ourNamedStr(), 'string', 'Correct : package-scoped named sub ourNamedStr() should BE available in the whole package';
-
+{
+ our &ourNamedStr;
+ is ourNamedStr(), 'string', 'Correct : package-scoped named sub ourNamedStr() should BE available in the whole package';
+}
{
our Int sub ourNamedInt() { return 55 };
is ourNamedInt(), 55, 'package-scoped named sub() return Int';
}
-is ourNamedInt(), 55, 'Correct : package-scoped named sub ourNamedInt() should BE available in the whole package';
+{
+ our &ourNamedInt;
+ is ourNamedInt(), 55, 'Correct : package-scoped named sub ourNamedInt() should BE available in the whole package';
+}
eval_dies_ok
'my Num List sub f () { return ("A") }; f()',

0 comments on commit 498ffb2

Please sign in to comment.