paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 05:09:07 +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

68
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)
@ -553,7 +568,7 @@ internal_again : clean_fail $(addsuffix .res,$(TS_FAIL_LIST)) \
all_compilations : allts alltbs allwebtbs alltf alltbf allwebtbf allto alltest alltesi alltis all_compilations : allts alltbs allwebtbs alltf alltbf allwebtbf allto alltest alltesi alltis
grep fails $(LOG) grep fails $(LOG)
allexec : alltsexec alltbsexec allwebtbsexec alltestexec allexec : alltsexec alltbsexec allwebtbsexec alltestexec
grep fails $(LOG) grep fails $(LOG)
alltestexec: $(patsubst %.pp,%.elg,$(wildcard test/test*.pp)) alltestexec: $(patsubst %.pp,%.elg,$(wildcard test/test*.pp))
@ -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 :

176
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
@ -19,15 +33,15 @@ tests : clean all_compilations
cont_tests : all_compilations cont_tests : all_compilations
getret$(EXEEXT) : getret.pp getret$(EXEEXT) : getret.pp
$(FPC) getret $(FPC) getret
getreturncode : getret$(EXEEXT) getreturncode : getret$(EXEEXT)
ifndef inlinux ifndef inlinux
redir -ea $(FILE).log -oa $(FILE).log getret $(COMMAND) redir -ea $(FILE).log -oa $(FILE).log getret $(COMMAND)
cp retcode $(FILE).$(RESEXT) cp retcode $(FILE).$(RESEXT)
else else
getret $(COMMAND) > $(FILE).log 2>$(FILE).log getret $(COMMAND) > $(FILE).log 2>$(FILE).log
cp retcode $(FILE).$(RESEXT) cp retcode $(FILE).$(RESEXT)
# @echo "Return code of $(FILE) is $(cat retcode)" # @echo "Return code of $(FILE) is $(cat retcode)"
endif endif
@ -49,11 +63,11 @@ endif
ifeq ($(RETVAL),0) ifeq ($(RETVAL),0)
testsuccess: testsuccess:
@echo "Test for $(FILE) success (compiles)" @echo "Test for $(FILE) success (compiles)"
@echo "Test for $(FILE) success (compiles)" >>$(LOG) @echo "Test for $(FILE) success (compiles)" >>$(LOG)
else else
testsuccess: testsuccess:
@echo "Test for $(FILE) fails (does not compile) error $(RETVAL)" @echo "Test for $(FILE) fails (does not compile) error $(RETVAL)"
@echo "Test for $(FILE) fails (does not compile) error $(RETVAL)" >>$(LOG) @echo "Test for $(FILE) fails (does not compile) error $(RETVAL)" >>$(LOG)
ifdef LONGLOG ifdef LONGLOG
@echo ">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>" >> $(LONGLOG) @echo ">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>" >> $(LONGLOG)
@ -62,8 +76,8 @@ ifdef LONGLOG
cat $(FILE).log >> $(LONGLOG) cat $(FILE).log >> $(LONGLOG)
@echo "" >> $(LONGLOG) @echo "" >> $(LONGLOG)
endif endif
@echo $(FILE) >> ts_fail @echo $(FILE) >> ts_fail
@echo $(FILE) >> faillist @echo $(FILE) >> faillist
endif endif
ifdef EXCFILE ifdef EXCFILE
@ -78,11 +92,11 @@ endif
ifeq ($(EXERETVAL),0) ifeq ($(EXERETVAL),0)
testexecsuccess: testexecsuccess:
@echo "Test for exec $(FILE) success (runs without error)" @echo "Test for exec $(FILE) success (runs without error)"
@echo "Test for $(FILE) success (runs without error)" >> $(LOG) @echo "Test for $(FILE) success (runs without error)" >> $(LOG)
else else
testexecsuccess: testexecsuccess:
@echo "Test for exec $(FILE) fails exec error $(EXERETVAL)" @echo "Test for exec $(FILE) fails exec error $(EXERETVAL)"
@echo "Test for exec $(FILE) fails exec error $(EXERETVAL)" >> $(LOG) @echo "Test for exec $(FILE) fails exec error $(EXERETVAL)" >> $(LOG)
ifdef LONGLOG ifdef LONGLOG
@echo ">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>" >> $(LONGLOG) @echo ">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>" >> $(LONGLOG)
@ -95,25 +109,26 @@ endif
ifeq ($(wildcard $(FILE)$(EXEEXT)),$(FILE)$(EXEEXT)) ifeq ($(wildcard $(FILE)$(EXEEXT)),$(FILE)$(EXEEXT))
testexec: testexec:
@echo "Testing $(FILE)$(EXEEXT)" @echo "Testing $(FILE)$(EXEEXT)"
ifdef NOREDIR ifdef NOREDIR
getret $(FILE)$(EXEEXT) getret $(FILE)$(EXEEXT)
else else
ifndef inlinux ifndef inlinux
redir -e $(FILE).elg -o $(FILE).elg getret $(FILE)$(EXEEXT) redir -e $(FILE).elg -o $(FILE).elg getret $(FILE)$(EXEEXT)
else else
getret $(FILE)$(EXEEXT) > $(FILE).elg 2>$(FILE).elg getret $(FILE)$(EXEEXT) > $(FILE).elg 2>$(FILE).elg
endif endif
endif endif
cp -f retcode $(FILE).exc cp -f retcode $(FILE).exc
$(MAKE) testexecsuccess 'FILE=$(FILE)' 'EXCFILE=$(FILE).exc' $(MAKE) testexecsuccess 'FILE=$(FILE)' 'EXCFILE=$(FILE).exc'
else 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
ifdef LONGLOG ifdef LONGLOG
@echo "No exefile $(FILE)$(EXEEXT) was generated" >> $(LONGLOG) @echo "No exefile $(FILE)$(EXEEXT) was generated" >> $(LONGLOG)
endif endif
@ -121,23 +136,23 @@ endif
endif endif
test_exc : test_exc :
@echo $(wildcard $(FILE).exc*) @echo $(wildcard $(FILE).exc*)
@echo xx$(wildcard $(EXCFILE)*)xx xx$(EXCFILE)xx @echo xx$(wildcard $(EXCFILE)*)xx xx$(EXCFILE)xx
cat $(FILE).exc cat $(FILE).exc
ifneq ($(RETVAL),0) ifneq ($(RETVAL),0)
testfail: testfail:
@echo "Test for $(FILE) success (does not compile) error $(RETVAL)" @echo "Test for $(FILE) success (does not compile) error $(RETVAL)"
@echo "Test for $(FILE) success (does not compile) error $(RETVAL)" >> $(LOG) @echo "Test for $(FILE) success (does not compile) error $(RETVAL)" >> $(LOG)
else else
testfail: testfail:
@echo "Test for $(FILE) fails (does compile and should not)" @echo "Test for $(FILE) fails (does compile and should not)"
@echo "Test for $(FILE) fails (does compile and should not)" >> $(LOG) @echo "Test for $(FILE) fails (does compile and should not)" >> $(LOG)
ifdef LONGLOG ifdef LONGLOG
@echo "Test for $(FILE) fails (does compile and should not)" >> $(LONGLOG) @echo "Test for $(FILE) fails (does compile and should not)" >> $(LONGLOG)
endif endif
@echo $(FILE) >> tf_fail @echo $(FILE) >> tf_fail
@echo $(FILE) >> faillist @echo $(FILE) >> faillist
endif endif
ifndef LONGLOG ifndef LONGLOG
@ -161,51 +176,51 @@ FILE=ts/ts00001.pp
endif endif
testone : testone :
$(MAKE) getreturncode 'COMMAND=$(FPC) $(OPT) $(FILE).pp' 'RESEXT=$(RESEXT)' 'FILE=$(FILE)' $(MAKE) getreturncode 'COMMAND=$(FPC) $(OPT) $(FILE).pp' 'RESEXT=$(RESEXT)' 'FILE=$(FILE)'
%.res : %.pp %.res : %.pp
$(MAKE) testone 'FILE=$*' 'RESEXT=res' $(MAKE) testone 'FILE=$*' 'RESEXT=res'
$(MAKE) testsuccess 'FILE=$*' 'RESFILE=$*.res' $(MAKE) testsuccess 'FILE=$*' 'RESFILE=$*.res'
%.ref : %.pp %.ref : %.pp
$(MAKE) testone 'FILE=$*' 'RESEXT=ref' $(MAKE) testone 'FILE=$*' 'RESEXT=ref'
$(MAKE) testfail 'FILE=$*' 'RESFILE=$*.ref' $(MAKE) testfail 'FILE=$*' 'RESFILE=$*.ref'
# exec log files # exec log files
# creates two files # creates two files
# *.elg log file # *.elg log file
# *.exc exicode of program # *.exc exicode of program
%.elg : %.res %.elg : %.res
$(MAKE) testexec 'FILE=$*' $(MAKE) testexec 'FILE=$*'
%.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)
@ -229,8 +244,8 @@ endif
endif endif
clean_fail : clean_fail :
-rm -f $(addsuffix .res,$(TS_FAIL_LIST)) -rm -f $(addsuffix .res,$(TS_FAIL_LIST))
-rm -f $(addsuffix .ref,$(TF_FAIL_LIST)) -rm -f $(addsuffix .ref,$(TF_FAIL_LIST))
-rm -f $(addsuffix .res,$(EXEC_FAIL_LIST)) -rm -f $(addsuffix .res,$(EXEC_FAIL_LIST))
-rm -f $(addsuffix .elg,$(EXEC_FAIL_LIST)) -rm -f $(addsuffix .elg,$(EXEC_FAIL_LIST))
@ -247,7 +262,7 @@ internal_again : clean_fail $(addsuffix .res,$(TS_FAIL_LIST)) \
all_compilations : allts alltbs allwebtbs alltf alltbf allwebtbf allto alltest alltesi alltis all_compilations : allts alltbs allwebtbs alltf alltbf allwebtbf allto alltest alltesi alltis
grep fails $(LOG) grep fails $(LOG)
allexec : alltsexec alltbsexec allwebtbsexec alltestexec allexec : alltsexec alltbsexec allwebtbsexec alltestexec
grep fails $(LOG) grep fails $(LOG)
alltestexec: $(patsubst %.pp,%.elg,$(wildcard test/test*.pp)) alltestexec: $(patsubst %.pp,%.elg,$(wildcard test/test*.pp))
@ -258,44 +273,45 @@ 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))
-rm -f $(addsuffix /*$(PPUEXT),$(DIRS)) -rm -f $(addsuffix /*$(PPUEXT),$(DIRS))
-rm -f $(addsuffix /*$(OEXT),$(DIRS)) -rm -f $(addsuffix /*$(OEXT),$(DIRS))
-rm -f $(addsuffix /*.log,$(DIRS)) -rm -f $(addsuffix /*.log,$(DIRS))
-rm -f $(addsuffix /*.elg,$(DIRS)) -rm -f $(addsuffix /*.elg,$(DIRS))
-rm -f $(addsuffix /*.exc,$(DIRS)) -rm -f $(addsuffix /*.exc,$(DIRS))
ifdef inlinux ifdef inlinux
-rm -f $(patsubst %.pp,%$(EXEEXT),$(wildcard $(addsuffix /t*.pp,$(DIRS)))) -rm -f $(patsubst %.pp,%$(EXEEXT),$(wildcard $(addsuffix /t*.pp,$(DIRS))))
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 fpcmaked ppas.sh ppas.bat retcode -rm -f $(LOG) $(LONGLOG) faillist ts_fail tf_fail ex_fail
-rm -f fpcmaked ppas.sh ppas.bat retcode
info : info :
@echo This Makefile allows to test the compiler @echo This Makefile allows to test the compiler
@echo compilation of 'ts*.pp' should succeed @echo compilation of 'ts*.pp' should succeed
@echo compilation of 'tf*.pp' should fail @echo compilation of 'tf*.pp' should fail
@echo compilation of 'test*.pp' should succeed @echo compilation of 'test*.pp' should succeed
@echo 'to*.pp' files should also compile @echo 'to*.pp' files should also compile
@echo simply run \'make tests\' to test all compilation @echo simply run \'make tests\' to test all compilation
@echo run \'make allexec\' to test also if the executables @echo run \'make allexec\' to test also if the executables
@echo created behave like the should @echo created behave like the should
@echo run \'make tesiexec\' to test executables @echo run \'make tesiexec\' to test executables
@echo that require interactive mode @echo that require interactive mode

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);