Commit | Line | Data |
---|---|---|
c9a84c8b NC |
1 | #!./perl |
2 | ||
3 | # These tests are not complete. Patches welcome. | |
4 | ||
5 | use Test::More tests => 3; | |
6 | ||
7 | BEGIN {use_ok( 'Tie::Hash' )}; | |
8 | ||
9 | # these are "abstract virtual" parent methods | |
9d214558 | 10 | for my $method (qw( TIEHASH EXISTS )) { |
c9a84c8b NC |
11 | eval { Tie::Hash->$method() }; |
12 | like( $@, qr/doesn't define an? $method/, "croaks on inherited $method()" ); | |
13 | } |