int test_10(char *base, char *tgt, int n)
{int err;
char datfile[MAXLINE], fname[MAXLINE];
PDBfile *strm;
FILE *fp;
/* target the file as asked */
test_target(tgt, base, 100+n, fname, datfile, MAXLINE);
fp = io_open(fname, "w");
prep_test_10_data();
if (read_only == FALSE)
/* create the named file */
{strm = PD_create(datfile);
if (strm == NULL)
error(1, fp, "Test couldn't create file %s\r\n", datfile);
PRINT(fp, "File %s created\n", datfile);
/* write the test data */
write_test_10_data(strm);
/* close the file */
if (PD_close(strm) == FALSE)
error(1, fp, "Test couldn't close file %s\r\n", datfile);
PRINT(fp, "File %s closed\n", datfile);};
/* reopen the file */
strm = PD_open(datfile, "r");
if (strm == NULL)
error(1, fp, "Test couldn't open file %s\r\n", datfile);
PRINT(fp, "File %s opened\n", datfile);
/* dump the symbol table */
dump_test_symbol_table(fp, strm->symtab, 1);
/* read the data from the file */
read_test_10_data(strm);
/* compare the original data with that read in */
err = compare_test_10_data(strm, fp);
/* close the file */
if (PD_close(strm) == FALSE)
error(1, fp, "Test couldn't close file %s\r\n", datfile);
PRINT(fp, "File %s closed\n", datfile);
/* print it out to STDOUT */
print_test_10_data(fp);
io_close(fp);
if (err)
REMOVE(fname);
return(err);}
int main(int argc, char **argv)
{
frontend_init();
test_visitors();
test_semantic();
test_expression();
test_target();
test_emplace();
frontend_term();
return 0;
}
