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

* fixes to run correctly

Browse Source
This commit is contained in:
peter 2000-03-19 18:45:31 +00:00
parent a61493db4c
commit 966a4a1789
11 changed files with 149 additions and 121 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
tests/Makefile
View File

@ -1,5 +1,5 @@
# #
# Makefile generated by fpcmake v0.99.13 [2000/02/08] # Makefile generated by fpcmake v0.99.13 [2000/02/24]
# #
defaultrule: info defaultrule: info
@ -316,8 +316,22 @@ endif
# Users rules # Users rules
##################################################################### #####################################################################
# For linux by default no graph tests
ifdef inlinux
NOGRAPH=1
endif
DIRS=tf ts tbs tbf test tesi to webtbs webtbf DIRS=tf ts tbs tbf test tesi to webtbs webtbf
# defining NOGRAPH excludes tests using the graph unit, defining
# GRAPH includes those tests.
ifdef NOGRAPH
include graph.lst
endif
ifdef GRAPH
graphlst=
endif
all : info all : info
tests : clean all_compilations tests : clean all_compilations
@ -417,6 +431,7 @@ else
testexec: testexec:
ifeq ($(wildcard $(FILE)$(PPUEXT)),$(FILE)$(PPUEXT)) ifeq ($(wildcard $(FILE)$(PPUEXT)),$(FILE)$(PPUEXT))
@echo "file is a unit $(FILE)$(PPUEXT)" @echo "file is a unit $(FILE)$(PPUEXT)"
@echo "unit" > $(FILE).elg
else else
@echo "No exefile $(FILE)$(EXEEXT)" @echo "No exefile $(FILE)$(EXEEXT)"
@echo $(FILE) >> faillist @echo $(FILE) >> faillist
@ -488,30 +503,30 @@ testone :
%.eli : %.res %.eli : %.res
$(MAKE) testexec 'FILE=$*' 'NOREDIR=YES' $(MAKE) testexec 'FILE=$*' 'NOREDIR=YES'
allts : $(patsubst %.pp,%.res,$(wildcard ts/ts*.pp)) allts : $(patsubst %.pp,%.res,$(filter-out $(graphlst),$(wildcard ts/ts*.pp)))
alltbs : $(patsubst %.pp,%.res,$(wildcard tbs/tbs*.pp)) alltbs : $(patsubst %.pp,%.res,$(filter-out $(graphlst),$(wildcard tbs/tbs*.pp)))
allwebtbs : $(patsubst %.pp,%.res,$(wildcard webtbs/tbug*.pp)) allwebtbs : $(patsubst %.pp,%.res,$(filter-out $(graphlst),$(wildcard webtbs/tbug*.pp)))
tbs0to99 : $(patsubst %.pp,%.res,$(wildcard tbs/tbs00*.pp)) tbs0to99 : $(patsubst %.pp,%.res,$(filter-out $(graphlst),$(wildcard tbs/tbs00*.pp)))
tbs100to199 : $(patsubst %.pp,%.res,$(wildcard tbs/tbs01*.pp)) tbs100to199 : $(patsubst %.pp,%.res,$(filter-out $(graphlst),$(wildcard tbs/tbs01*.pp)))
tbs200to299 : $(patsubst %.pp,%.res,$(wildcard tbs/tbs02*.pp)) tbs200to299 : $(patsubst %.pp,%.res,$(filter-out $(graphlst),$(wildcard tbs/tbs02*.pp)))
tbs300to399 : $(patsubst %.pp,%.res,$(wildcard tbs/tbs03*.pp)) tbs300to399 : $(patsubst %.pp,%.res,$(filter-out $(graphlst),$(wildcard tbs/tbs03*.pp)))
alltest : $(patsubst %.pp,%.res,$(wildcard test/test*.pp)) alltest : $(patsubst %.pp,%.res,$(filter-out $(graphlst),$(wildcard test/test*.pp)))
alltesi : $(patsubst %.pp,%.res,$(wildcard tesi/tesi*.pp)) alltesi : $(patsubst %.pp,%.res,$(filter-out $(graphlst),$(wildcard tesi/tesi*.pp)))
alltis : $(patsubst %.pp,%.res,$(wildcard tis/tis*.pp)) alltis : $(patsubst %.pp,%.res,$(filter-out $(graphlst),$(wildcard tis/tis*.pp)))
alltf : $(patsubst %.pp,%.ref,$(wildcard tf/tf*.pp)) alltf : $(patsubst %.pp,%.ref,$(filter-out $(graphlst),$(wildcard tf/tf*.pp)))
alltbf : $(patsubst %.pp,%.ref,$(wildcard tbf/tbf*.pp)) alltbf : $(patsubst %.pp,%.ref,$(filter-out $(graphlst),$(wildcard tbf/tbf*.pp)))
allwebtbf : $(patsubst %.pp,%.ref,$(wildcard webtbf/tbug*.pp)) allwebtbf : $(patsubst %.pp,%.ref,$(filter-out $(graphlst),$(wildcard webtbf/tbug*.pp)))
allto : $(patsubst %.pp,%.res,$(wildcard to/to*.pp)) allto : $(patsubst %.pp,%.res,$(filter-out $(graphlst),$(wildcard to/to*.pp)))
ifndef TS_FAIL_LIST ifndef TS_FAIL_LIST
ifeq ($(wildcard ts_fail*),ts_fail) ifeq ($(wildcard ts_fail*),ts_fail)
@ -564,20 +579,20 @@ allfails :
# these test are interactive # these test are interactive
# no redirection !!! # no redirection !!!
alltesiexec: $(patsubst %.pp,%.eli,$(wildcard tesi/tesi*.pp)) alltesiexec: $(patsubst %.pp,%.eli,$(filter-out $(graphlst),$(wildcard tesi/tesi*.pp)))
alltsexec: $(patsubst %.pp,%.elg,$(wildcard ts/ts*.pp)) alltsexec: $(patsubst %.pp,%.elg,$(filter-out $(graphlst),$(wildcard ts/ts*.pp)))
alltbsexec: $(patsubst %.pp,%.elg,$(wildcard tbs/tbs*.pp)) alltbsexec: $(patsubst %.pp,%.elg,$(filter-out $(graphlst),$(wildcard tbs/tbs*.pp)))
allwebtbsexec: $(patsubst %.pp,%.elg,$(wildcard webtbs/tbug*.pp)) allwebtbsexec: $(patsubst %.pp,%.elg,$(filter-out $(graphlst),$(wildcard webtbs/tbug*.pp)))
tbsexec0to99 : $(patsubst %.pp,%.elg,$(wildcard tbs/tbs00*.pp)) tbsexec0to99 : $(patsubst %.pp,%.elg,$(filter-out $(graphlst),$(wildcard tbs/tbs00*.pp)))
tbsexec100to199 : $(patsubst %.pp,%.elg,$(wildcard tbs/tbs01*.pp)) tbsexec100to199 : $(patsubst %.pp,%.elg,$(filter-out $(graphlst),$(wildcard tbs/tbs01*.pp)))
tbsexec200to299 : $(patsubst %.pp,%.elg,$(wildcard tbs/tbs02*.pp)) tbsexec200to299 : $(patsubst %.pp,%.elg,$(filter-out $(graphlst),$(wildcard tbs/tbs02*.pp)))
tbsexec300to399 : $(patsubst %.pp,%.elg,$(wildcard tbs/tbs03*.pp)) tbsexec300to399 : $(patsubst %.pp,%.elg,$(filter-out $(graphlst),$(wildcard tbs/tbs03*.pp)))
alltisexec: $(patsubst %.pp,%.eli,$(wildcard tis/tis*.pp)) alltisexec: $(patsubst %.pp,%.eli,$(filter-out $(graphlst),$(wildcard tis/tis*.pp)))
clean: clean:
-rm -f $(addsuffix /*.re*,$(DIRS)) -rm -f $(addsuffix /*.re*,$(DIRS))
@ -591,7 +606,8 @@ ifdef inlinux
else else
-rm -f $(addsuffix /*$(EXEEXT),$(DIRS)) -rm -f $(addsuffix /*$(EXEEXT),$(DIRS))
endif endif
-rm -f $(LOG) $(LONGLOG) faillist ts_fail tf_fail -rm -f *.tmp
-rm -f $(LOG) $(LONGLOG) faillist ts_fail tf_fail ex_fail
-rm -f fpcmaked ppas.sh ppas.bat retcode -rm -f fpcmaked ppas.sh ppas.bat retcode
info : info :

64
tests/Makefile.fpc
View File

@ -10,8 +10,22 @@ none=1
exts=1 exts=1
[rules] [rules]
# For linux by default no graph tests
ifdef inlinux
NOGRAPH=1
endif
DIRS=tf ts tbs tbf test tesi to webtbs webtbf DIRS=tf ts tbs tbf test tesi to webtbs webtbf
# defining NOGRAPH excludes tests using the graph unit, defining
# GRAPH includes those tests.
ifdef NOGRAPH
include graph.lst
endif
ifdef GRAPH
graphlst=
endif
all : info all : info
tests : clean all_compilations tests : clean all_compilations
@ -111,6 +125,7 @@ else
testexec: testexec:
ifeq ($(wildcard $(FILE)$(PPUEXT)),$(FILE)$(PPUEXT)) ifeq ($(wildcard $(FILE)$(PPUEXT)),$(FILE)$(PPUEXT))
@echo "file is a unit $(FILE)$(PPUEXT)" @echo "file is a unit $(FILE)$(PPUEXT)"
@echo "unit" > $(FILE).elg
else else
@echo "No exefile $(FILE)$(EXEEXT)" @echo "No exefile $(FILE)$(EXEEXT)"
@echo $(FILE) >> faillist @echo $(FILE) >> faillist
@ -182,30 +197,30 @@ testone :
%.eli : %.res %.eli : %.res
$(MAKE) testexec 'FILE=$*' 'NOREDIR=YES' $(MAKE) testexec 'FILE=$*' 'NOREDIR=YES'
allts : $(patsubst %.pp,%.res,$(wildcard ts/ts*.pp)) allts : $(patsubst %.pp,%.res,$(filter-out $(graphlst),$(wildcard ts/ts*.pp)))
alltbs : $(patsubst %.pp,%.res,$(wildcard tbs/tbs*.pp)) alltbs : $(patsubst %.pp,%.res,$(filter-out $(graphlst),$(wildcard tbs/tbs*.pp)))
allwebtbs : $(patsubst %.pp,%.res,$(wildcard webtbs/tbug*.pp)) allwebtbs : $(patsubst %.pp,%.res,$(filter-out $(graphlst),$(wildcard webtbs/tbug*.pp)))
tbs0to99 : $(patsubst %.pp,%.res,$(wildcard tbs/tbs00*.pp)) tbs0to99 : $(patsubst %.pp,%.res,$(filter-out $(graphlst),$(wildcard tbs/tbs00*.pp)))
tbs100to199 : $(patsubst %.pp,%.res,$(wildcard tbs/tbs01*.pp)) tbs100to199 : $(patsubst %.pp,%.res,$(filter-out $(graphlst),$(wildcard tbs/tbs01*.pp)))
tbs200to299 : $(patsubst %.pp,%.res,$(wildcard tbs/tbs02*.pp)) tbs200to299 : $(patsubst %.pp,%.res,$(filter-out $(graphlst),$(wildcard tbs/tbs02*.pp)))
tbs300to399 : $(patsubst %.pp,%.res,$(wildcard tbs/tbs03*.pp)) tbs300to399 : $(patsubst %.pp,%.res,$(filter-out $(graphlst),$(wildcard tbs/tbs03*.pp)))
alltest : $(patsubst %.pp,%.res,$(wildcard test/test*.pp)) alltest : $(patsubst %.pp,%.res,$(filter-out $(graphlst),$(wildcard test/test*.pp)))
alltesi : $(patsubst %.pp,%.res,$(wildcard tesi/tesi*.pp)) alltesi : $(patsubst %.pp,%.res,$(filter-out $(graphlst),$(wildcard tesi/tesi*.pp)))
alltis : $(patsubst %.pp,%.res,$(wildcard tis/tis*.pp)) alltis : $(patsubst %.pp,%.res,$(filter-out $(graphlst),$(wildcard tis/tis*.pp)))
alltf : $(patsubst %.pp,%.ref,$(wildcard tf/tf*.pp)) alltf : $(patsubst %.pp,%.ref,$(filter-out $(graphlst),$(wildcard tf/tf*.pp)))
alltbf : $(patsubst %.pp,%.ref,$(wildcard tbf/tbf*.pp)) alltbf : $(patsubst %.pp,%.ref,$(filter-out $(graphlst),$(wildcard tbf/tbf*.pp)))
allwebtbf : $(patsubst %.pp,%.ref,$(wildcard webtbf/tbug*.pp)) allwebtbf : $(patsubst %.pp,%.ref,$(filter-out $(graphlst),$(wildcard webtbf/tbug*.pp)))
allto : $(patsubst %.pp,%.res,$(wildcard to/to*.pp)) allto : $(patsubst %.pp,%.res,$(filter-out $(graphlst),$(wildcard to/to*.pp)))
ifndef TS_FAIL_LIST ifndef TS_FAIL_LIST
ifeq ($(wildcard ts_fail*),ts_fail) ifeq ($(wildcard ts_fail*),ts_fail)
@ -258,20 +273,20 @@ allfails :
# these test are interactive # these test are interactive
# no redirection !!! # no redirection !!!
alltesiexec: $(patsubst %.pp,%.eli,$(wildcard tesi/tesi*.pp)) alltesiexec: $(patsubst %.pp,%.eli,$(filter-out $(graphlst),$(wildcard tesi/tesi*.pp)))
alltsexec: $(patsubst %.pp,%.elg,$(wildcard ts/ts*.pp)) alltsexec: $(patsubst %.pp,%.elg,$(filter-out $(graphlst),$(wildcard ts/ts*.pp)))
alltbsexec: $(patsubst %.pp,%.elg,$(wildcard tbs/tbs*.pp)) alltbsexec: $(patsubst %.pp,%.elg,$(filter-out $(graphlst),$(wildcard tbs/tbs*.pp)))
allwebtbsexec: $(patsubst %.pp,%.elg,$(wildcard webtbs/tbug*.pp)) allwebtbsexec: $(patsubst %.pp,%.elg,$(filter-out $(graphlst),$(wildcard webtbs/tbug*.pp)))
tbsexec0to99 : $(patsubst %.pp,%.elg,$(wildcard tbs/tbs00*.pp)) tbsexec0to99 : $(patsubst %.pp,%.elg,$(filter-out $(graphlst),$(wildcard tbs/tbs00*.pp)))
tbsexec100to199 : $(patsubst %.pp,%.elg,$(wildcard tbs/tbs01*.pp)) tbsexec100to199 : $(patsubst %.pp,%.elg,$(filter-out $(graphlst),$(wildcard tbs/tbs01*.pp)))
tbsexec200to299 : $(patsubst %.pp,%.elg,$(wildcard tbs/tbs02*.pp)) tbsexec200to299 : $(patsubst %.pp,%.elg,$(filter-out $(graphlst),$(wildcard tbs/tbs02*.pp)))
tbsexec300to399 : $(patsubst %.pp,%.elg,$(wildcard tbs/tbs03*.pp)) tbsexec300to399 : $(patsubst %.pp,%.elg,$(filter-out $(graphlst),$(wildcard tbs/tbs03*.pp)))
alltisexec: $(patsubst %.pp,%.eli,$(wildcard tis/tis*.pp)) alltisexec: $(patsubst %.pp,%.eli,$(filter-out $(graphlst),$(wildcard tis/tis*.pp)))
clean: clean:
-rm -f $(addsuffix /*.re*,$(DIRS)) -rm -f $(addsuffix /*.re*,$(DIRS))
@ -285,7 +300,8 @@ ifdef inlinux
else else
-rm -f $(addsuffix /*$(EXEEXT),$(DIRS)) -rm -f $(addsuffix /*$(EXEEXT),$(DIRS))
endif endif
-rm -f $(LOG) $(LONGLOG) faillist ts_fail tf_fail -rm -f *.tmp
-rm -f $(LOG) $(LONGLOG) faillist ts_fail tf_fail ex_fail
-rm -f fpcmaked ppas.sh ppas.bat retcode -rm -f fpcmaked ppas.sh ppas.bat retcode
info : info :

2
tests/tbs/tbs0098.pp
View File

@ -7,7 +7,7 @@ var
L:longint; L:longint;
S:string; S:string;
begin begin
assign(F,'tbs0098.pp'); { Assign F to itself } assign(F,'tbs/tbs0098.pp'); { Assign F to itself }
reset(F); { Open it (as a textfile) } reset(F); { Open it (as a textfile) }
ReadLn(F); { Just read some lines } ReadLn(F); { Just read some lines }
ReadLn(F); ReadLn(F);

17
tests/tbs/tbs0105.pp
View File

@ -8,10 +8,6 @@
{ Win32 signal support is still missing ! } { Win32 signal support is still missing ! }
{$ifdef OK} {$ifdef OK}
{$R+}
{ BOUND check error... I don't think this is a code generator error }
{ but an error because the type casting is not considered at all! }
{ Must be compiled with -Cr }
{$ifdef go32v2} {$ifdef go32v2}
uses dpmiexcp; uses dpmiexcp;
@ -23,23 +19,22 @@
function our_sig(l : longint) : longint;{$ifdef linux}cdecl;{$endif} function our_sig(l : longint) : longint;{$ifdef linux}cdecl;{$endif}
begin begin
{ If we land here the program works correctly !! } { If we land here the program works correctly !! }
Writeln('Bound check error signal recieved'); Writeln('Sigsegv signal recieved');
our_sig:=0; our_sig:=0;
Halt(0); Halt(0);
end; end;
Var Var
Sel: Word; Sel: Word;
v: longint; v: pointer;
{$endif OK} {$endif OK}
Begin Begin
{$ifdef OK} {$ifdef OK}
Signal(SIGSEGV,signalhandler(@our_sig)); Signal(SIGSEGV,signalhandler(@our_sig));
v:=$00ffffff; { generate a sigsegv by writing to null-address }
Sel:=word(v); sel:=0;
writeln(sel); v:=nil;
{ should trigger Bound check error } word(v^):=sel;
sel:=v;
{ we should not go to here } { we should not go to here }
Writeln('Error : signal not called'); Writeln('Error : signal not called');
Halt(1); Halt(1);

BIN
tests/tbs/tbs0111.pp
View File

Binary file not shown.

1
tests/tbs/tbs0132.pp
View File

@ -8,5 +8,6 @@ type
begin begin
a:=@a2; a:=@a2;
a2:=@a;
a:=a2^; a:=a2^;
end. end.

2
tests/tbs/tbs0238.pp
View File

@ -24,7 +24,7 @@ end;
begin begin
assign(fileof,'test.dat'); assign(fileof,'tbs0238.tmp');
rewrite(fileof); rewrite(fileof);
a:='dummy string !!'; a:='dummy string !!';
for nu:=1 to 8 do write(fileof,a); for nu:=1 to 8 do write(fileof,a);

2
tests/ts/ts010022.pp
View File

@ -24,7 +24,7 @@ const
single_pchar : pchar = 'Alone test'; single_pchar : pchar = 'Alone test';
const filename = 'ts010022.hlp'; const filename = 'ts010022.tmp';
var en : pchar; var en : pchar;
f : text; f : text;

0
tests/webtbs/tbug856.pp → tests/webtbf/tbug856.pp
View File

0
tests/webtbs/tbug856u.pp → tests/webtbf/tbug856u.pp
View File

2
tests/webtbs/tbug772.pp
View File

@ -25,7 +25,7 @@ end;
var Foo:tFoo; var Foo:tFoo;
begin begin
assign(t,'tbug772.txt'); assign(t,'tbug772.tmp');
rewrite(t); rewrite(t);
writeln(t,'4'); writeln(t,'4');
close(t); close(t);