28bf394275dded8490506daa02f84422eb27b101
[ira/wip.git] / pidl / tests / typelist.pl
1 #!/usr/bin/perl
2 # (C) 2007 Jelmer Vernooij <jelmer@samba.org>
3 # Published under the GNU General Public License
4 use strict;
5 use warnings;
6
7 use Test::More tests => 56;
8 use FindBin qw($RealBin);
9 use lib "$RealBin";
10 use Util;
11 use Parse::Pidl::Typelist qw(hasType typeHasBody getType mapTypeName expandAlias
12         mapScalarType addType typeIs is_scalar scalar_is_reference
13         enum_type_fn bitmap_type_fn mapType);
14
15 is("foo", expandAlias("foo"));
16 is("uint32", expandAlias("DWORD"));
17 is("int32", expandAlias("int"));
18 is("", expandAlias(""));
19 is("int32", expandAlias("int32"));
20
21 is("uint32_t", mapScalarType("uint32"));
22 is("void", mapScalarType("void"));
23 is("uint64_t", mapScalarType("hyper"));
24 is("double", mapScalarType("double"));
25
26 my $x = { TYPE => "ENUM", NAME => "foo", EXTRADATA => 1 };
27 addType($x);
28 is_deeply($x, getType("foo"));
29 is(undef, getType("bloebla"));
30 is_deeply(getType({ TYPE => "STRUCT" }), { TYPE => "STRUCT" });
31 is_deeply(getType({ TYPE => "ENUM", NAME => "foo" }), $x);
32 is_deeply(getType("uint16"), {
33                 NAME => "uint16",
34                 BASEFILE => "<builtin>",
35                 TYPE => "TYPEDEF",
36                 DATA => { NAME => "uint16", TYPE => "SCALAR" }});
37
38 is_deeply(getType("double"), {
39                 NAME => "double",
40                 TYPE => "TYPEDEF",
41                 DATA => { NAME => "double", TYPE => "SCALAR" }});
42
43 is(0, typeIs("someUnknownType", "ENUM"));
44 is(0, typeIs("foo", "ENUM"));
45 addType({NAME => "mytypedef", TYPE => "TYPEDEF", DATA => { TYPE => "ENUM" }});
46 is(1, typeIs("mytypedef", "ENUM"));
47 is(0, typeIs("mytypedef", "BITMAP"));
48 is(1, typeIs({ TYPE => "ENUM"}, "ENUM"));
49 is(0, typeIs({ TYPE => "BITMAP"}, "ENUM"));
50 is(1, typeIs("uint32", "SCALAR"));
51 is(0, typeIs("uint32", "ENUM"));
52
53 is(1, hasType("foo"));
54 is(0, hasType("nonexistant"));
55 is(0, hasType({TYPE => "ENUM", NAME => "someUnknownType"}));
56 is(1, hasType({TYPE => "ENUM", NAME => "foo"}));
57 is(1, hasType({TYPE => "ENUM"}));
58 is(1, hasType({TYPE => "STRUCT"}));
59
60 is(1, is_scalar("uint32"));
61 is(0, is_scalar("nonexistant"));
62 is(1, is_scalar({TYPE => "ENUM"}));
63 is(0, is_scalar({TYPE => "STRUCT"}));
64 is(1, is_scalar({TYPE => "TYPEDEF", DATA => {TYPE => "ENUM" }}));
65 is(1, is_scalar("mytypedef"));
66
67 is(1, scalar_is_reference("string"));
68 is(0, scalar_is_reference("uint32"));
69 is(0, scalar_is_reference({TYPE => "STRUCT", NAME => "echo_foobar"}));
70
71 is("uint8", enum_type_fn({TYPE => "ENUM", PARENT=>{PROPERTIES => {enum8bit => 1}}}));
72 is("uint32", enum_type_fn({TYPE => "ENUM", PARENT=>{PROPERTIES => {v1_enum => 1}}}));
73 is("uint16", enum_type_fn({TYPE => "ENUM", PARENT=>{PROPERTIES => {}}}));
74
75 is("uint8", bitmap_type_fn({TYPE => "BITMAP", PROPERTIES => {bitmap8bit => 1}}));
76 is("uint16", bitmap_type_fn({TYPE => "BITMAP", PROPERTIES => {bitmap16bit => 1}}));
77 is("hyper", bitmap_type_fn({TYPE => "BITMAP", PROPERTIES => {bitmap64bit => 1}}));
78 is("uint32", bitmap_type_fn({TYPE => "BITMAP", PROPERTIES => {}}));
79
80 is("enum foo", mapType({TYPE => "ENUM"}, "foo"));
81 is("union foo", mapType({TYPE => "UNION"}, "foo"));
82 is("struct foo", mapType({TYPE => "STRUCT"}, "foo"));
83 is("uint8_t", mapType({TYPE => "BITMAP", PROPERTIES => {bitmap8bit => 1}}, "foo"));
84 is("uint8_t", mapType({TYPE => "SCALAR"}, "uint8"));
85 is("uint32_t", mapType({TYPE => "TYPEDEF", DATA => {TYPE => "SCALAR"}}, "uint32"));
86
87 is("void", mapTypeName(undef));
88 is("uint32_t", mapTypeName("uint32"));
89 is("int32_t", mapTypeName("int"));
90
91 ok(not typeHasBody({TYPE => "TYPEDEF", DATA => { TYPE => "STRUCT" }}));
92 ok(typeHasBody({TYPE => "TYPEDEF", DATA => { TYPE => "STRUCT", ELEMENTS => [] }}));