1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
/*
* $Id: logic.sql,v 1.1 2007/08/09 03:28:37 unsaved Exp $
*
* Logic tests
*/
*if (1)
* T1 = true
*end if
*if (! *T1)
\q Test of (1) failed
*end if
*if (0)
\q Test of (0) failed
*end if
*if (! 1)
\q Test of (! 1) failed
*end if
*if (! 0)
* T2 = true
*end if
*if (! *T2)
\q Test of (! 0) failed
*end if
*if (!1)
\q Test of (!1) failed
*end if
*if (!0)
* T3 = true
*end if
*if (!*T3)
\q Test of (!0) failed
*end if
* SETVAR=3
*if (*SETVAR)
* T4 = true
*end if
*if (! *T4)
\q Test of (*SETVAR) failed
*end if
*if (*UNSETVAR)
\q Test of (*UNSETVAR) failed
*end if
*if (! *SETVAR)
\q Test of (! *SETVAR) failed
*end if
*if (! *UNSETVAR)
* T5 = true
*end if
*if (! *T5)
\q Test of (! *UNSETVAR) failed
*end if
*if (!*SETVAR)
\q Test of (!*SETVAR) failed
*end if
*if (!*UNSETVAR)
* T6 = true
*end if
*if (!*T6)
\q Test of (!*UNSETVAR) failed
*end if
|
