blob: 646b9d0839ca2dec57fd5d47e9c702a10da93daa (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
{ Testing smallset + normset }
{ with respect to normset + smallset }
type
charset=set of char;
var
err : byte;
tr,tr2 : charset;
procedure test(const k:charset);
begin
tr:=[#7..#10]+k;
tr2:=k+[#7..#10];
end;
begin
err:=0;
Test([#20..#32]);
if not(#32 in tr) then
err:=1;
if ([#33..#255]*tr <> []) then
err:=2;
if (tr<>[#7..#10,#20..#32]) then
err:=3;
if (tr<>tr2) then
err:=4;
if err<>0 then
begin
Writeln('Bug in set handling, see err:=',err);
halt(1);
end;
end.
|
