/*****************************************************************************/

/*--- Load sundry rexx functions --------------------------------------------*/
call  RxFuncAdd 'SysSleep', 'RexxUtil', 'SysSleep';

/*--- Prove incorrect time returned -----------------------------------------*/
address cmd '@echo off & cls'
say 'TEST #1 - Prove Invalid Elapsed Time Returned'
say '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
call SetTime "12:0:0"
say copies(' ', 8) || 'Resetting elapsed time...';
call Time 'Reset';
say copies(' ', 8) || 'Waiting 10 seconds...';
call SysSleep 10;
call SetTime "12:0:2"
say copies(' ', 8) || 'Elapsed time : ' || time('Elapsed') || '  (INCORRECT SHOULD BE 10!!!)';
say '';
say '';

/*--- Generate Syntax error -------------------------------------------------*/
say 'TEST #2 - REXX Script will die with Syntax Error'
say '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
say copies(' ', 8) || 'Resetting elapsed time...';
call Time 'Reset';
say copies(' ', 8) || 'Waiting 2 seconds...';
call SysSleep 2;
call SetTime "11:0:0"
say copies(' ', 8) || 'About to die....';
ElapsedTime = time('Elapsed');
say copies(' ', 8) || 'Opps there goes my theory, dies on my machine...';
say copies(' ', 8) || 'Elapsed time : ' || ElapsedTime
exit(255);



/*===========================================================================*/
SetTime:
/*===========================================================================*/
   say copies(' ', 8) || 'Setting time to "' || arg(1) || '"';
   address cmd 'time ' || arg(1) || ' >nul';
   return;