home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / t / lib / abbrev.t next >
Text File  |  1999-07-20  |  1KB  |  52 lines
  1. #!./perl
  2.  
  3. print "1..7\n";
  4.  
  5. BEGIN {
  6.     chdir 't' if -d 't';
  7.     unshift @INC, '../lib';
  8. }
  9.  
  10. use Text::Abbrev;
  11.  
  12. print "ok 1\n";
  13.  
  14. # old style as reference
  15. local(%x);
  16. my @z = qw(list edit send abort gripe listen);
  17. abbrev(*x, @z);
  18. my $r = join ':', sort keys %x; 
  19. print "not " if exists $x{'l'}   ||
  20.                 exists $x{'li'}  ||
  21.                 exists $x{'lis'};
  22. print "ok 2\n";
  23.  
  24. print "not " unless $x{'list'}   eq 'list' &&
  25.                     $x{'liste'}  eq 'listen' &&
  26.                     $x{'listen'} eq 'listen';
  27. print "ok 3\n";
  28.  
  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';
  34. print "ok 4\n";
  35.  
  36. my $test = 5;
  37.  
  38. # wantarray
  39. my %y = abbrev @z;
  40. my $s = join ':', sort keys %y;
  41. print (($r eq $s)?"ok $test\n":"not ok $test\n"); $test++;
  42.  
  43. my $y = abbrev @z;
  44. $s = join ':', sort keys %$y;
  45. print (($r eq $s)?"ok $test\n":"not ok $test\n"); $test++;
  46.  
  47. %y = ();
  48. abbrev \%y, @z;
  49.  
  50. $s = join ':', sort keys %y;
  51. print (($r eq $s)?"ok $test\n":"not ok $test\n"); $test++;
  52.