]> git.donarmstrong.com Git - biopieces.git/blob - code_c/Maasha/src/test/test_common.c
use warnings added to perl modules
[biopieces.git] / code_c / Maasha / src / test / test_common.c
1 /* Martin Asser Hansen (mail@maasha.dk) Copyright (C) 2008 - All right reserved */
2
3 #include "common.h"
4
5 static void test_true();
6 static void test_bool();
7
8 int main()
9 {
10     fprintf( stderr, "Running all tests for common.c\n" );
11
12     test_true();
13     test_bool();
14
15     fprintf( stderr, "Done\n\n" );
16
17     return EXIT_SUCCESS;
18 }
19
20
21 void test_true()
22 {
23     fprintf( stderr, "   Testing true ... " );
24
25     assert( TRUE == 1 );
26     assert( FALSE == 0 );
27
28     fprintf( stderr, "OK\n" );
29 }
30
31
32 void test_bool()
33 {
34     fprintf( stderr, "   Testing bool ... " );
35
36     bool answer;
37
38     answer = TRUE;
39
40     assert( answer == TRUE );
41     assert( answer == 1 );
42
43     answer = FALSE;
44
45     assert( answer == FALSE );
46     assert( answer == 0 );
47
48     fprintf( stderr, "OK\n" );
49 }
50
51