1898184e3Ssthen#!./perl 2898184e3Ssthen 3898184e3Ssthen# These tests are not complete. Patches welcome. 4898184e3Ssthen 5*256a93a4Safresh1use Test::More; 6898184e3Ssthen 7898184e3SsthenBEGIN {use_ok( 'Tie::Hash' )}; 8898184e3Ssthen 9898184e3Ssthen# these are "abstract virtual" parent methods 10898184e3Ssthenfor my $method (qw( TIEHASH EXISTS )) { 11898184e3Ssthen eval { Tie::Hash->$method() }; 12898184e3Ssthen like( $@, qr/doesn't define an? $method/, "croaks on inherited $method()" ); 13898184e3Ssthen} 14*256a93a4Safresh1 15*256a93a4Safresh1done_testing(); 16