File tree Expand file tree Collapse file tree 1 file changed +83
-0
lines changed Expand file tree Collapse file tree 1 file changed +83
-0
lines changed Original file line number Diff line number Diff line change 1+ #include once "fbcunit.bi"
2+
3+ #macro check( arg1, arg2 )
4+ # if ( typeof (arg1) = typeof (arg2) )
5+ CU_PASS()
6+ # else
7+ CU_FAIL()
8+ # endif
9+ #endmacro
10+
11+ #define toStr( arg ) #arg
12+ #define typeof2Str( arg ) toStr( typeof (arg) )
13+
14+ type T
15+ __ as integer
16+ end type
17+
18+ namespace using_types_N
19+ type T
20+ __ as integer
21+ end type
22+ end namespace
23+
24+ namespace using_types_P0
25+ sub proc()
26+ check( T, ..T )
27+ end sub
28+ end namespace
29+
30+ namespace using_types_P1
31+ type T
32+ __ as integer
33+ end type
34+ sub proc()
35+ check( T, USING_TYPES_P1.T )
36+ end sub
37+ end namespace
38+
39+ namespace using_types_P2
40+ using using_types_N
41+ type T
42+ __ as integer
43+ end type
44+ sub proc()
45+ check( T, USING_TYPES_P2.T )
46+ end sub
47+ end namespace
48+
49+ namespace using_types_P3
50+ type T
51+ __ as integer
52+ end type
53+ using using_types_N
54+ sub proc()
55+ check( T, USING_TYPES_P3.T )
56+ end sub
57+ end namespace
58+
59+ namespace using_types_P4
60+ using using_types_N
61+ sub proc()
62+ check( T, USING_TYPES_N.T )
63+ end sub
64+ end namespace
65+
66+ private sub module_proc()
67+ using using_types_P4
68+ check( T, ..T )
69+ end sub
70+
71+ SUITE( fbc_tests.namespace_.using_types )
72+
73+ TEST( default )
74+ using_types_P0.proc()
75+ using_types_P1.proc()
76+ using_types_P2.proc()
77+ using_types_P3.proc()
78+ using_types_P4.proc()
79+ module_proc()
80+
81+ END_TEST
82+
83+ END_SUITE
You can’t perform that action at this time.
0 commit comments