7 print "not " unless foo == 42;
8 print "ok 1 - calling our sub from same package\n";
9 print "not " unless &foo == 42;
10 print "ok 2 - calling our sub from same package (amper)\n";
13 print "not " unless foo == 42;
14 print "ok 3 - calling our sub from another package # TODO\n";
15 print "not " unless &foo == 42;
16 print "ok 4 - calling our sub from another package (amper)\n";
19 print "not " unless foo == 43;
20 print "ok 5 - our sub falling out of scope\n";
21 print "not " unless &foo == 43;
22 print "ok 6 - our sub falling out of scope (called via amper)\n";
29 print "not " unless a == 43;
30 print "ok 7 - our sub invisible inside itself\n";
31 print "not " unless &a == 43;
32 print "ok 8 - our sub invisible inside itself (called via amper)\n";
42 print "not " unless b == 42;
43 print "ok 9 - our sub visible inside itself after decl # TODO\n";
44 print "not " unless &b == 42;
45 print "ok 10 - our sub visible inside itself after decl (amper)\n";
56 print "not " unless c == 42;
57 print "ok 11 - our sub foo; makes lex alias for existing sub # TODO\n";
58 print "not " unless &c == 42;
59 print "ok 12 - our sub foo; makes lex alias for existing sub (amper)\n";
66 print "not " unless d eq 'd42';
67 print "ok 13 - our sub foo; applies to subsequent sub foo {} # TODO\n";
68 print "not " unless &d eq 'd42';
69 print "ok 14 - our sub foo; applies to subsequent sub foo {} (amper)\n";