IDENT     TTEST
          TITLE     TEST THE BLOODY TMACRO MACRO
TMACROS   XTEXT
MACROS1   XTEXT
OPNAMES   XTEXT
CLIST     XTEXT
          ENTRY     TEST1
TEST1     NO
          EJECT
          NEWCAP    K.EV
* 1 CASE TESTS
* NO RETURN CONDITIONS
T1        TOPER     1,,,C.CEVCH,K.MALLOC,K.EV,10
* CHECK X6 AT RETRUN
T2        TOPER     1,60/1,,C.SENDE,K.EV,525B
* X7 ANDFANCY X6 AT RETURN
T3        TOPER     1,(12/3777B,30/1,18/UNIQNM),60/525B,C.GETEVF,K.EV
* CHECK X6 AT RETRRN (FAILS)
T4        TOPER     1,60/2,,C.SENDE,K.EV,525B
* X7 AND FANCY X6 (BAD X6)
T5        TOPER     1,60/12,60/525B,C.GETEVF,K.EV
* X7 AND FANCY X6 (BAD X7)
          DOPER     C.SENDE,K.EV,5252B
T6        TOPER     1,(12/3777B,30/1,18/UNIQNM),60/525B,C.GETEVF,K.EV
* F-RETURNS INSTESD
T7        TOPER     1,,,C.GETEVF,K.EV
* ERROR RETURNS INSTEAD
T8        TOPER     1,,,C.GETEVF,K.MALLOC
          EJECT
* 2 CASE TESTS
* F-RETURNS AS ADVERTISED
T9        TOPER     2,,,C.GETEVF,K.EV
* NORMAL RETURNS INSTESD
          DOPER     C.SENDE,K.EV,2
T10       TOPER     2,,,C.GETEVF,K.EV
* ERROR RETURNS INSTEAD
T11       TOPER     2,,,C.GETEVF,K.MALLOC
          EJECT
* 3 CASE TESTS
* AS ADVERTISED
T12       TOPER     3,60/7,60/0,K.MALLOC
* WRONG X6
T13       TOPER     3,60/6,60/0,K.MALLOC
* WRONG X7
T14       TOPER     3,60/7,60/1,K.MALLOC
* F-RETRRNS INSTEAD
T15       TOPER     3,60/7,60/0,C.GETEVF,K.EV
* NORMAL RETURN INSTEAD
T16       TOPER     3,60/7,60/0,C.SENDE,K.EV
          EJECT
          TITLE     SPECIAL SYSTEM TESTS
          DOPER     C.CEVCH,K.MALLOC,K.TEVCH1,10
          DOPER     C.CEVCH,K.MALLOC,K.TEVCH2,10
          DOPER     C.CEVCH,K.MALLOC,K.TEVCH3,10
          USE       PARAS
CHLIST    VFD       60/K.TEVCH1
          VFD       60/K.TEVCH2
          VFD       60/K.TEVCH3
CHLISTP   VFD       60/K.TEVCH1
          VFD       60/K.TEVCH2
          VFD       60/K.TEVCH1
          USE       *
MEV999    TOPER     1,(12/3777B,30/3,18/=XUNIQNM),60/525252B,C.MGETH,CHL
,IST,3
MEV998    TOPER     1,(12/3777B,30/1,18/=XUNIQNM),60/525252B,C.MGETH,CHL
,ISTP,3
          JP        =XTESTN
          HERE
          TRAILER   SELF
          END