diff options
author | Andrew Bartlett <abartlet@samba.org> | 2008-01-17 10:32:41 +1100 |
---|---|---|
committer | Andrew Bartlett <abartlet@samba.org> | 2008-01-17 10:32:41 +1100 |
commit | c10992c065b64e3985c8b14d3a4c9ee5f09790c6 (patch) | |
tree | 9e6872f77d7800042c315ff4a09038ce3bb76655 /source4/pidl/tests/samba3-srv.pl | |
parent | d5fd15005c0cad9e9018e81ab5c30b87cb2f605a (diff) | |
parent | 797e8db3ba1e0038db553af6f564e221479ac381 (diff) | |
download | samba-c10992c065b64e3985c8b14d3a4c9ee5f09790c6.tar.gz samba-c10992c065b64e3985c8b14d3a4c9ee5f09790c6.tar.bz2 samba-c10992c065b64e3985c8b14d3a4c9ee5f09790c6.zip |
Merge branch 'v4-0-test' of git://git.samba.org/samba into 4-0-local
(This used to be commit 11660b0737107138b53c3a08e8de30ee44607eae)
Diffstat (limited to 'source4/pidl/tests/samba3-srv.pl')
-rw-r--r-- | source4/pidl/tests/samba3-srv.pl | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/source4/pidl/tests/samba3-srv.pl b/source4/pidl/tests/samba3-srv.pl new file mode 100644 index 0000000000..d1e2bc9545 --- /dev/null +++ b/source4/pidl/tests/samba3-srv.pl @@ -0,0 +1,18 @@ +#!/usr/bin/perl +# (C) 2008 Jelmer Vernooij <jelmer@samba.org> +# Published under the GNU General Public License +use strict; +use warnings; + +use Test::More tests => 1; +use FindBin qw($RealBin); +use lib "$RealBin"; +use Util; +use Parse::Pidl::Util qw(MyDumper has_property); +use Parse::Pidl::Samba3::ServerNDR qw(DeclLevel); + +my $l = { TYPE => "DATA", DATA_TYPE => "uint32" }; +my $e = { FILE => "foo", LINE => 0, PROPERTIES => { }, TYPE => "uint32", + LEVELS => [ $l ] }; + +is("uint32_t", DeclLevel($e, 0)); |