home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 230.lha / ArexxFunctionHost / test.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1989-04-03  |  710 b   |  55 lines
  1. /* test.rexx */
  2.  
  3. /* Test the demo ARexx function host */
  4.  
  5. /* Donald T. Meyer */
  6.  
  7.  
  8.  
  9. if show( Libraries, "DEMO_FUNC_HOST" ) ~= 1 then
  10.     do
  11.         say "Oops!  You must run   rh_demo   to install the function"
  12.         say "host before this ARexx test program can run!"
  13.         exit 20
  14.     end
  15.  
  16. say "First a display beep:"
  17.  
  18. call dbeep()
  19.  
  20. say
  21.  
  22.  
  23.  
  24. say "Now a function which returns a string:"
  25.  
  26. say rats()
  27.  
  28. say
  29.  
  30.  
  31.  
  32. say "And a function which returns a boolean based upon the length"
  33. say "of the string passed to it:"
  34.  
  35. say bigword( "Hello" )
  36. say bigword( "aaabbbcccdddeeefffggg" )
  37.  
  38. say
  39.  
  40.  
  41. say "And finally, a function which always returns an error:"
  42.  
  43. call myerror
  44.  
  45. /* We actually never get to here. */
  46.  
  47. say
  48.  
  49.  
  50.  
  51. say "All Done testing!!"
  52.  
  53. exit 0
  54.  
  55.