/[ascend]/trunk/ascend/compiler/test/test_register_compiler.c
ViewVC logotype

Contents of /trunk/ascend/compiler/test/test_register_compiler.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2397 - (show annotations) (download) (as text)
Mon Feb 28 12:18:48 2011 UTC (14 years, 2 months ago) by jpye
File MIME type: text/x-csrc
File size: 1356 byte(s)
Add test of failing FIX statements for bug #488.
Commented out unmigrated makemps code (need to migrate to new slv_param_* functions).
1 /* ASCEND modelling environment
2 Copyright (C) 2007 Carnegie Mellon University
3
4 This program is free software; you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation; either version 2, or (at your option)
7 any later version.
8
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
13
14 You should have received a copy of the GNU General Public License
15 along with this program; if not, write to the Free Software
16 Foundation, Inc., 59 Temple Place - Suite 330,
17 Boston, MA 02111-1307, USA.
18 */
19
20 #include <ascend/general/platform.h>
21 #include "test_register_compiler.h"
22
23 #define SUITE compiler
24
25 #define TESTS(T) \
26 T(basics) \
27 T(autodiff) \
28 T(expr) \
29 T(bintok) \
30 T(fixfree)
31
32
33 #define PROTO_TEST(NAME) PROTO(compiler,NAME)
34 TESTS(PROTO_TEST)
35 #undef PROTO_TEST
36
37 #define REGISTER_TEST(NAME) \
38 result = TESTREGISTER(compiler,NAME); \
39 if(CUE_SUCCESS!=result){ \
40 return result; \
41 }
42
43 #define REGISTER_SUITE(SUITENAME,TESTS) \
44 CU_ErrorCode test_register_##SUITENAME(void){ \
45 CU_ErrorCode result = CUE_SUCCESS; \
46 TESTS(REGISTER_TEST) \
47 return result; \
48 }
49
50 REGISTER_SUITE(compiler,TESTS)

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