14 # old style as reference
16 my @z = qw(list edit send abort gripe listen);
18 my $r = join ':', sort keys %x;
19 print "not " if exists $x{'l'} ||
24 print "not " unless $x{'list'} eq 'list' &&
25 $x{'liste'} eq 'listen' &&
26 $x{'listen'} eq 'listen';
29 print "not " unless $x{'a'} eq 'abort' &&
30 $x{'ab'} eq 'abort' &&
31 $x{'abo'} eq 'abort' &&
32 $x{'abor'} eq 'abort' &&
33 $x{'abort'} eq 'abort';
40 my $s = join ':', sort keys %y;
41 print (($r eq $s)?"ok $test\n":"not ok $test\n"); $test++;
44 $s = join ':', sort keys %$y;
45 print (($r eq $s)?"ok $test\n":"not ok $test\n"); $test++;
50 $s = join ':', sort keys %y;
51 print (($r eq $s)?"ok $test\n":"not ok $test\n"); $test++;
54 # warnings safe with zero arguments
57 $SIG{__WARN__} = sub { $notok++ };
59 print ($notok ? "not ok $test\n" : "ok $test\n"); $test++;