t/mro/package_aliases.t

30 ok (Old->isa (New::), 'Old inherits from New');
31 ok (New->isa (Old::), 'New inherits from Old');
38 # invalidates the isa caches
77   "replacing packages by $$_{name} updates isa caches";
125   "replacing nested packages by $$_{name} updates isa caches";
128 # Another nested package test, in which the isa cache needs to be reset on
167       print "ok 1", "\n" if left->isa("clone::$tail");
168       print "ok 2", "\n" if right->isa("outer::$tail");
169       print "ok 3", "\n" if right->isa("clone::$tail");
170       print "ok 4", "\n" if left->isa("outer::$tail");
174    "replacing nonexistent nested packages by $$_{name} updates isa caches"
188       print "ok 1", "\n" if left->isa("clone::$tail");
189       print "ok 2", "\n" if right->isa("outer::$tail");
190       print "ok 3", "\n" if right->isa("clone::$tail");
191       print "ok 4", "\n" if left->isa("outer::$tail");
204 # subpackages also invalidates the isa cache.
219   'deleting a stash from its parent stash invalidates the isa caches';
266   "Assigning a nameless package over one w/subclasses updates isa caches";
365 ok "Colon"->isa("Organ:"), 'class isa "class:"';
367 ok "Colon"->isa("Organ"),
368  'isa(foo) when inheriting from "class:" which is an alias for foo';
374  ok !Colon->isa("Organ"),
375   'class that isa "class:" no longer isa foo if "class:" has been deleted';
379 ok "Colon"->isa(":"), 'class isa ":"';
381 ok "Colon"->isa("Punctuation"),
382  'isa(foo) when inheriting from ":" which is an alias for foo';
389  ok "Colon"->isa("Organ"),
390   'isa(foo) when inheriting from "class:" after hash-to-glob assignment';
398  ok "Colon"->isa("Organ"),
399   'isa(foo) when inheriting from "class:" after string-to-glob assignment';