1#!./perl
2
3BEGIN {
4    chdir 't' if -d 't';
5    @INC = '../lib';
6    require './test.pl';
7}
8
9plan( tests => 3);
10use warnings;
11use strict;
12
13package Foo;
14use overload
15  nomethod => sub { die "unimplemented\n" };
16sub new { bless {}, shift };
17
18package main;
19
20my $foo = Foo->new;
21
22eval {my $val = $foo + 1};
23ok( $@ =~ /unimplemented/, "'+'  not implemented; 'nomethod' special key invoked" );
24
25eval {$foo += 1};
26ok( $@ =~ /unimplemented/, "'+=' not implemented; 'nomethod' special key invoked"  );
27
28eval {my $val = 0; $val += $foo};
29ok( $@ =~ /unimplemented/, "'+=' not implemented; 'nomethod' special key invoked"  );
30
31