home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / t / lib / ops.t < prev    next >
Text File  |  1999-07-20  |  550b  |  30 lines
  1. #!./perl
  2.  
  3. BEGIN {
  4.     chdir 't' if -d 't';
  5.     unshift @INC, '../lib';
  6.     require Config; import Config;
  7.     if ($Config{'extensions'} !~ /\bOpcode\b/ && $Config{'osname'} ne 'VMS') {
  8.         print "1..0\n";
  9.         exit 0;
  10.     }
  11. }
  12.  
  13. print "1..2\n";
  14.  
  15. eval <<'EOP';
  16.     no ops 'fileno';    # equiv to "perl -M-ops=fileno"
  17.     $a = fileno STDIN;
  18. EOP
  19.  
  20. print $@ =~ /trapped/ ? "ok 1\n" : "not ok 1\n# $@\n";
  21.  
  22. eval <<'EOP';
  23.     use ops ':default';    # equiv to "perl -M(as above) -Mops=:default"
  24.     eval 1;
  25. EOP
  26.  
  27. print $@ =~ /trapped/ ? "ok 2\n" : "not ok 2\n# $@\n";
  28.  
  29. 1;
  30.