Change 11172 by jhi@alpha on 2001/07/06 12:18:39
Subject: [PATCH t/op/method.t] SUPER:: strangeness
From: Piers Cawley <[EMAIL PROTECTED]>
Date: 06 Jul 2001 10:49:01 +0100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/t/op/method.t#17 edit
Differences ...
==== //depot/perl/t/op/method.t#17 (xtext) ====
Index: perl/t/op/method.t
--- perl/t/op/method.t.~1~ Fri Jul 6 06:30:05 2001
+++ perl/t/op/method.t Fri Jul 6 06:30:05 2001
@@ -9,7 +9,7 @@
@INC = '../lib';
}
-print "1..72\n";
+print "1..75\n";
@A::ISA = 'B';
@B::ISA = 'C';
@@ -21,7 +21,9 @@
sub test {
print "# got `$_[0]', expected `$_[1]'\nnot " unless $_[0] eq $_[1];
# print "not " unless shift eq shift;
- print "ok ", ++$cnt, "\n"
+ print "ok ", ++$cnt;
+ print " @_[2..$#_]" if @_ > 2;
+ print "\n";
}
# First, some basic checks of method-calling syntax:
@@ -232,6 +234,34 @@
test( $::{"Foo::"} ? "ok" : "none", "ok"); # should exist now
test( Foo->boogie(), "yes, sir!");
+# Some simpleminded tests for the SUPER:: pseudoclass.
+# Note that, right now, SUPER:: seems to start looking in the package
+# it was compiled in, rather than in the class it was called in.
+# Which is wrong. Hence the two TODO tests.
+package Parent;
+
+sub foo { 1 };
+
+package Child;
+
+@Child::ISA = 'Parent';
+
+sub child_foo {
+ my $self = shift;
+ $self->SUPER::foo;
+}
+
+package main;
+
+sub Child::main_foo { $_[0]->SUPER::foo }
+
+*Child::late_foo = sub { $_[0]->SUPER::foo };
+
+
+test( scalar(eval {Child->child_foo}), 1 );
+test( scalar(eval {Child->main_foo}), 1, "# TODO SUPER:: non intuitive");
+test( scalar(eval {Child->late_foo}), 1, "# TODO SUPER:: non intuitive");
+
# TODO: universal.t should test NoSuchPackage->isa()/can()
# This is actually testing parsing of indirect objects and undefined subs
End of Patch.
