X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F21_C3_with_overload.t;h=136eefd8891c8a61a708488059ee63c9df882cc4;hb=4ae4bd680ce54f13382324bc268361d17c3503f1;hp=e61256878514911895bee435799089b49747a15a;hpb=680100b1744c65ae1a1dc2da8522731aa197d75b;p=gitmo%2FClass-C3.git

diff --git a/t/21_C3_with_overload.t b/t/21_C3_with_overload.t
index e612568..136eefd 100644
--- a/t/21_C3_with_overload.t
+++ b/t/21_C3_with_overload.t
@@ -5,10 +5,6 @@ use warnings;
 
 use Test::More tests => 8;
 
-BEGIN {
-    use_ok('Class::C3');
-}
-
 {
     package BaseTest;
     use strict;
@@ -30,8 +26,24 @@ BEGIN {
     use warnings;
     use base 'OverloadingTest';
     use Class::C3;
+
+    package BaseTwo;
+    use overload (
+        q{fallback} => 1,
+        q{""}       => 'str', ### character
+    );
+    sub str {
+        return 'BaseTwo str';
+    }
+
+    package OverloadInheritTwo;
+    use Class::C3;
+    use base qw/BaseTwo/;
+
 }
 
+Class::C3::initialize();
+
 my $x = InheritingFromOverloadedTest->new();
 isa_ok($x, 'InheritingFromOverloadedTest');
 
@@ -50,5 +62,10 @@ eval {
 ok(!$@, '... this should not throw an exception');
 ok($result, '... and we should get the true value');
 
+eval {
+    my $obj = bless {}, 'OverloadInheritTwo';
+};
+is($@, '', "Overloading to method name string");
+
 #use Data::Dumper;
 #diag Dumper { Class::C3::_dump_MRO_table }