diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-09-14 12:32:28 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-09-14 22:29:46 -0700 |
| commit | 697efb9be70535836d8ebd1327ecb1c72666000e (patch) | |
| tree | 3bef9c5f193be00d435d19a521e4601c587d36d2 | |
| parent | bfde49d45e9457b1d8a9e18b55d5b0c7615ddcd6 (diff) | |
| download | perl-697efb9be70535836d8ebd1327ecb1c72666000e.tar.gz | |
method.t: Add basic tests for SUPER
| -rw-r--r-- | t/op/method.t | 23 |
1 files changed, 21 insertions, 2 deletions
diff --git a/t/op/method.t b/t/op/method.t index ff39231da1..d0bd64c0e8 100644 --- a/t/op/method.t +++ b/t/op/method.t @@ -13,7 +13,7 @@ BEGIN { use strict; no warnings 'once'; -plan(tests => 101); +plan(tests => 107); @A::ISA = 'B'; @B::ISA = 'C'; @@ -223,7 +223,26 @@ like ($@, qr/^\QCan't locate object method "foo" via package "E::F" at/); eval '$e = bless {}, "UNIVERSAL"; $e->E::F::foo()'; like ($@, qr/^\QCan't locate object method "foo" via package "E::F" at/); -# TODO: we need some tests for the SUPER:: pseudoclass +# SUPER:: pseudoclass +@Saab::ISA = "Souper"; +sub Souper::method { @_ } +@OtherSaab::ISA = "OtherSouper"; +sub OtherSouper::method { "Isidore Ropen, Draft Manager" } +{ + my $o = bless [], "Saab"; + package Saab; + my @ret = $o->SUPER::method('whatever'); + ::is $ret[0], $o, 'object passed to SUPER::method'; + ::is $ret[1], 'whatever', 'argument passed to SUPER::method'; + @ret = $o->SUPER'method('whatever'); + ::is $ret[0], $o, "object passed to SUPER'method"; + ::is $ret[1], 'whatever', "argument passed to SUPER'method"; + @ret = Saab->SUPER::method; + ::is $ret[0], 'Saab', "package name passed to SUPER::method"; + @ret = OtherSaab->SUPER::method; + ::is $ret[0], 'OtherSaab', + "->SUPER::method uses current package, not invocant"; +} # failed method call or UNIVERSAL::can() should not autovivify packages is( $::{"Foo::"} || "none", "none"); # sanity check 1 |