home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / t / lib / io_const.t < prev    next >
Text File  |  1999-07-20  |  663b  |  34 lines

  1.  
  2. BEGIN {
  3.     unless(grep /blib/, @INC) {
  4.     chdir 't' if -d 't';
  5.     unshift @INC, '../lib' if -d '../lib';
  6.     }
  7. }
  8.  
  9. use Config;
  10.  
  11. BEGIN {
  12.     if(-d "lib" && -f "TEST") {
  13.         if ($Config{'extensions'} !~ /\bIO\b/ && $^O ne 'VMS') {
  14.         print "1..0\n";
  15.         exit 0;
  16.         }
  17.     }
  18. }
  19.  
  20. use IO::Handle;
  21.  
  22. print "1..6\n";
  23. my $i = 1;
  24. foreach (qw(SEEK_SET SEEK_CUR SEEK_END     _IOFBF    _IOLBF    _IONBF)) {
  25.     my $d1 = defined(&{"IO::Handle::" . $_}) ? 1 : 0;
  26.     my $v1 = $d1 ? &{"IO::Handle::" . $_}() : undef;
  27.     my $v2 = IO::Handle::constant($_);
  28.     my $d2 = defined($v2);
  29.  
  30.     print "not "
  31.     if($d1 != $d2 || ($d1 && ($v1 != $v2)));
  32.     print "ok ",$i++,"\n";
  33. }
  34.