From 953a3a3ac374020c1aec75fd4eb5719dcb80792b Mon Sep 17 00:00:00 2001 From: Bobbi Webber-Manners Date: Fri, 11 May 2018 01:06:53 -0400 Subject: [PATCH] Committed in error --- unittest.8bp | 543 --------------------------------------------------- 1 file changed, 543 deletions(-) delete mode 100644 unittest.8bp diff --git a/unittest.8bp b/unittest.8bp deleted file mode 100644 index 4fbee36..0000000 --- a/unittest.8bp +++ /dev/null @@ -1,543 +0,0 @@ -'----------------------' -' ÅIGHTBALL ÕNIT ÔESTS ' -'----------------------' - -BYTE STATUS=0 -WORD COUNTER=1 -WORD FAILS=0 - -'------------------ -' ×ORD VARIABLES -'------------------ -PR.MSG "×ORD VARS:"; PR.NL -WORD W1=10 -WORD W2=100 -WORD W3=50 -W1=10 -STATUS=(W1==10)&&(W2==100)&&(W3==50) -CALL EXPECT(STATUS) - -W2=W2+10 -STATUS=(W1==10)&&(W2==110)&&(W3==50) -CALL EXPECT(STATUS) - -W2=W1+10 -STATUS=(W1==10)&&(W2==20)&&(W3==50) -CALL EXPECT(STATUS) - -'------------------ -' ÂYTE VARIABLES -'------------------ -PR.MSG "ÂYTE VARS:"; PR.NL -BYTE B1=10; -BYTE B2=100; -WORD B3='A'; -CALL EXPECT((B1==10)&&(B2==100)&&(B3=='A')) - -B2=B2+10 -CALL EXPECT((B1==10)&&(B2==110)&&(B3=='A')) - -B2=B1+10 -CALL EXPECT((B1==10)&&(B2==20)&&(B3=='A')) - -'------------------ -' ×ORD ARRAYS -'------------------ -PR.MSG "×ORD ARRAYS:"; PR.NL -WORD WPRE=0 -WORD WARR[10]={12,12,12,12,12,12,12,12,12,12} -WORD WPOST=0 - -PR.MSG "ÓIZE OF WORD (4 FOR INTERPETER, 2 FOR 6502 & ÖÍ): " -PR.DEC (&WARR[2]-&WARR[1]) -PR.NL - -CALL EXPECT((WPRE==0)&&(WARR[0]==12)&&(WARR[1]==12)&&(WARR[2]==12)&&(WARR[9]==12)&&(WPOST==0)) - -WARR[1]=123 -CALL EXPECT((WPRE==0)&&(WARR[0]==12)&&(WARR[1]==123)&&(WARR[2]==12)&&(WARR[9]==12)&&(WPOST==0)) - -'------------------ -' ÂYTE ARRAYS -'------------------ -PR.MSG "ÂYTE ARRAYS:"; PR.NL -BYTE BPRE=0 -BYTE BARR[2*5]={12,12,12,12,12,12,12,12,12,12} -BYTE BPOST=0 - -CALL EXPECT((&BARR[2]-&BARR[1])==1) - -CALL EXPECT((&BARR[4]-&BARR[1])==3) - -CALL EXPECT((BPRE==0)&&(BARR[0]==12)&&(BARR[1]==12)&&(WARR[2]==12)&&(BARR[9]==12)&&(BPOST==0)) - -BARR[1]=123 -CALL EXPECT((BPRE==0)&&(BARR[0]==12)&&(BARR[1]==123)&&(WARR[2]==12)&&(BARR[9]==12)&&(BPOST==0)) - -'------------------ -' ÆOR LOOP -'------------------ -PR.MSG "ÆOR LOOP:"; PR.NL -WORD SUM=0 -WORD IW=0 - -FOR IW=1:3 - SUM=SUM+IW -ENDFOR -CALL EXPECT(SUM==6) - -SUM=0 -BYTE IB=0 -FOR IB=1:3 - SUM=SUM+IB -ENDFOR -CALL EXPECT(SUM==6) - -'------------------ -' ×HILE LOOP -'------------------ -PR.MSG "×HILE LOOP:"; PR.NL -SUM=0 -IW=0 -WHILE IW<4 - SUM=SUM+IW - IW=IW+1 -ENDWHILE -CALL EXPECT(SUM==6) - -SUM=0 -IB=0 -WHILE IB<4 - SUM=SUM+IB - IB=IB+1 -ENDWHILE -CALL EXPECT(SUM==6) - -'------------------ -' ÉF/ÅNDIF -'------------------ -PR.MSG "ÉF/ÅNDIF:"; PR.NL -IW=123 -IB=0 -IF IW==123 - IB=1 -ENDIF -CALL EXPECT(IB==1) - -IW=124 -IB=0 -IF IW==123 - IB=1 -ENDIF -CALL EXPECT(IB==0) - -'------------------ -' ÉF/ÅLSE/ÅNDIF -'------------------ -PR.MSG "ÉF/ÅLSE/ÅNDIF:"; PR.NL - -IW=123 -IB=99 -IF IW==123 - IB=1 -ELSE - IB=0 -ENDIF -CALL EXPECT(IB==1) - -IW=124 -IB=99 -IF IW==123 - IB=1 -ELSE - IB=0 -ENDIF -CALL EXPECT(IB==0) - -'------------------ -' ÐOINTERS/ÁDDRESSES -'------------------ -PR.MSG "ÐOINTERS/ÁDDRESSES:"; PR.NL - -WORD PTR=&IW -*PTR=9999 -CALL EXPECT(IW==9999) - -PTR=&IB -^PTR=73 -CALL EXPECT(IB==73) - -CALL EXPECT(&WARR[0]==&WARR) - -'------------------ -' ÃALL SUBROUTINE -'------------------ -PR.MSG "ÃALL SUB:"; PR.NL -CALL GV1() -CALL EXPECT(IW==987) - -CALL GB1() -CALL EXPECT(IB==$AE) - -CALL GWA1() -CALL EXPECT(WARR[3]==1234) - -CALL GBA1() -CALL EXPECT(BARR[7]==$34) - -CALL C1() -CALL EXPECT(IW==555) - -CALL NORET() -CALL EXPECT(IW==9876) - -'------------------ -' ÓUBROUTINE PARAMS -'------------------ -PR.MSG "ÓUB PARAMS:"; PR.NL - -WARR[0]=100 -CALL PW1(WARR[0]) -CALL EXPECT(IW==200) - -BARR[2]=10 -CALL PB1(BARR[2]) -CALL EXPECT(IW==20) - -WARR[0]=10 -WARR[1]=20 -CALL PW2(WARR[0],WARR[1]) -CALL EXPECT(IW==200) - -BARR[0]=10 -BARR[1]=20 -CALL PB2(BARR[0],BARR[1]) -CALL EXPECT(IW==200) - -WARR[0]=500 -WARR[1]=750 -CALL ADD(WARR[0],WARR[1],&IW) -CALL EXPECT(IW==1250) - -WARR[0]=500 -WARR[1]=750 -CALL ADD(WARR[0],WARR[1],&WARR[2]) -CALL EXPECT(WARR[2]==1250) - -WORD A1=&IW -CALL PPW1(2345, A1) -CALL EXPECT(IW==2345) - -CALL PPW1(2345, &IW) -CALL EXPECT(IW==2345) - -WORD A2=&IB -CALL PPB1(110, A2) -CALL EXPECT(IB==110) - -PR.MSG " ÒECURSIVE:"; PR.NL -CALL RECURSE1(5, &IW) -CALL EXPECT(IW==120) - -PR.MSG " ÁRRAY PASS BY REF:"; PR.NL -WORD ÁÁ[10]={} -CALL SETWARRAY(ÁÁ, 10) -CALL SUMWARRAY(ÁÁ, 10) -CALL EXPECT(IW==45) - -BYTE ÂÂ[10]={} -CALL SETBARRAY(ÂÂ, 10) -CALL SUMBARRAY(ÂÂ, 10) -CALL EXPECT(IW==45) - -CALL PBRFIRSTLEVEL(ÁÁ) -CALL EXPECT(ÁÁ[3]==123) - -CALL WRAPPER() - -'------------------ -' ÉNVOKE FUNC -'------------------ -PR.MSG "ÉNVOKE FUNC:"; PR.NL -CALL EXPECT(SQR(10)==100) - -PR.MSG " ÒECURSIVE:"; PR.NL -IW=RECURSE2(5) -CALL EXPECT(IW==5*4*3*2) - -IW=RECURSE3(5) -CALL EXPECT(IW==5*4*3*2) - -'------------------ -' ÌOCALS -'------------------ -PR.MSG "ÌOCALS:"; PR.NL -IW=123 -CALL LW1() -CALL EXPECT(IW==123*2) - -IW=123 -CALL LB1() -CALL EXPECT(IW==123*2) - -IW=123 -CALL LW2() -CALL EXPECT(IW==123*4) - -IW=123 -CALL LB2() -CALL EXPECT(IW==123*4) - -CALL LPW1() -CALL EXPECT(IW==1) - -CALL LPB1() -CALL EXPECT(IW==1) - -CALL GP1() -CALL EXPECT(IW==1) - -'------------------ -CALL DONE() -'------------------ - -END - -' -' ÔEST SUBROUTINES -' -SUB GV1() - IW = 987; ' ÓET GLOBAL WORD - RETURN 0 -ENDSUB - -SUB GB1() - IB = $AE; ' ÓET GLOBAL BYTE - RETURN 0 -ENDSUB - -SUB GWA1() - WARR[3] = 1234; ' ÓET GLOBAL WORD ARRAY MEMBER - RETURN 0 -ENDSUB - -SUB GBA1() - BARR[7] = $34; ' ÓET GLOBAL BYTE ARRAY MEMBER - RETURN 0 -ENDSUB - -SUB PW1(WORD XX) - IW = XX * 2 - RETURN 0 -ENDSUB - -SUB PB1(BYTE XX) - IW = XX * 2 - RETURN 0 -ENDSUB - -SUB PW2(WORD XX, WORD YY) - IW = XX * YY - RETURN 0 -ENDSUB - -SUB PB2(BYTE XX, BYTE YY) - IW = XX * YY - RETURN 0 -ENDSUB - -SUB ADD(WORD A, WORD B, WORD SUMADDR) - *SUMADDR=A+B - RETURN 0 -ENDSUB - -SUB PPW1(WORD VAL, WORD ADDR) - *ADDR=VAL - RETURN 0 -ENDSUB - -SUB PPB1(BYTE VAL, WORD ADDR) - ^ADDR=VAL - RETURN 0 -ENDSUB - -SUB C1() - CALL C2() - RETURN 0 -ENDSUB - -SUB C2() - CALL C3() - RETURN 0 -ENDSUB - -SUB C3() - IW = 555 - RETURN 0 -ENDSUB - -SUB NORET() - IW = 9876 -ENDSUB - -SUB SQR(WORD X) - RETURN X*X -ENDSUB - -SUB RECURSE1(WORD X, WORD ADDR) - IF X==0 - *ADDR=1 - ELSE - CALL RECURSE1(X-1,ADDR) - *ADDR=*ADDR*X - ENDIF -ENDSUB - -SUB SETWARRAY(WORD Á[], WORD LEN) - WORD I=0 - FOR I=0:LEN-1 - Á[I] = I - ENDFOR -ENDSUB - -SUB SUMWARRAY(WORD Á[], WORD LEN) - WORD I=0 - IW=0 - FOR I=0:LEN-1 - IW=IW+Á[I] - ENDFOR -ENDSUB - -SUB SETBARRAY(BYTE Á[], WORD LEN) - WORD I=0 - FOR I=0:LEN-1 - Á[I] = I - ENDFOR -ENDSUB - -SUB SUMBARRAY(BYTE Á[], WORD LEN) - WORD I=0 - IW=0 - FOR I=0:LEN-1 - IW=IW+Á[I] - ENDFOR -ENDSUB - -SUB PBRFIRSTLEVEL(WORD ØØ[]) - CALL PBRSECONDLEVEL(ØØ) -ENDSUB - -SUB PBRSECONDLEVEL(WORD ØØ[]) - BYTE I=0 - FOR I=0:9 - ØØ[I]=123 - ENDFOR -ENDSUB - -SUB WRAPPER() - WORD XYZ[10]={} - CALL PBRFIRSTLEVEL(XYZ) - CALL EXPECT(XYZ[3]==123) -ENDSUB - -SUB RECURSE2(WORD X) - IF X==0 - RETURN 1; - ELSE - RETURN RECURSE2(X-1)*X - ENDIF -ENDSUB - -' ×HY DOES THIS NOT WORK, EVEN THOUGH -' RECURSE2() WORKS FINE?? -SUB RECURSE3(WORD X) - IF X==0 - RETURN 1; - ELSE - RETURN X*RECURSE3(X-1) - ENDIF -ENDSUB - -SUB LW1() - WORD LOC=2 - IW=IW*LOC - RETURN 0 -ENDSUB - -SUB LB1() - BYTE LOC=2 - IW=IW*LOC - RETURN 0 -ENDSUB - -SUB LW2() - WORD LOC=0 - LOC=4 - IW=IW*LOC - RETURN 0 -ENDSUB - -SUB LB2() - BYTE LOC=0 - LOC=4 - IW=IW*LOC - RETURN 0 -ENDSUB - -SUB LPW1() - IW=0 - WORD XX=0 - WORD ADDR=&XX - *ADDR=1234 - IF XX==1234 - IW=1 - ENDIF - RETURN 0 -ENDSUB - -SUB LPB1() - IW=0 - BYTE XX=0 - WORD ADDR=&XX - ^ADDR=123 - IF XX==123 - IW=1 - ENDIF - RETURN 0 -ENDSUB - -SUB GP1() - IW=0 - WORD ADDR=&IW - *ADDR=5436 - IF IW==5436 - IW=1 - ENDIF - RETURN 0 -ENDSUB - -' -' ÕTILITY SUBROUTINES -' -SUB EXPECT(BYTE B) - PR.DEC COUNTER - PR.MSG ": " - COUNTER=COUNTER+1 - IF B - PR.MSG " ÐASS " - ELSE - PR.MSG " ÆÁÉÌ " - FAILS=FAILS+1 - ENDIF - PR.NL - RETURN 0 -ENDSUB - -SUB DONE() - IF FAILS==0 - PR.MSG "*** ÁÌÌ "; PR.DEC COUNTER-1; PR.MSG " ÔÅÓÔÓ ÐÁÓÓÅÄ ***"; PR.NL - ELSE - PR.MSG "*** "; PR.DEC FAILS; PR.CH '/'; PR.DEC COUNTER-1; PR.MSG " ÔÅÓÔÓ ÆÁÉÌÅÄ ***"; PR.NL - ENDIF -ENDSUB -