paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 15:09:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

no message

Browse Source
This commit is contained in:
florian 2004-05-23 14:14:43 +00:00
parent d6b865167c
commit ddd4d8bbae
1 changed files with 33 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
tests/tbs/tb0474.pp Normal file
View File

@ -0,0 +1,33 @@
{ $mode objfpc}
const
WideNull = widechar(#0);
WideSpace = widechar(#32);
var
w : widechar;
w2,w3 : widechar;
begin
w:=WideSpace;
w3:=WideSpace;
w2:=WideNull;
if not(w in [WideSpace]) then
begin
writeln('error 1');
halt(1);
end;
if not(w in [WideNull..WideSpace]) then
begin
writeln('error 2');
halt(1);
end;
if not(w in [WideNull..WideSpace,w3]) then
begin
writeln('error 3');
halt(1);
end;
if not(w in [WideNull..WideSpace,w2..w3]) then
begin
writeln('error 4');
halt(1);
end;
end.