summaryrefslogtreecommitdiff
path: root/t/mro/isa_dfs.t
diff options
context:
space:
mode:
authorMichael G. Schwern <schwern@pobox.com>2011-11-15 17:39:07 -0800
committerFather Chrysostomos <sprout@cpan.org>2011-11-17 10:01:34 -0800
commitbbce3ca648eab3f375216d4c9eba05cb6e005d05 (patch)
tree7ab2097535b9ff42568b0f010c31906bb41542b8 /t/mro/isa_dfs.t
parentb8ab4b0c2ac8ae091a7ed7909f0d9b01ae5717f0 (diff)
downloadperl-bbce3ca648eab3f375216d4c9eba05cb6e005d05.tar.gz
Add class_ok() and object_ok() to t/test.pl.
Change every existing instance of isa_ok() to use object_ok(). This is safe because before this point, t/test.pl's isa_ok() only worked on objects. lib/dbmt_common.pl is the last hold out because it uses Test::More. These are like isa_ok() but they also check if it's a class or an object. This lets the core tests defend against outlandish bugs while allowing t/test.pl to retain feature parity with Test::More.
Diffstat (limited to 't/mro/isa_dfs.t')
-rw-r--r--t/mro/isa_dfs.t2
1 files changed, 1 insertions, 1 deletions
diff --git a/t/mro/isa_dfs.t b/t/mro/isa_dfs.t
index 889ee6e531..77c122ea74 100644
--- a/t/mro/isa_dfs.t
+++ b/t/mro/isa_dfs.t
@@ -60,6 +60,6 @@ foreach my $package (qw(klonk urkkk kapow kayo thwacke zzzzzwap whamm)) {
is("@{mro::get_linear_isa($package)}", "@$isa", "\@ISA for $package");
foreach my $class ($package, @$isa, 'UNIVERSAL') {
- isa_ok($ref, $class, $package);
+ object_ok($ref, $class, $package);
}
}