Add support for double type in pidl.

[sfrench/samba-autobuild/.git] / pidl / tests / typelist.pl

diff --git a/pidl/tests/typelist.pl b/pidl/tests/typelist.pl
index 80ee868f9d7a4ca1e9d94cb168d5b6365b7e03e6..28bf394275dded8490506daa02f84422eb27b101 100755 (executable)
--- a/pidl/tests/typelist.pl
+++ b/pidl/tests/typelist.pl
@@ -4,7 +4,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 54;
+use Test::More tests => 56;
 use FindBin qw($RealBin);
 use lib "$RealBin";
 use Util;
@@ -21,6 +21,7 @@ is("int32", expandAlias("int32"));
 is("uint32_t", mapScalarType("uint32"));
 is("void", mapScalarType("void"));
 is("uint64_t", mapScalarType("hyper"));
+is("double", mapScalarType("double"));
 
 my $x = { TYPE => "ENUM", NAME => "foo", EXTRADATA => 1 };
 addType($x);
@@ -34,6 +35,11 @@ is_deeply(getType("uint16"), {
                TYPE => "TYPEDEF",
                DATA => { NAME => "uint16", TYPE => "SCALAR" }});
 
+is_deeply(getType("double"), {
+               NAME => "double",
+               TYPE => "TYPEDEF",
+               DATA => { NAME => "double", TYPE => "SCALAR" }});
+
 is(0, typeIs("someUnknownType", "ENUM"));
 is(0, typeIs("foo", "ENUM"));
 addType({NAME => "mytypedef", TYPE => "TYPEDEF", DATA => { TYPE => "ENUM" }});