paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 13:59:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ test include and exclude too

Browse Source
This commit is contained in:
Jonas Maebe 2001-09-04 14:33:30 +00:00
parent 17b2fa3424
commit 19bda8da46
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
tests/test/tset2.pp
View File

@ -100,6 +100,17 @@ Begin
Begin
WriteLn(' FAILED.');
end;
Write('TESTING INCLUDE:');
op:=A_RTE;
include(oplist,op);
if op in oplist then
Begin
WriteLn(' PASSED.');
end
else
Begin
WriteLn(' FAILED.');
end;
end;
@ -140,7 +151,13 @@ Begin
if (A_MOVE in oplist) or (A_LABEL in oplist) or (A_JSR in oplist) then
WriteLn('TESTING SET_SUB_SETS: FAILED.')
else
WriteLn('TESTING SET_SUB_SETS: PASSED.')
WriteLn('TESTING SET_SUB_SETS: PASSED.');
oplist := [A_MOVE,A_RTE];
exclude(oplist,A_MOVE);
if (A_MOVE in oplist) then
WriteLn('TESTING EXCLUDE: FAILED.')
else
WriteLn('TESTING EXCLUDE: PASSED.')
end;
Procedure SetCompSets;