abbrev.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
print "1..7\n";
chdir 't' if -d 't';
}
print "ok 1\n";
# old style as reference
local(%x);
print "not " if exists $x{
'l'} ||
print "ok 2\n";
print "not " unless $x{
'list'}
eq 'list' &&
$x{
'liste'}
eq 'listen' &&
$x{
'listen'}
eq 'listen';
print "ok 3\n";
print "not " unless $x{
'a'}
eq 'abort' &&
print "ok 4\n";
# wantarray
%y = ();