gp.test.list

标准的GP源代码,由Andy Singleton维护

GPtests 1000	%list $Revision: 1.31 $ 
stop_on 1029	%stop on loop_too_nested_error|recurse_error|stop_on_error
seed 1		%Revision history at end
random
start 0		%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% seq 0
makenul r1	%check empty list
prtlist
scorep 0
break
end_test
seed 2
random
start 101	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% seq 1
makenul r1	%check one item list
insert d1 r1
prtlist
scorep 1 d1
break
end_test
seed 3
random
start 0		%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% seq 2
makenul r1	%Initialise list	Makenul
end r2		%Insert 9 items, chosen at randomInto sequential locations (nb
scoreq r2 r1	%use END to choose insert position)
break		%check contents of list after each using Printlist.
insert d1 r1
prtlist
scorep 1 d1
break
end r2
insert d2 r2
prtlist
scorep 2 d1 d2
break
end r3
insert d3 r3
prtlist	
scorep 3 d1 d2 d3
%break
end r4
insert d4 r4
prtlist	
scorep 4 d1 d2 d3 d4
%break
end r5
insert d5 r5
prtlist	
scorep 5 d1 d2 d3 d4 d5
%break
end r6
insert d6 r6
prtlist	
scorep  6 d1 d2 d3 d4 d5 d6
%break
end r7
insert d7 r7
prtlist	
scorep  7d1 d2 d3 d4 d5 d6 d7
%break
end r8
insert d8 r8
prtlist	
scorep  8 d1 d2 d3 d4 d5 d6 d7 d8
break
end r9
prev r8 r9
insert d9 r8
prtlist	
scorep  9 d1 d2 d3 d4 d5 d6 d7 d9 d8
break
set_ok prtlist
end_test
seed 4
random
start 103	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% seq 3
makenul r1	%Same again but insert at begining of list
first r2	%Insert 9 items, chosen at randomInto sequential locations (nb
scoreq r2 r1	%use first to choose insert position)
break		%check contents of list after each using Printlist.
insert d1 r1
prtlist
scorep 1 d1
%break
first r2
insert d2 r2
prtlist
scorep 2 d2 d1
break
first r3
insert d3 r3
prtlist	
scorep 3 d3 d2 d1
break
first r4
insert d4 r4
prtlist	
scorep 4 d4 d3 d2 d1
%break
first r5
insert d5 r5
prtlist	
scorep 5 d5 d4 d3 d2 d1
%break
%set_ok first
first r6
insert d6 r6
prtlist	
scorep  6 d6 d5 d4 d3 d2 d1
%break
first r7
insert d7 r7
prtlist	
scorep  7 d7 d6 d5 d4 d3 d2 d1
%break
first r8
insert d8 r8
prtlist	
scorep  8 d8 d7 d6 d5 d4 d3 d2 d1
break
first r9
next r8 r9
insert d9 r8
prtlist	
scorep  9 d8 d9 d7 d6 d5 d4 d3 d2 d1
break
set_ok first
set_ok prtlist
end_test
seed 5
random
start 0		%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%  seq 4
makenul r1      %Initialise list
first r2        %Insert items, choose location at random (from those in use) 
scoreq r2 r1    %
break     	%Use NEXT, PREVIOUS and END to choose positions
insert d1 r1	%and update.  Keep going to there are nine elements in
first r1	%the list.  check contents of list after each insert
prtlist		%using Printlist.  
scorep 1 d1
break
first r1
insert d2 r1
prtlist
scorep 2 d2 d1
break
first r1
next r2 r1
insert d3 r2
prtlist
scorep 3 d2 d3 d1
break
first r1
next r2 r1
insert d4 r2
prtlist
scorep 4 d2 d4 d3 d1
break
first r1
next r2 r1
next r2 r2
insert d5 r2
prtlist
scorep 5 d2 d4 d5 d3 d1
break
first r1
next r2 r1
next r2 r2
next r2 r2
insert d6 r2
prtlist
scorep 6 d2 d4 d5 d6 d3 d1
break
first r1
next r2 r1
next r2 r2
next r2 r2
next r2 r2
next r2 r2
insert d7 r2
prtlist
scorep 7 d2 d4 d5 d6 d3 d7 d1
break
first r1
next r2 r1
next r2 r2
next r2 r2
next r2 r2
next r2 r2
next r2 r2
next r2 r2
insert d8 r2
prtlist
scorep 8 d2 d4 d5 d6 d3 d7 d1 d8
break
first r1
insert d9 r1
prtlist
scorep 9 d9 d2 d4 d5 d6 d3 d7 d1 d8
break
set_ok first
set_ok next
set_ok prtlist
set_ok insert
end_test
seed 12
random
start 0			%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% seq 11
makenul r1		%Retriev. 2 Feb 1995
insert d1 r1		%insert random item. check can retrive it.
retriev r2 r1 
scoreq r2 d1
break
end_test
seed 13
random
start 112		% seq 12 insert random item. check can retrive it.
makenul r1
insert u1 r1 
retriev r2 r1 
scoreq r2 u1
break
end_test
seed 14
random
start 0		% seq 13 insert nine random items, in randomish order. 
makenul r1	%check can retrive all of them.
insert d1 r1
retriev r0 r1 
scoreq r0 d1
break
end r1
insert d2 r1			%d1 d2
retriev r0 r1 
scoreq r0 d2
break
first r1
retriev r0 r1 			%is orginal data still there?
scoreq r0 d1
break
next r2 r1
retriev r0 r2
scoreq r0 d2
break
next r0 r2
end r1
scoreq r0 r1			%first/next/end consistent
break
insert d3 r2			%d1 d3 d2
retriev r0 r2 
scoreq r0 d3
break
first r1
retriev r0 r1 			%is orginal data still there?
scoreq r0 d1
break
next r2 r1
retriev r0 r2
scoreq r0 d3
break
next r3 r2
retriev r0 r3
scoreq r0 d2
break
next r4 r3
end r9
scoreq r9 r4			%first/next/end consistent
break
insert d4 r1			%d4 d1 d3 d2
retriev r0 r1 
scoreq r0 d4
break
first r1
retriev r0 r1 			%is orginal data still there?
scoreq r0 d4
break
next r2 r1
retriev r0 r2
scoreq r0 d1
break
next r3 r2
retriev r0 r3
scoreq r0 d3
break
next r4 r3
retriev r0 r4
scoreq r0 d2
break
next r5 r4
end r9
scoreq r9 r5			%first/next/end consistent
break
insert d5 r1			%d5 d4 d1 d3 d2
retriev r0 r1 
scoreq r0 d5
break
first r1
retriev r0 r1 			%is orginal data still there?
scoreq r0 d5
break
next r2 r1
retriev r0 r2
scoreq r0 d4
break
next r3 r2
retriev r0 r3
scoreq r0 d1
break
next r4 r3
retriev r0 r4
scoreq r0 d3
break
next r5 r4
retriev r0 r5
scoreq r0 d2
break
next r6 r5
end r9
scoreq r9 r6			%first/next/end consistent
break
insert d6 r2			%d5 d6 d4 d1 d3 d2 
retriev r0 r2 
scoreq r0 d6
break
first r1
retriev r0 r1 			%is orginal data still there?
scoreq r0 d5
break
next r2 r1
retriev r0 r2
scoreq r0 d6
break
next r3 r2
retriev r0 r3
scoreq r0 d4
break
next r4 r3
retriev r0 r4
scoreq r0 d1
break
next r5 r4
retriev r0 r5
scoreq r0 d3
break
next r6 r5
retriev r0 r6
scoreq r0 d2
break
next r7 r6
end r9
scoreq r9 r7			%first/next/end consistent
break
insert d7 r3			%d5 d6 d7 d4 d1 d3 d2
retriev r0 r3 
scoreq r0 d7
break
first r1
retriev r0 r1 			%is orginal data still there?
scoreq r0 d5
break
next r2 r1
retriev r0 r2
scoreq r0 d6
break
next r3 r2
retriev r0 r3
scoreq r0 d7
break
next r4 r3
retriev r0 r4
scoreq r0 d4
break
next r5 r4
retriev r0 r5
scoreq r0 d1
break
next r6 r5
retriev r0 r6
scoreq r0 d3
break
next r7 r6
retriev r0 r7
scoreq r0 d2
break
next r8 r7
end r9
scoreq r9 r8			%first/next/end consistent
break
insert d8 r7			%d5 d6 d7 d4 d1 d3 d8 d2
retriev r0 r7 
scoreq r0 d8
break
first r1
retriev r0 r1 			%is orginal data still there?
scoreq r0 d5
break
next r2 r1
retriev r0 r2
scoreq r0 d6
break
next r3 r2
retriev r0 r3
scoreq r0 d7
break
next r4 r3
retriev r0 r4
scoreq r0 d4
break
next r5 r4
retriev r0 r5
scoreq r0 d1
break
next r6 r5
retriev r0 r6
scoreq r0 d3
break
next r7 r6
retriev r0 r7
scoreq r0 d8
break
next r8 r7
retriev r0 r8
scoreq r0 d2
break
next r9 r8
end r0
scoreq r0 r9			%first/next/end consistent
break
prev r1 r0
scoreq r1 r8
break
insert d9 r8			%d5 d6 d7 d4 d1 d3 d8 d9 d2
retriev r0 r8 
scoreq r0 d9
break
first r1		%%%%%%%%%%%%%%%
retriev r0 r1 
scoreq r0 d5
break
next r1 r1
retriev r0 r1 
scoreq r0 d6
break
next r1 r1
retriev r0 r1 
scoreq r0 d7
break
next r1 r1
retriev r0 r1 
scoreq r0 d4
break
next r1 r1
retriev r0 r1 
scoreq r0 d1
break
next r1 r1
retriev r0 r1 
scoreq r0 d3
break
next r1 r1
retriev r0 r1 
scoreq r0 d8
break
next r1 r1
retriev r0 r1 
scoreq r0 d9
break
next r1 r1
retriev r0 r1 
scoreq r0 d2
break
set_ok next
set_ok retriev
end_test
seed 15
random
start 114		%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% seq 14
makenul r0              %Next. 2 Feb 1995
insert u1 r0    	%Insert eight items in the list.
insert u2 r0
insert u3 r0
insert u4 r0
insert u5 r0
insert u6 r0
insert u7 r0
insert u8 r0
prtlist
scorep 8 u8 u7 u6 u5 u4 u3 u2 u1
break			%ensure insert is working
first r0 		%start from first, 
end r9			%check next points to each in turn correctly.
next r7 r0	%u7
next r6 r7	%u6
next r5 r6	%u5
next r4 r5	%u4
next r3 r4	%u3
next r2 r3	%u2
next r1 r2	%u1
next r8 r1	%end
scoreq r8 r9
scorneq 9 r0 r1 r2 r3 r4 r5 r6 r7 r9
break
end_test
%set_ok next
%set_ok end
seed 16
random
start 0			%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% seq 15
makenul r1              %prev. 2 Feb 1995
insert u1 r1    	%Insert eight items in the list.
insert u2 r1		%see also seq 18 and 19
insert u3 r1
insert u4 r1
insert u5 r1
insert u6 r1
insert u7 r1
insert u8 r1
prtlist
scorep 8 u8 u7 u6 u5 u4 u3 u2 u1
break			%ensure insert is working
first r9 		%start from first, 
end r0			%check prev points to each in turn correctly.
prev r1 r0	%u1
prev r2 r1	%u2
prev r3 r2	%u3
prev r4 r3	%u4
prev r5 r4	%u5
prev r6 r5	%u6
prev r7 r6	%u7
prev r8 r7	%u8
scoreq r8 r9
scorneq 9 r0 r1 r2 r3 r4 r5 r6 r7 r8
break
%set_ok prev
%set_ok end
%set_ok first
end_test
seed 17
random
start 116	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% seq 16 3 Feb 1995
makenul r1	%Makenul Run Insert tests but replacing initialise memory 
prtlist		%by break IE test seq 0 to 4 inclusive
scorep 0
break
makenul r1	%check one item list
insert d1 r1
prtlist
scorep 1 d1
break
makenul r1	%Initialise list	Makenul
end r2		%Insert 9 items, chosen at randomInto sequential locations (nb
scoreq r2 r1	%use END to choose insert position)
break		%check contents of list after each using Printlist.
insert d1 r1
prtlist
scorep 1 d1
break
end r2
insert d2 r2
prtlist
scorep 2 d1 d2
break
end r3
insert d3 r3
prtlist	
scorep 3 d1 d2 d3
%break
end r4
insert d4 r4
prtlist	
scorep 4 d1 d2 d3 d4
%break
end r5
insert d5 r5
prtlist	
scorep 5 d1 d2 d3 d4 d5
%break
end r6
insert d6 r6
prtlist	
scorep  6 d1 d2 d3 d4 d5 d6
%break
end r7
insert d7 r7
prtlist	
scorep  7d1 d2 d3 d4 d5 d6 d7
%break
end r8
insert d8 r8
prtlist	
scorep  8 d1 d2 d3 d4 d5 d6 d7 d8
break
end r9
prev r8 r9
insert d9 r8
prtlist	
scorep  9 d1 d2 d3 d4 d5 d6 d7 d9 d8
break
set_ok prtlist
makenul r1	%Same again but insert at begining of list
first r2	%Insert 9 items, chosen at randomInto sequential locations (nb
scoreq r2 r1	%use first to choose insert position)
break		%check contents of list after each using Printlist.
insert d1 r1
prtlist
scorep 1 d1
%break