/[ascend]/trunk/base/generic/utilities/test/test_ascPanic.c
ViewVC logotype

Contents of /trunk/base/generic/utilities/test/test_ascPanic.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 60 - (show annotations) (download) (as text)
Mon Oct 31 03:39:15 2005 UTC (18 years, 6 months ago) by jds
File MIME type: text/x-csrc
File size: 6794 byte(s)
- jam build up and limping on Linux (finally).
- fixes to CUnit test suite to compile on Linux (still not operable, though).
1 /*
2 * Unit test functions for ASCEND: utilities/ascPanic.c
3 *
4 * Copyright (C) 2005 Jerry St.Clair
5 *
6 * This file is part of the Ascend Environment.
7 *
8 * The Ascend Environment is free software; you can redistribute it
9 * and/or modify it under the terms of the GNU General Public License as
10 * published by the Free Software Foundation; either version 2 of the
11 * License, or (at your option) any later version.
12 *
13 * The Ascend Environment is distributed in hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 * General Public License for more details.
17 *
18 * You should have received a copy of the GNU General Public License
19 * along with the program; if not, write to the Free Software Foundation,
20 * Inc., 675 Mass Ave, Cambridge, MA 02139 USA. Check the file named
21 * COPYING.
22 */
23
24 #include <stdio.h>
25 #ifdef __WIN32__
26 #include <io.h>
27 #endif
28 #include "utilities/ascConfig.h"
29 #include "utilities/ascMalloc.h"
30 #include "utilities/ascPanic.h"
31 #include "compiler/redirectFile.h"
32 #include "CUnit/CUnit.h"
33 #include "test_ascPanic.h"
34 #include "assertimpl.h"
35 #include "printutil.h"
36
37 static int f_callback_called = FALSE;
38 static int f_callback_status;
39
40 /*
41 * Callback function for Asc_Panic() during testing.
42 * Sets a flag, then returns non-zero so program continues.
43 */
44 static int set_flag_and_return(int status)
45 {
46 f_callback_called = TRUE;
47 f_callback_status = status;
48 return TRUE;
49 }
50
51 /*
52 * ascPanic.[ch] is tough to test completely, since
53 * 1. most of its action is text formatting & output
54 * 2. it normally exits the program
55 *
56 * As a first pass, we will disable exiting and just test
57 * whether something is getting written to ASCERR and an
58 * output file.
59 */
60 static void test_ascPanic(void)
61 {
62 FILE *stdoutfile;
63 FILE* outfile;
64 int i_enabled_printing = FALSE;
65 FILE *old_errfile;
66 FILE *old_warnfile;
67 FILE *old_infofile;
68 unsigned long prior_meminuse;
69
70 prior_meminuse = ascmeminuse(); /* save meminuse() at start of test function */
71
72 #ifdef NDEBUG
73 CU_FAIL("test_ascPanic() compiled with NDEBUG - some features not tested.");
74 #endif
75
76 old_errfile = g_ascend_errors; /* save so can be restored later */
77 old_warnfile = g_ascend_warnings;
78 old_infofile = g_ascend_information;
79
80 /* this test requires message printing to be enabled */
81 if (FALSE == test_printing_enabled()) {
82 test_enable_printing();
83 i_enabled_printing = TRUE;
84 }
85
86 CU_TEST(NULL == Asc_PanicSetCallback(set_flag_and_return));
87 Asc_PanicDisplayMessageBox(FALSE);
88
89 #ifndef NDEBUG
90 enable_assert_longjmp(TRUE); /* prepare to test assertions */
91
92 Asc_RedirectCompilerStreams(NULL, NULL, NULL); /* make sure ASCERR is NULL */
93
94 f_callback_called = FALSE;
95 g_assert_status = ast_passed;
96 if (0 == setjmp(g_asc_test_env))
97 Asc_Panic(1, "test_ascPanic", "Error message."); /* error - ASCERR NULL */
98 CU_TEST(ast_failed == g_assert_status);
99 CU_TEST(FALSE == f_callback_called);
100
101 enable_assert_longjmp(FALSE); /* done testing assertions */
102 #endif /* !NDEBUG */
103
104 if (NULL != (stdoutfile = fopen("asc_panic_std_tempfile1.txt", "w+"))) {
105 Asc_RedirectCompilerStreams(stdoutfile, stdoutfile, stdoutfile); /* send output to a file */
106 Asc_Panic(1, "test_ascPanic", "Error message 1.");
107 CU_TEST(1 == f_callback_status);
108 Asc_Panic(2, "test_ascPanic", "Error message 2.");
109 CU_TEST(2 == f_callback_status);
110 rewind(stdoutfile);
111 CU_TEST(EOF != fgetc(stdoutfile)); /* test that file is not empty */
112 fclose(stdoutfile);
113 remove("asc_panic_std_tempfile1.txt");
114 Asc_RedirectCompilerDefault(); /* reset reporting streams */
115 }
116 else {
117 CU_FAIL("Error opening output file 1 in test_ascPanic.c");
118 }
119
120 Asc_PanicSetOutfile("asc_panic_extra_tempfile1.txt"); /* turn on output to extra file */
121
122 if (NULL != (stdoutfile = fopen("asc_panic_std_tempfile2.txt", "w+"))) {
123 Asc_RedirectCompilerStreams(stdoutfile, stdoutfile, stdoutfile); /* send output to a file */
124 Asc_Panic(-1, "test_ascPanic", "Error message %d.", -1);
125 CU_TEST(-1 == f_callback_status);
126 Asc_Panic(200, "test_ascPanic", "Error message %d.", 200);
127 CU_TEST(200 == f_callback_status);
128 rewind(stdoutfile);
129 CU_TEST(EOF != fgetc(stdoutfile)); /* test that file is not empty */
130 fclose(stdoutfile);
131 remove("asc_panic_std_tempfile2.txt");
132 Asc_RedirectCompilerDefault(); /* reset reporting streams */
133 if (NULL != (outfile = fopen("asc_panic_extra_tempfile1.txt", "r"))) {
134 CU_TEST(EOF != fgetc(outfile)); /* test that extra file is not empty */
135 fclose(outfile);
136 remove("asc_panic_extra_tempfile1.txt");
137 }
138 else {
139 CU_FAIL("Error opening output file 3 in test_ascPanic.c");
140 }
141 }
142 else {
143 CU_FAIL("Error opening output file 2 in test_ascPanic.c");
144 }
145
146 Asc_PanicSetOutfile(NULL); /* turn off output to extra file */
147
148 if (NULL != (stdoutfile = fopen("asc_panic_std_tempfile3.txt", "w+"))) {
149 Asc_RedirectCompilerStreams(stdoutfile, stdoutfile, stdoutfile); /* send output to a file */
150 Asc_Panic(-100, "test_ascPanic", "Error message -100.");
151 CU_TEST(-100 == f_callback_status);
152 Asc_Panic(0, "test_ascPanic", "Error message 0.");
153 CU_TEST(0 == f_callback_status);
154 rewind(stdoutfile);
155 CU_TEST(EOF != fgetc(stdoutfile)); /* test that file is not empty */
156 fclose(stdoutfile);
157 remove("asc_panic_std_tempfile3.txt");
158 Asc_RedirectCompilerDefault(); /* reset reporting streams */
159 }
160 else {
161 CU_FAIL("Error opening output file 4 in test_ascPanic.c");
162 }
163
164 CU_TEST(set_flag_and_return == Asc_PanicSetCallback(NULL)); /* reset exit on Asc_Panic() */
165 Asc_PanicDisplayMessageBox(TRUE); /* reset display of the MessageBox */
166
167 if (TRUE == i_enabled_printing) {
168 test_disable_printing();
169 }
170
171 Asc_RedirectCompilerStreams(old_errfile, old_warnfile, old_infofile); /* restore streams */
172 CU_TEST(prior_meminuse == ascmeminuse()); /* make sure we cleaned up after ourselves */
173 }
174
175 /*===========================================================================*/
176 /* Registration information */
177
178 static CU_TestInfo ascPanic_test_list[] = {
179 {"test_ascPanic", test_ascPanic},
180 CU_TEST_INFO_NULL
181 };
182
183 static CU_SuiteInfo suites[] = {
184 {"test_utilities_ascPanic", NULL, NULL, ascPanic_test_list},
185 CU_SUITE_INFO_NULL
186 };
187
188 /*-------------------------------------------------------------------*/
189 CU_ErrorCode test_register_utilities_ascPanic(void)
190 {
191 return CU_register_suites(suites);
192 }

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22