home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / os2 / OS2 / REXX / t / rx_emxrv.t < prev    next >
Encoding:
Text File  |  1999-10-23  |  574 b   |  25 lines
  1. BEGIN {
  2.     chdir 't' if -d 't/lib';
  3.     @INC = '../lib' if -d 'lib';
  4.     require Config; import Config;
  5.     if (-d 'lib' and $Config{'extensions'} !~ /\bOS2(::|\/)REXX\b/) {
  6.     print "1..0\n";
  7.     exit 0;
  8.     }
  9. }
  10.  
  11. print "1..5\n";
  12.  
  13. require OS2::DLL;
  14. print "ok 1\n";
  15. $emx_dll = OS2::DLL->load('emx');
  16. print "ok 2\n";
  17. $emx_version = $emx_dll->emx_revision();
  18. print "ok 3\n";
  19. $emx_version >= 40 or print "not ";    # We cannot work with old EMXs
  20. print "ok 4\n";
  21.  
  22. $reason = '';
  23. $emx_version >= 99 and $reason = ' # skipped: version of EMX 100 or more';    # Be safe
  24. print "ok 5$reason\n";
  25.