projects/dstress: dstress.c annotate

annotate dstress.c @ 493:1418f225a81e

disabled debug output

author	thomask
date	Thu, 28 Apr 2005 06:57:27 +0000
parents	d091ff903fa4
children	0434764d4a66

rev	line source
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	1 /*
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	2 * core test tool for the DStress test suite
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	3 * http://dstress.kuehne.cn
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	4 *
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	5 * Copyright (C) 2005 Thomas Kuehne <thomas@kuehne.cn>
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	6 *
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	7 * This program is free software; you can redistribute it and/or modify
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	8 * it under the terms of the GNU General Public License as published by
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	9 * the Free Software Foundation; either version 2 of the License, or
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	10 * (at your option) any later version.
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	11 *
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	12 * This program is distributed in the hope that it will be useful,
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	15 * GNU General Public License for more details.
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	16 *
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	17 * You should have received a copy of the GNU General Public License
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	18 * along with this program; if not, write to the Free Software
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	19 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	20 *
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	21 * $HeadURL$
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	22 * $Date$
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	23 * $Author$
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	24 *
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	25 */
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	26
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	27 /* Beware: the code doesn't care about freeing allocated memory etc... */
432 db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	28
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	29 #include <stdlib.h>
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	30 #include <stdio.h>
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	31 #include <string.h>
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	32 #include <errno.h>
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	33
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	34 #define TAG "__DSTRESS_DFLAGS__"
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	35 #define OBJ "-odobj "
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	36 #define TLOG "log.tmp"
490 d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	37 #define CRASH_RUN "./crashRun__"
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	38
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	39 #define RUN 1
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	40 #define NORUN 2
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	41 #define COMPILE 4
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	42 #define NOCOMPILE 8
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	43
490 d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	44 /* secure malloc */
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	45 void *xmalloc(size_t size){
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	46 void *p;
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	47 if (p < 0){
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	48 fprintf(stderr,"Failed to allocate %zd bytes!\n", size);
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	49 exit(EXIT_FAILURE);
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	50 }
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	51 p = malloc(size);
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	52 if (p == NULL){
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	53 fprintf(stderr,"Failed to allocate %zd bytes!\n", size);
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	54 exit(EXIT_FAILURE);
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	55 }
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	56 return p;
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	57 }
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	58 #define malloc xmalloc
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	59
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	60 #ifdef __GNU_LIBRARY__
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	61 #define USE_POSIX
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	62 #endif
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	63
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	64 #ifdef __GLIBC__
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	65 #define USE_POSIX
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	66 #endif
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	67
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	68 #ifdef linux
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	69 #define USE_POSIX
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	70 #endif
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	71
273 68b883fe4fad added BSD support to the test framework thomask* parents: 261 diff changeset	72 #if defined(__APPLE__) && defined(__MACH__)
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	73 #define USE_POSIX
273 68b883fe4fad added BSD support to the test framework thomask* parents: 261 diff changeset	74 #endif
68b883fe4fad added BSD support to the test framework thomask* parents: 261 diff changeset	75
68b883fe4fad added BSD support to the test framework thomask* parents: 261 diff changeset	76 #ifdef __FreeBSD__
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	77 #define USE_POSIX
273 68b883fe4fad added BSD support to the test framework thomask* parents: 261 diff changeset	78 #endif
68b883fe4fad added BSD support to the test framework thomask* parents: 261 diff changeset	79
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	80
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	81 #ifdef USE_POSIX
254 a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	82
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	83 #include <sys/types.h>
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	84 #include <sys/stat.h>
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	85 #include <fcntl.h>
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	86 #include <unistd.h>
490 d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	87
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	88 #else
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	89 #ifdef WIN32
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	90
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	91 #include <windows.h>
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	92
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	93 #endif /* WIN 32 */
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	94 #endif /* USE_POSIX else */
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	95
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	96
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	97 char* loadFile(char* filename){
490 d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	98 #ifdef USE_POSIX
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	99 char* back = NULL;
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	100 struct stat fileInfo;
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	101 int file = open(filename, O_RDONLY);
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	102 if(errno == 0 && file != 0 && file != -1){
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	103 if(0==fstat(file, &fileInfo)){
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	104 back=malloc(fileInfo.st_size+1);
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	105 fileInfo.st_size = read(file, back, fileInfo.st_size);
440 dc186d1266ba fixed handling of empty files thomask parents: 439 diff changeset	106 if(fileInfo.st_size>=0){
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	107 *(back+fileInfo.st_size+1) = '\x00';
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	108 }else{
436 5e210bace0f1 added "File not found" clause thomask parents: 432 diff changeset	109 back = NULL;
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	110 }
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	111 }
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	112 close(file);
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	113 }
436 5e210bace0f1 added "File not found" clause thomask parents: 432 diff changeset	114
5e210bace0f1 added "File not found" clause thomask parents: 432 diff changeset	115 if(back){
5e210bace0f1 added "File not found" clause thomask parents: 432 diff changeset	116 return back;
5e210bace0f1 added "File not found" clause thomask parents: 432 diff changeset	117 }
440 dc186d1266ba fixed handling of empty files thomask parents: 439 diff changeset	118 if(0==strcmp(filename, TLOG)){
dc186d1266ba fixed handling of empty files thomask parents: 439 diff changeset	119 return calloc(1,sizeof(char));
dc186d1266ba fixed handling of empty files thomask parents: 439 diff changeset	120 }
436 5e210bace0f1 added "File not found" clause thomask parents: 432 diff changeset	121
5e210bace0f1 added "File not found" clause thomask parents: 432 diff changeset	122 fprintf(stderr, "File not found \"%s\"\n", filename);
5e210bace0f1 added "File not found" clause thomask parents: 432 diff changeset	123 exit(EXIT_FAILURE);
490 d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	124 #else
254 a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	125 #ifdef WIN32
a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	126
a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	127 char* back=NULL;
a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	128 DWORD size, numread;
a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	129 HANDLE file=CreateFile(filename, GENERIC_READ, FILE_SHARE_READ, NULL,
a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	130 OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL \| FILE_FLAG_SEQUENTIAL_SCAN, NULL);
a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	131 if (file != INVALID_HANDLE_VALUE){
a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	132 size = GetFileSize(file, NULL);
a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	133 if (size != INVALID_FILE_SIZE){
a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	134 back=malloc((size+1)*sizeof(char));
292 7e28d437d6d7 fixed Windows loadFile return code bug thomask parents: 273 diff changeset	135 if (ReadFile(file,back,size,&numread,NULL) == 1){
7e28d437d6d7 fixed Windows loadFile return code bug thomask parents: 273 diff changeset	136 if (numread==size){
254 a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	137 *(back+size+1) = '\x00';
292 7e28d437d6d7 fixed Windows loadFile return code bug thomask parents: 273 diff changeset	138 }else{
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	139 back = NULL;
292 7e28d437d6d7 fixed Windows loadFile return code bug thomask parents: 273 diff changeset	140 }
7e28d437d6d7 fixed Windows loadFile return code bug thomask parents: 273 diff changeset	141 }else{
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	142 back = NULL;
292 7e28d437d6d7 fixed Windows loadFile return code bug thomask parents: 273 diff changeset	143 }
254 a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	144 }
a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	145 CloseHandle(file);
a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	146 }
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	147 if(back){
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	148 errno = 0;
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	149 return back;
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	150 }
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	151
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	152 fprintf(stderr, "File not found \"%s\"\n", filename);
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	153 exit(EXIT_FAILURE);
490 d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	154 #else
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	155
490 d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	156 #error "no loadFile implementation present"
361 0147a35cbeb7 dif. fixes 5 thomask parents: 340 diff changeset	157
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	158 #endif /* WIN32 else */
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	159 #endif /* USE_POSIX else */
490 d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	160 }
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	161
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	162 /* cleanup "/" versus "\" in filenames */
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	163 char* cleanPathSeperator(char* filename){
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	164 char* pos;
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	165 #ifdef USE_POSIX
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	166 for(pos=strchr(filename, '\\'); pos; pos=strchr(filename, '\\')){
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	167 *pos='/';
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	168 }
439 edb0923c9159 cleanup for Linux(gcc) thomask parents: 438 diff changeset	169 #else
edb0923c9159 cleanup for Linux(gcc) thomask parents: 438 diff changeset	170 #if WIN32
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	171 for(pos=strchr(filename, '/'); pos; pos=strchr(filename, '/')){
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	172 *pos='\\';
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	173 }
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	174 #else
439 edb0923c9159 cleanup for Linux(gcc) thomask parents: 438 diff changeset	175 #error no cleanPathSeperator available for this system
edb0923c9159 cleanup for Linux(gcc) thomask parents: 438 diff changeset	176 #endif /* WIN32 else */
edb0923c9159 cleanup for Linux(gcc) thomask parents: 438 diff changeset	177 #endif /* USE_POSIX else */
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	178 return filename;
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	179 }
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	180
490 d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	181
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	182 /* Query the environment for the compiler name */
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	183 char* getCompiler(){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	184 char* back = getenv("DMD");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	185 if(back == NULL){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	186 back = getenv("dmd");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	187 if(back==NULL){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	188 back = "dmd";
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	189 }
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	190 }
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	191 return cleanPathSeperator(back);
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	192 }
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	193
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	194 /* Query the environment for general flags */
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	195 char* getGeneralFlags(){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	196 char* back = getenv("DFLAGS");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	197 if(back == NULL){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	198 back = getenv("dflags");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	199 if(back==NULL){
432 db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	200 back = calloc(1,1);
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	201 }
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	202 }
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	203 return cleanPathSeperator(back);
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	204 }
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	205
490 d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	206
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	207 /* extract the FIRST occurance of a given FLAG until the next linebreak */
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	208 char* getCaseFlag(const char* data, const char* tag){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	209 char* begin;
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	210 char* end1;
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	211 char* end2;
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	212 char* back;
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	213
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	214 if(data!=NULL && tag!=NULL){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	215 begin = strstr(data, tag);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	216 if(begin!=NULL){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	217 begin = begin+strlen(tag);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	218 end1 = strstr(begin, "\n");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	219 end2 = strstr(begin, "\r");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	220 if(end2!=NULL && ((end1!=NULL && end2<end1) \|\| end1==NULL)){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	221 end1=end2;
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	222 }
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	223 if(end1==NULL){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	224 end1 = begin + strlen(begin);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	225 }
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	226 back = malloc(end1-begin+1);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	227 strncpy(back, begin, end1-begin);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	228 back[end1-begin+1]='\x00';
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	229 return cleanPathSeperator(back);
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	230 }
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	231 }
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	232
429 1185c50d4b08 fix dstress.c's memory handling thomask parents: 405 diff changeset	233 return calloc(1,1);
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	234 }
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	235
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	236
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	237 int checkErrorMessage(const char* file_, const char* line_, const char* buffer){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	238
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	239 char* file;
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	240 char* line;
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	241 char* dmd;
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	242 char* gdc;
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	243
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	244 int back=0;
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	245
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	246 /* clean arguments */
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	247 if(strcmp(file_, "")!=0){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	248 file = malloc(strlen(file_)+1);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	249 strcpy(file, file_);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	250 }else{
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	251 file=NULL;
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	252 }
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	253
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	254 if(strcmp(line_, "")!=0){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	255 line = malloc(strlen(line_)+1);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	256 strcpy(line, line_);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	257 }else{
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	258 line=NULL;
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	259 }
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	260
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	261 /* gen patterns*/
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	262 if(file!=NULL){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	263 if(line!=NULL){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	264 dmd = malloc(strlen(file)+strlen(line)+5);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	265 dmd[0]='\x00';
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	266 strcat(dmd, file);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	267 strcat(dmd, "(");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	268 strcat(dmd, line);
405 7df87732c662 fixed DMD's pattern generator for in-message location thomask parents: 373 diff changeset	269 strcat(dmd, ")");
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	270 gdc = malloc(strlen(file)+strlen(line)+4);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	271 gdc[0]='\x00';
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	272 strcat(gdc, file);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	273 strcat(gdc, ":");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	274 strcat(gdc, line);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	275 strcat(gdc, ": ");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	276 }else{
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	277 dmd = malloc(strlen(file)+2);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	278 dmd[0]='\x00';
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	279 strcat(dmd, file);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	280 strcat(dmd, "(");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	281 gdc = malloc(strlen(file)+2);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	282 gdc[0]='\x00';
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	283 strcat(gdc, file);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	284 strcat(gdc, ":");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	285 }
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	286 }else if(line!=NULL){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	287 dmd = malloc(strlen(line)+5);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	288 dmd[0]='\x00';
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	289 strcat(dmd, "(");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	290 strcat(dmd, line);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	291 strcat(dmd, "): ");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	292 gdc = malloc(strlen(line)+4);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	293 gdc[0]='\x00';
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	294 strcat(gdc, ":");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	295 strcat(gdc, line);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	296 strcat(gdc, ": ");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	297 }else{
432 db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	298 return 1;
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	299 }
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	300
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	301 /* specific error messages */
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	302
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	303 if( (dmd!=NULL && strstr(buffer, dmd))
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	304 \|\| (gdc!=NULL && strstr(buffer, gdc))
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	305 \|\| (dmd==NULL && gdc==NULL)){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	306 back=1;
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	307 }
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	308
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	309 return back;
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	310 }
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	311
432 db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	312 int checkRuntimeErrorMessage(const char* file_, const char* line_, const char* buffer){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	313 /* PhobosLong dir/file.d(2)
490 d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	314 * Phobos package.module(2)
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	315 */
432 db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	316
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	317 char* file;
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	318 char* line;
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	319 char* phobos;
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	320 char* phobosLong;
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	321
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	322 char* begin;
439 edb0923c9159 cleanup for Linux(gcc) thomask parents: 438 diff changeset	323 char* end;
432 db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	324
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	325 int back=0;
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	326
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	327 /* clean arguments */
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	328 if(strcmp(file_, "")!=0){
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	329 file = malloc(strlen(file_)+1);
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	330 strcpy(file, file_);
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	331 }else{
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	332 file=NULL;
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	333 }
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	334
432 db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	335 if(strcmp(line_, "")!=0){
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	336 line = malloc(strlen(line_)+1);
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	337 strcpy(line, line_);
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	338 }else{
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	339 line=NULL;
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	340 }
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	341
432 db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	342 /* gen patterns*/
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	343 if(file!=NULL){
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	344 if(line!=NULL){
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	345 phobos = malloc(strlen(file)+strlen(line)+5);
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	346 phobos[0]='\x00';
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	347 begin=strrchr(file,'/');
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	348 if(begin){
432 db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	349 begin++;
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	350 }else{
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	351 begin=strrchr(file,'\\');
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	352 if(begin){
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	353 begin++;
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	354 }else{
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	355 begin=file;
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	356 }
432 db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	357 }
439 edb0923c9159 cleanup for Linux(gcc) thomask parents: 438 diff changeset	358 end=strrchr(file,'.');
edb0923c9159 cleanup for Linux(gcc) thomask parents: 438 diff changeset	359 strncat(phobos, begin, end-begin);
432 db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	360 strcat(phobos, "(");
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	361 strcat(phobos, line);
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	362 strcat(phobos, ")");
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	363
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	364 phobosLong = malloc(strlen(file)+strlen(line)+5);
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	365 phobosLong[0]='\x00';
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	366 strcat(phobosLong, file);
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	367 strcat(phobosLong, "(");
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	368 strcat(phobosLong, line);
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	369 strcat(phobosLong, ")");
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	370
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	371 }else{
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	372 phobos = malloc(strlen(file)+2);
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	373 phobos[0]='\x00';
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	374 begin=strrchr(file,'/');
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	375 if(begin){
432 db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	376 begin++;
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	377 }else{
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	378 begin=strrchr(file,'\\');
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	379 if(begin){
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	380 begin++;
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	381 }else{
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	382 begin=file;
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	383 }
432 db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	384 }
439 edb0923c9159 cleanup for Linux(gcc) thomask parents: 438 diff changeset	385 end=strrchr(file,'.');
edb0923c9159 cleanup for Linux(gcc) thomask parents: 438 diff changeset	386 strncat(phobos, begin, end-begin);
432 db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	387 strcat(phobos, "(");
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	388
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	389 phobosLong = malloc(strlen(file)+2);
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	390 phobosLong[0]='\x00';
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	391 strcat(phobosLong, file);
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	392 strcat(phobosLong, "(");
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	393 }
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	394 }else if(line!=NULL){
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	395 phobos = malloc(strlen(line)+3);
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	396 phobos[0]='\x00';
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	397 strcat(phobos, "(");
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	398 strcat(phobos, line);
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	399 strcat(phobos, ")");
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	400
432 db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	401 phobosLong=NULL;
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	402 }else{
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	403 return 1;
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	404 }
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	405
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	406 /* specific error messages */
432 db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	407
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	408 if( (phobos && strstr(buffer, phobos))
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	409 \|\| (phobosLong && strstr(buffer, phobosLong)))
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	410 {
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	411 back=1;
db4b6169a99d 1) implemented checkRuntimeErrorMessage thomask parents: 429 diff changeset	412 }
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	413
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	414 return back;
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	415 }
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	416
490 d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	417 int hadExecCrash(const char* buffer){
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	418 if(strstr(buffer, "Segmentation fault")!=NULL
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	419 \|\| strstr(buffer, "Internal error")!= NULL
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	420 \|\| strstr(buffer, "gcc.gnu.org/bugs")!=NULL)
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	421 {
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	422 return 1;
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	423 }
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	424 return 0;
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	425 }
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	426
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	427 /* segfault resitant system call with time out */
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	428 int crashRun(const char* cmd){
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	429 #ifdef USE_POSIX
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	430 char* buffer=malloc(4+strlen(CRASH_RUN)+strlen(cmd));
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	431 buffer[0]='\x00';
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	432 strcat(buffer, "\"");
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	433 strcat(buffer, CRASH_RUN);
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	434 strcat(buffer, "\" ");
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	435 strcat(buffer, cmd);
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	436 system(buffer);
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	437 buffer=loadFile(TLOG);
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	438
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	439 if(strstr(buffer, "EXIT CODE: 0")){
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	440 return EXIT_SUCCESS;
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	441 }else if(strstr(buffer, "EXIT CODE: 256")
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	442 \|\| strstr(buffer, "EXIT CODE: timeout"))
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	443 {
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	444 return EXIT_FAILURE;
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	445 }else{
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	446 return RAND_MAX;
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	447 }
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	448 #else
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	449
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	450 #error no crashRun implementation present
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	451
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	452 #endif /* USE_POSIX else */
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	453 }
d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	454
254 a39162afcc94 MSWindows port of "dstress.c" thomask parents: 251 diff changeset	455
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	456 int main(int argc, char* arg[]){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	457 char* compiler; /* the compiler - from enviroment flag "DMD" */
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	458 char* cmd_arg_general; /* additional arguments - from enviroment flag "DFLAGS" */
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	459 char* cmd_arg_case; /* additional arguments - from the testcase file */
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	460 char* buffer; /* general purpos buffer */
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	461 int modus; /* test modus: RUN NORUN COMPILE NOCOMPILE */
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	462 int res; /* return code from external executions */
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	463 char* case_file;
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	464 char* error_file; /* expected sourcefile containing the error */
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	465 char* error_line; /* expected error line */
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	466 int good_error; /* error contained file and line and matched the expectations */
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	467
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	468 /* check arguments */
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	469 if(argc != 3){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	470 err:
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	471 if(argc!=0)
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	472 fprintf(stderr,"%s <run\|norun\|compile\|nocompile> <source>\n", arg[0]);
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	473 else
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	474 fprintf(stderr,"dstress <run\|norun\|compile\|nocompile> <source>\n");
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	475 exit(EXIT_FAILURE);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	476 }
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	477
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	478 if(0==strcmp(arg[1], "run") \|\| 0==strcmp(arg[1], "RUN")){
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	479 modus = RUN;
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	480 }else if(0==strcmp(arg[1], "norun") \|\| 0==strcmp(arg[1], "NORUN")){
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	481 modus = NORUN;
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	482 }else if(0==strcmp(arg[1], "compile") \|\| 0==strcmp(arg[1], "COMPILE")){
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	483 modus = COMPILE;
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	484 }else if(0==strcmp(arg[1], "nocompile") \|\| 0==strcmp(arg[1], "NOCOMPILE")){
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	485 modus = NOCOMPILE;
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	486 }else{
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	487 goto err;
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	488 }
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	489
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	490 /* gen flags */
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	491 case_file = cleanPathSeperator(strdup(arg[2]));
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	492 compiler = getCompiler();
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	493 cmd_arg_general = getGeneralFlags();
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	494 buffer = loadFile(case_file);
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	495
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	496 cmd_arg_case = getCaseFlag(buffer, "__DSTRESS_DFLAGS__");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	497 error_line = getCaseFlag(buffer, "__DSTRESS_ELINE__");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	498 error_file = getCaseFlag(buffer, "__DSTRESS_EFILE__");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	499
493 1418f225a81e disabled debug output thomask parents: 490 diff changeset	500 #ifdef DEBUG
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	501 fprintf(stderr, "case: \"%s\"\n", case_file);
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	502 fprintf(stderr, "compiler: \"%s\"\n", compiler);
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	503 fprintf(stderr, "DFLAGS G: \"%s\"\n", cmd_arg_general);
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	504 fprintf(stderr, "DFLAGS C: \"%s\"\n", cmd_arg_case);
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	505 fprintf(stderr, "ELINE : \"%s\"\n", error_line);
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	506 fprintf(stderr, "EFILE : \"%s\"\n", error_file);
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	507 #endif
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	508
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	509 /* strip spaces */
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	510 while(error_line[0]==' '){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	511 error_line++;
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	512 }
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	513 for(buffer=error_line+strlen(error_line)-1; buffer && buffer[0]==' '; buffer=error_line+strlen(error_line)-1){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	514 buffer[0]='\x00';
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	515 }
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	516 while(error_file[0]==' '){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	517 error_file++;
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	518 }
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	519 for(buffer=error_file+strlen(error_file)-1; buffer && buffer[0]==' '; buffer=error_file+strlen(error_file)-1){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	520 buffer[0]='\x00';
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	521 }
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	522
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	523 /* set implicit source file */
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	524 if(strcmp(error_line, "")!=0 && strcmp(error_file, "")==0){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	525 error_file=case_file;
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	526 }
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	527
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	528 /* start working */
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	529 if(modus==COMPILE \|\| modus==NOCOMPILE){
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	530 /* gen command */
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	531 buffer = malloc(strlen(compiler)+strlen(cmd_arg_general)+strlen(cmd_arg_case)+strlen(OBJ)
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	532 +strlen(case_file)+strlen(TLOG)+64);
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	533 buffer[0]='\x00';
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	534 strcat(buffer, compiler);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	535 strcat(buffer, " ");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	536 strcat(buffer, cmd_arg_general);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	537 strcat(buffer, " ");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	538 strcat(buffer, cmd_arg_case);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	539 strcat(buffer, " -c ");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	540 if(NULL==strstr(buffer, "-od")){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	541 strcat(buffer, OBJ);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	542 strcat(buffer, " ");
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	543 }
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	544 strcat(buffer, case_file);
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	545 strcat(buffer, " 1> ");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	546 strcat(buffer, TLOG);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	547 strcat(buffer, " 2>&1");
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	548
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	549 /* test */
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	550 if(modus==COMPILE){
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	551 fprintf(stderr, "compile: %s\n", buffer);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	552 }else{
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	553 fprintf(stderr, "nocompile: %s\n", buffer);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	554 }
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	555 res = crashRun(buffer);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	556
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	557 /* diagnostic */
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	558 buffer = loadFile(TLOG);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	559 fprintf(stderr, "%s\n", buffer);
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	560 good_error = checkErrorMessage(error_file, error_line, buffer);
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	561
490 d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	562 if(hadExecCrash(buffer)){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	563 printf("ERROR:\t%s (Internal compiler error)\n", case_file);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	564 }else if(modus==COMPILE){
490 d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	565 if(res==EXIT_SUCCESS){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	566 printf("PASS: \t%s\n", case_file);
490 d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	567 }else if(res==EXIT_FAILURE && good_error){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	568 if(checkErrorMessage(case_file, "", buffer)){
27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	569 printf("FAIL: \t%s [%d]\n", case_file, res);
373 177ce8d13eac test cases that unexpectetly fail and in addition fail to provide file/line information are now treated as ERROR instead of FAIL thomask parents: 361 diff changeset	570 }else{
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	571 printf("ERROR:\t%s [%d] [bad error message]\n", case_file, res);
373 177ce8d13eac test cases that unexpectetly fail and in addition fail to provide file/line information are now treated as ERROR instead of FAIL thomask parents: 361 diff changeset	572 }
437 1b4034b27e93 added "[bad error message]" output thomask parents: 436 diff changeset	573 }else if(good_error){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	574 printf("ERROR:\t%s [%d]\n", case_file, res);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	575 }else{
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	576 printf("ERROR:\t%s [%d] [bad error message]\n", case_file, res);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	577 }
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	578 }else{
490 d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	579 if(res==EXIT_FAILURE){
361 0147a35cbeb7 dif. fixes 5 thomask parents: 340 diff changeset	580 if(good_error){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	581 printf("XFAIL:\t%s\n", case_file);
361 0147a35cbeb7 dif. fixes 5 thomask parents: 340 diff changeset	582 }else{
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	583 printf("FAIL: \t%s [bad error message]\n", case_file);
361 0147a35cbeb7 dif. fixes 5 thomask parents: 340 diff changeset	584 }
490 d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	585 }else if(res==EXIT_SUCCESS){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	586 printf("XPASS:\t%s\n", case_file);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	587 }else{
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	588 printf("ERROR:\t%s [%d]\n", case_file, res);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	589 }
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	590 }
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	591 fprintf(stderr,"--------\n");
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	592 }else if(modus==RUN \|\| modus==NORUN){
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	593 /* gen command */
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	594 buffer = malloc(strlen(compiler)+strlen(cmd_arg_general)+strlen(cmd_arg_case)+strlen(OBJ)
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	595 +strlen(case_file)*2+strlen(TLOG)+64);
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	596 buffer[0]='\x00';
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	597 strcat(buffer, compiler);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	598 strcat(buffer, " ");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	599 strcat(buffer, cmd_arg_general);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	600 strcat(buffer, " ");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	601 strcat(buffer, cmd_arg_case);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	602 strcat(buffer, " ");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	603 if(NULL==strstr(buffer, "-od")){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	604 strcat(buffer, OBJ);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	605 strcat(buffer, " ");
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	606 }
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	607 if(NULL==strstr(buffer, "-of")){
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	608 strcat(buffer, "-of");
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	609 strcat(buffer, case_file);
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	610 strcat(buffer, ".exe ");
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	611 }
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	612 strcat(buffer, case_file);
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	613 strcat(buffer, " 1> ");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	614 strcat(buffer, TLOG);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	615 strcat(buffer, " 2>&1");
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	616
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	617 /* test 1/2 */
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	618 if(modus==RUN){
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	619 fprintf(stderr, "run: %s\n", buffer);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	620 }else{
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	621 fprintf(stderr, "norun: %s\n", buffer);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	622 }
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	623 res = crashRun(buffer);
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	624
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	625 /* diagnostic 1/2 */
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	626 buffer = loadFile(TLOG);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	627 fprintf(stderr, "%s", buffer);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	628 good_error = checkErrorMessage(error_file, error_line, buffer);
490 d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	629 if(hadExecCrash(buffer)){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	630 printf("ERROR:\t%s (Internal compiler error)\n", case_file);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	631 fprintf(stderr, "\n--------\n");
437 1b4034b27e93 added "[bad error message]" output thomask parents: 436 diff changeset	632 return EXIT_SUCCESS;
490 d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	633 }else if(res==EXIT_FAILURE && good_error){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	634 printf("FAIL: \t%s [%d]\n", case_file, res);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	635 fprintf(stderr, "\n--------\n");
437 1b4034b27e93 added "[bad error message]" output thomask parents: 436 diff changeset	636 return EXIT_SUCCESS;
490 d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	637 }else if(res!=EXIT_SUCCESS){
437 1b4034b27e93 added "[bad error message]" output thomask parents: 436 diff changeset	638 if(good_error){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	639 printf("ERROR:\t%s [%d]\n", case_file, res);
437 1b4034b27e93 added "[bad error message]" output thomask parents: 436 diff changeset	640 }else{
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	641 printf("ERROR:\t%s [%d] [bad error message]\n", case_file, res);
437 1b4034b27e93 added "[bad error message]" output thomask parents: 436 diff changeset	642 }
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	643 fprintf(stderr, "\n--------\n");
437 1b4034b27e93 added "[bad error message]" output thomask parents: 436 diff changeset	644 return EXIT_SUCCESS;
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	645 }
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	646
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	647 /* test 2/2 */
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	648 buffer = malloc(strlen(case_file) + strlen(TLOG) + 24);
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	649 *buffer = '\x00';
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	650 strcat(buffer, case_file);
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	651 strcat(buffer, ".exe 1> ");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	652 strcat(buffer, TLOG);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	653 strcat(buffer, " 2>&1");
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	654 fprintf(stderr, "%s\n", buffer);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	655 res=crashRun(buffer);
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	656
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	657 /* diagnostic 2/2 */
339 a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	658 buffer = loadFile(TLOG);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	659 fprintf(stderr, "%s\n", buffer);
a74c84e75682 added error line tests (__DSTRESS_ELINE__ / __DSTRESS_EFILE__) thomask parents: 292 diff changeset	660 good_error = checkRuntimeErrorMessage(error_file, error_line, buffer);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	661 if(modus==RUN){
490 d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	662 if(res==EXIT_SUCCESS){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	663 printf("PASS: \t%s\n", case_file);
490 d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	664 }else if(res==EXIT_FAILURE && good_error){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	665 printf("FAIL: \t%s [run: %d]\n", case_file, res);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	666 }else{
437 1b4034b27e93 added "[bad error message]" output thomask parents: 436 diff changeset	667 if(good_error){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	668 printf("ERROR:\t%s [run: %d]\n", case_file, res);
437 1b4034b27e93 added "[bad error message]" output thomask parents: 436 diff changeset	669 }else{
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	670 printf("ERROR:\t%s [run: %d] [bad error message]\n", case_file, res);
437 1b4034b27e93 added "[bad error message]" output thomask parents: 436 diff changeset	671 }
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	672 }
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	673 }else{
490 d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	674 if(res==EXIT_FAILURE){
361 0147a35cbeb7 dif. fixes 5 thomask parents: 340 diff changeset	675 if(good_error){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	676 printf("XFAIL:\t%s\n", case_file);
361 0147a35cbeb7 dif. fixes 5 thomask parents: 340 diff changeset	677 }else{
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	678 printf("FAIL: \t%s [bad errror message]\n", case_file);
361 0147a35cbeb7 dif. fixes 5 thomask parents: 340 diff changeset	679 }
490 d091ff903fa4 added crashRun for POSIX systems thomask parents: 476 diff changeset	680 }else if(res==EXIT_SUCCESS){
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	681 printf("XPASS:\t%s [norun: %d]\n", case_file, res);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	682 }else{
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	683 printf("ERROR:\t%s [norun: %d]\n", case_file, res);
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	684 }
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	685 }
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	686 fprintf(stderr, "--------\n");
6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	687 }else{
438 27039d5cbe81 partial cleanup for Windows(dmc) thomask parents: 437 diff changeset	688 printf("@bug@ %d (%s)\n", modus, case_file);
436 5e210bace0f1 added "File not found" clause thomask parents: 432 diff changeset	689 return EXIT_FAILURE;
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	690 }
436 5e210bace0f1 added "File not found" clause thomask parents: 432 diff changeset	691 return EXIT_SUCCESS;
251 6cd84461e17b enabled new "dstress.c" test tool thomask parents: diff changeset	692 }

Mercurial > projects > dstress

annotate dstress.c @ 493:1418f225a81e