-- beadstest1.mesa

DIRECTORY IODefs:FROM"IODefs",
          InlineDefs:FROM"InlineDefs",
          BeadsDefs:FROM"BeadsDefs";
BeadsTest:PROGRAM IMPORTS IODefs, InlineDefs, BeadsDefs
                  EXPORTS BeadsDefs =
BEGIN OPEN BeadsDefs;

Error:SIGNAL=CODE;

FullTest:PUBLIC PROCEDURE=BEGIN
  i,j:CARDINAL;
  deltaX,deltaY:INTEGER;
  beadi,beadj:Bead;
  bpi,bpj:BeadPtr;
  testFail:BOOLEAN_FALSE;
  FOR i IN [0..topBead] DO
  bpi_Get[i];
  IF bpi.h<=0 OR bpi.w<=0 OR bpi.t=none THEN LOOP;
  FOR j IN (i..topBead] DO
    bpj_Get[j];
    IF bpj.t=none THEN LOOP;
    IF bpj.h<=0 OR bpj.w<=0 THEN LOOP;
    [deltaX,deltaY]_Deltas[i,j];
    IF bpj.x>=bpi.x+bpi.w+deltaX THEN LOOP;
    IF bpi.x>=bpj.x+bpj.w+deltaX THEN LOOP;
    IF bpj.y>=bpi.y+bpi.h+deltaY THEN LOOP;
    IF bpi.y>=bpj.y+bpj.h+deltaY THEN LOOP;
    IF desP[bpi.t].lessLevel#desP[bpj.t].lessLevel THEN LOOP;
    IF bpj.beadT=i THEN LOOP;
    IF bpi.circuit=bpj.circuit THEN LOOP;
    SELECT j FROM
      bpi.beadR,bpi.beadL,bpi.beadU,bpi.beadD,bpi.beadT=>LOOP;
      ENDCASE;
    beadi_bpi^;
    beadj_bpj^;
    IF ~testFail THEN Error;
    testFail_TRUE;
    IODefs.WriteChar[CR];
    IODefs.WriteString["conflict between"];
    IODefs.WriteNumber[i,  [10,FALSE,TRUE,4]];
    IODefs.WriteString[" and "];
    IODefs.WriteNumber[j,[10,FALSE,TRUE,4]];
    ENDLOOP; ENDLOOP;
  END;




END..


(1792)\i19I