explicit tests for Package:: lookup

Raku · May 4, 2012 · d70ee4c · d70ee4c
1 parent 73407b7
commit d70ee4c
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/S02-packages/package-lookup.t b/S02-packages/package-lookup.t
@@ -0,0 +1,14 @@
+use v6;
+use Test;
+
+plan 3;
+
+# L<S02/Package lookup/>
+
+class A {
+    our sub foo() { 'I am foo' };
+}
+
+isa_ok A::, Stash, 'Typename:: is a Stash';
+ok A::<&foo>, 'can access a subroutine in the stash';
+ok A:: === A.WHO, 'A::  returns the same as A.WHO';