X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F015_override_and_foreign_classes.t;fp=t%2F015_override_and_foreign_classes.t;h=3620c561b082639b89a588f880b2d490e41e2c27;hb=05d9eaf69da40fa42f0a507e2d9bd29dac31a016;hp=0000000000000000000000000000000000000000;hpb=79592a54119aa4dffe1e429c00e3b1ed91550265;p=gitmo%2FMoose.git

diff --git a/t/015_override_and_foreign_classes.t b/t/015_override_and_foreign_classes.t
new file mode 100644
index 0000000..3620c56
--- /dev/null
+++ b/t/015_override_and_foreign_classes.t
@@ -0,0 +1,79 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 16;
+
+BEGIN {
+    use_ok('Moose');           
+}
+
+=pod
+
+This just tests the interaction of override/super
+with non-Moose superclasses. It really should not 
+cause issues, the only thing it does is to create 
+a metaclass for Foo so that it can find the right 
+super method.
+
+This may end up being a sensitive issue for some 
+non-Moose classes, but in 99% of the cases it 
+should be just fine. 
+
+=cut
+
+{
+    package Foo;
+    use strict;
+    use warnings;
+    
+    sub new { bless {} => shift() }
+    
+    sub foo { 'Foo::foo' }
+    sub bar { 'Foo::bar' }    
+    sub baz { 'Foo::baz' }
+    
+    package Bar;
+    use strict;
+    use warnings;
+    use Moose;
+    
+    extends 'Foo';
+    
+    override bar => sub { 'Bar::bar -> ' . super() };   
+    
+    package Baz;
+    use strict;
+    use warnings;
+    use Moose;
+    
+    extends 'Bar';
+    
+    override bar => sub { 'Baz::bar -> ' . super() };       
+    override baz => sub { 'Baz::baz -> ' . super() }; 
+}
+
+my $baz = Baz->new();
+isa_ok($baz, 'Baz');
+isa_ok($baz, 'Bar');
+isa_ok($baz, 'Foo');
+
+is($baz->foo(), 'Foo::foo', '... got the right value from &foo');
+is($baz->bar(), 'Baz::bar -> Bar::bar -> Foo::bar', '... got the right value from &bar');
+is($baz->baz(), 'Baz::baz -> Foo::baz', '... got the right value from &baz');
+
+my $bar = Bar->new();
+isa_ok($bar, 'Bar');
+isa_ok($bar, 'Foo');
+
+is($bar->foo(), 'Foo::foo', '... got the right value from &foo');
+is($bar->bar(), 'Bar::bar -> Foo::bar', '... got the right value from &bar');
+is($bar->baz(), 'Foo::baz', '... got the right value from &baz');
+
+my $foo = Foo->new();
+isa_ok($foo, 'Foo');
+
+is($foo->foo(), 'Foo::foo', '... got the right value from &foo');
+is($foo->bar(), 'Foo::bar', '... got the right value from &bar');
+is($foo->baz(), 'Foo::baz', '... got the right value from &baz');
\ No newline at end of file