~drizzle-trunk/drizzle/development

test_strarg("strxmov(to,from,from,from,from,from,'!!',from,NullS)",strxmov(to,from,from,from,from,from,"!!",from,NullS),to+F_LEN*6+2,F_LEN,F_CHAR,F_LEN,F_CHAR,F_LEN,F_CHAR,F_LEN,F_CHAR,F_LEN,F_CHAR,2,'!',F_LEN,F_CHAR,1,0,0,0);

117

118

test_strarg("strxnmov(to,100,from,\"!!\",NullS)",strxnmov(to,100,from,"!!",NullS),to+F_LEN+2,F_LEN,F_CHAR,2,'!',0,0,0);

119

test_strarg("strxnmov(to,2,NullS)",strxnmov(to,2,NullS),to,1,0,0,0);

120

test_strarg("strxnmov(to,100,from,from,from,from,from,'!!',from,NullS)",strxnmov(to,100,from,from,from,from,from,"!!",from,NullS),to+F_LEN*6+2,F_LEN,F_CHAR,F_LEN,F_CHAR,F_LEN,F_CHAR,F_LEN,F_CHAR,F_LEN,F_CHAR,2,'!',F_LEN,F_CHAR,1,0,0,0);

121

test_strarg("strxnmov(to,2,\"!!!\",NullS)",strxnmov(to,2,"!!!",NullS),to+2,2,'!',0,0,0);

122

test_strarg("strxnmov(to,2,\"!!\",NullS)",strxnmov(to,2,"!!","xx",NullS),to+2,2,'!',0,0,0);

123

test_strarg("strxnmov(to,2,\"!\",\"x\",\"y\",NullS)",strxnmov(to,2,"!","x","y",NullS),to+2,1,'!',1,'x',0,0,0);

124

125

test_strarg("bchange(to,2,from,4,6)",(bchange(to,2,from,4,6),0L),INT_MAX32,

126

4,F_CHAR,2,T_CHAR,0,0);

127

128

printf("tests: %d errors: %d\n",tests,errors);

129

if (errors)

130

fputs("--- Some functions doesn't work!! Fix them\n",stderr);

131

return(errors > 0);

132

} /* main */

133

134

135

/* Init strings */

136

137

void init_strings(void)

138

{

139

reg1 int i;

140

reg2 char *pos;

141

142

from=from_buff+3; to=to_buff+3;

143

144

pos=from_buff; *pos++= F_FILL; *pos++=F_FILL; *pos++=F_PREFILL;

145

for (i=0 ; i < F_LEN ; i++)

146

*pos++=F_CHAR;

147

*pos++=0;

148

for (i=0; i<50 ; i++)

149

*pos++= F_FILL;

150

151

pos=to_buff; *pos++= T_FILL; *pos++=T_FILL; *pos++=T_PREFILL;

152

for (i=0 ; i < T_LEN ; i++)

153

*pos++=T_CHAR;

154

*pos++=0;

155

for (i=0; i<50 ; i++)

156

*pos++= T_FILL;

157

} /* init_strings */

158

159

160

/* Test that function return rigth value */

161

162

void test_arg(const char *message, long int func_value, long int value)

163

{

164

tests++;

165

printf("testing '%s'\n",message);

166

if (func_value != value)

167

{

168

printf("func: '%s' = %ld Should be: %ld\n",message,func_value,value);

169

errors++;

170

}

171

} /* test_arg */

172

173

/* Test function return value and from and to arrays */

174

175

static int test_strarg(const char *message,...)

176

{

177

long func_value,value;

178

int error,length;

179

char chr,cmp_buff[100],*pos,*pos2;

180

va_list pvar;

181

182

tests++;

183

va_start(pvar,message);

184

func_value=va_arg(pvar,long);

185

value=va_arg(pvar,long);

186

187

printf("testing '%s'\n",message);

188

if (func_value != value && value != INT_MAX32)

189

{

190

printf("func: '%s' = %ld Should be: %ld\n",message,func_value,value);

191

errors++;

192

}

193

pos= cmp_buff;

194

while ((length = va_arg(pvar, int)) != 0)

195

{

196

chr= (char) (va_arg(pvar, int));

197

while (length--)

198

*pos++=chr;

199

}

200

pos2=to+ (int)(pos-cmp_buff);

201

while (pos <= cmp_buff+T_LEN)

202

*pos++= *pos2++;

203

if (compare_buff(message,to,cmp_buff,(int) (pos-cmp_buff),T_FILL,T_PREFILL))

204

{

205

init_strings();

206

va_end(pvar);

207

return 1;

208

}

209

210

pos= cmp_buff;

211

while ((length = va_arg(pvar, int)) != 0)

212

{

213

chr= (char) (va_arg(pvar, int));

214

while (length--)

215

*pos++=chr;

216

}

217

pos2=from+ (int)(pos-cmp_buff);

218

while (pos <= cmp_buff+F_LEN)

219

*pos++= *pos2++;

220

error=compare_buff(message,from,cmp_buff,(int) (pos-cmp_buff),F_FILL,F_PREFILL);

221

init_strings();

222

va_end(pvar);

223

return (error != 0);

224

} /* test_strarg */

225

226

227

/* test if function made right value */

228

229

int compare_buff(const char *message, char * b1, char * b2, int length,

230

pchar fill, pchar prefill)

231

{

232

int i,error=0;

233

234

if (bcmp(b1,b2,length))

235

{

236

errors++;

237

printf("func: '%s' Buffers differ\nIs: ",message);

238

for (i=0 ; i<length ; i++)

239

printf("%3d ",b1[i]);

240

printf("\nShould be: ");

241

for (i=0 ; i<length ; i++)

242

printf("%3d ",b2[i]);

243

puts("");

244

}

245

else if (b1[-1] != prefill || b1[-2] != fill || b1[-3] != fill)

246

{

247

printf("func: '%s' Chars before buffer is changed\n",message);

248

errors++;

249

error=1;

250

}

251

else if (b1[length] != fill || b1[length+1] != fill)

252

{

253

printf("func: '%s' Chars after buffer is changed\n",message);

254

errors++;

255

error=1;

256

}

257

return error;

258

} /* compare_buff */

259

260

/* These are here to be loaded and examined */

261

262

extern void dummy_functions(void);

263

264

void dummy_functions(void)

265

{

266

VOID(memchr(from,'a',5));

267

VOID(memcmp(from,to,5));

268

VOID(memcpy(from,to,5));

269

VOID(memset(from,' ',5));

270

VOID(strcmp(from,to));

271

VOID(strcpy(from,to));

272

VOID(strstr(from,to));

273

VOID(strrchr(from,'a'));

274

return;

275

}

Older »