Skip to content

Commit 012deb6

Browse files
committed
fbc-tests: add test for sf.net # 871 Inherited methods without this shadowed by global functions
- new behaviour for type lookups in namespaces as it applies to types
1 parent 15792d3 commit 012deb6

File tree

1 file changed

+83
-0
lines changed

1 file changed

+83
-0
lines changed

tests/namespace/using-types.bas

Lines changed: 83 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,83 @@
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

0 commit comments

Comments
 (0)