#DEFINE LOOPS 5000 LOCAL lo, lni, lnSeconds lo = NEWOBJECT( 'MyTest', 'Temp.PRG' ) CLEAR ? "Test for PEMSTATUS call on an exising Property: " lnSeconds = SECONDS() FOR lni = 1 TO LOOPS PEMSTATUS( lo, "MyProp", 5 ) NEXT ?? SECONDS() - lnSeconds && 0.050 ? "Test for TYPE() call on an exising Property: " lnSeconds = SECONDS() FOR lni = 1 TO LOOPS =TYPE( "lo.MyProp" ) NEXT ?? SECONDS() - lnSeconds && 0.121 ? "Test for VARTYPE() call on an exising Property: " lnSeconds = SECONDS() FOR lni = 1 TO LOOPS VARTYPE( lo.MyProp ) NEXT ?? SECONDS() - lnSeconds && 0.060 ? "Test for PEMSTATUS call on a nonexistent Property: " lnSeconds = SECONDS() FOR lni = 1 TO LOOPS PEMSTATUS( lo, "NotMyProp", 5 ) NEXT ?? SECONDS() - lnSeconds && 0.040 ? "Test for TYPE() call on a nonexistent Property: " lnSeconds = SECONDS() FOR lni = 1 TO LOOPS =TYPE( "lo.NotMyProp" ) NEXT ?? SECONDS() - lnSeconds && 0.180 ? "Test for VARTYPE() call on a nonexistent Property: " lnSeconds = SECONDS() FOR lni = 1 TO LOOPS VARTYPE( lo.NotMyProp ) NEXT ?? SECONDS() - lnSeconds && 0.040 DEFINE CLASS MyTest AS Session MyProp = "Hello!" ENDDEFINE