home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / os2 / OS2 / REXX / t / rx_cmprt.t next >
Encoding:
Text File  |  1999-07-20  |  889 b   |  41 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. $| = 1;                # Otherwise data from REXX may come first
  14.  
  15. print "1..13\n";
  16.  
  17. $n = 1;
  18. sub do_me {
  19.   print "ok $n\n";
  20.   "OK";
  21. }
  22.  
  23. @res = REXX_call(\&do_me);
  24. print "ok 2\n";
  25. @res == 1 ? print "ok 3\n" : print "not ok 3\n";
  26. $res[0] eq "OK" ? print "ok 4\n" : print "not ok 4\n# `$res[0]'\n";
  27.  
  28. # Try again
  29. $n = 5;
  30. @res = REXX_call(\&do_me);
  31. print "ok 6\n";
  32. @res == 1 ? print "ok 7\n" : print "not ok 7\n";
  33. $res[0] eq "OK" ? print "ok 8\n" : print "not ok 8\n# `$res[0]'\n";
  34.  
  35. REXX_call { print "ok 9\n" };
  36. REXX_eval 'say "ok 10"';
  37. # Try again
  38. REXX_eval 'say "ok 11"';
  39. print "ok 12\n" if REXX_eval("return 2 + 3") eq 5;
  40. REXX_eval_with 'say myfunc()', myfunc => sub {"ok 13"};
  41.