Commit | Line | Data |
680100b1 |
1 | #!/usr/bin/perl |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use Test::More tests => 8; |
7 | |
8 | BEGIN { |
9 | use_ok('Class::C3'); |
10 | } |
11 | |
12 | { |
13 | package BaseTest; |
14 | use strict; |
15 | use warnings; |
16 | use Class::C3; |
17 | |
18 | package OverloadingTest; |
19 | use strict; |
20 | use warnings; |
21 | use Class::C3; |
22 | use base 'BaseTest'; |
23 | use overload '""' => sub { ref(shift) . " stringified" }, |
24 | fallback => 1; |
25 | |
26 | sub new { bless {} => shift } |
27 | |
28 | package InheritingFromOverloadedTest; |
29 | use strict; |
30 | use warnings; |
31 | use base 'OverloadingTest'; |
32 | use Class::C3; |
33 | } |
34 | |
2ffffc6d |
35 | Class::C3::initialize(); |
36 | |
680100b1 |
37 | my $x = InheritingFromOverloadedTest->new(); |
38 | isa_ok($x, 'InheritingFromOverloadedTest'); |
39 | |
40 | my $y = OverloadingTest->new(); |
41 | isa_ok($y, 'OverloadingTest'); |
42 | |
43 | is("$x", 'InheritingFromOverloadedTest stringified', '... got the right value when stringifing'); |
44 | is("$y", 'OverloadingTest stringified', '... got the right value when stringifing'); |
45 | |
46 | ok(($y eq 'OverloadingTest stringified'), '... eq was handled correctly'); |
47 | |
48 | my $result; |
49 | eval { |
50 | $result = $x eq 'InheritingFromOverloadedTest stringified' |
51 | }; |
52 | ok(!$@, '... this should not throw an exception'); |
53 | ok($result, '... and we should get the true value'); |
54 | |
55 | #use Data::Dumper; |
56 | #diag Dumper { Class::C3::_dump_MRO_table } |