home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / os2 / OS2 / REXX / t / rx_objcall.t < prev    next >
Encoding:
Text File  |  1999-10-23  |  700 b   |  35 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. use OS2::REXX;
  12.  
  13. #
  14. # DLL
  15. #
  16. $ydba = load OS2::REXX "ydbautil" 
  17.   or print "1..0 # skipped: cannot find YDBAUTIL.DLL\n" and exit;
  18. print "1..5\n", "ok 1\n";
  19.  
  20. #
  21. # function
  22. #
  23. @pid = $ydba->RxProcId();
  24. @pid == 1 ? print "ok 2\n" : print "not ok 2\n";
  25. @res = split " ", $pid[0];
  26. print "ok 3\n" if $res[0] == $$;
  27. @pid = $ydba->RxProcId();
  28. @res = split " ", $pid[0];
  29. print "ok 4\n" if $res[0] == $$;
  30. print "# @pid\n";
  31.  
  32. eval { $ydba->nixda(); };
  33. print "ok 5\n" if $@ =~ /^Can't find entry 'nixda\'/;
  34.  
  35.