1#!./perl
2
3use strict;
4use warnings;
5BEGIN {
6    unless (-d 'blib') {
7        chdir 't' if -d 't';
8    }
9    require q(./test.pl);
10    set_up_inc('../lib');
11}
12
13use utf8;
14use open qw( :utf8 :std );
15
16plan(tests => 7);
17
18{
19    package ���e�����;
20    use strict;
21    use warnings;
22    use mro 'c3';
23    
24    package Ov���r������������e�����;
25    use strict;
26    use warnings;
27    use mro 'c3';
28    use base '���e�����';        
29    use overload '""' => sub { ref(shift) . " stringified" },
30                 fallback => 1;
31    
32    sub ������ { bless {} => shift }    
33    
34    package ��������������������������ve����oad���������;
35    use strict;
36    use warnings;
37    use base 'Ov���r������������e�����';
38    use mro 'c3';
39}
40
41my $x = ��������������������������ve����oad���������->������();
42object_ok($x, '��������������������������ve����oad���������');
43
44my $y = Ov���r������������e�����->������();
45object_ok($y, 'Ov���r������������e�����');
46
47is("$x", '��������������������������ve����oad��������� stringified', '... got the right value when stringifing');
48is("$y", 'Ov���r������������e����� stringified', '... got the right value when stringifing');
49
50ok(($y eq 'Ov���r������������e����� stringified'), '... eq was handled correctly');
51
52my $result;
53eval { 
54    $result = $x eq '��������������������������ve����oad��������� stringified' 
55};
56ok(!$@, '... this should not throw an exception');
57ok($result, '... and we should get the true value');
58
59