mirror of
https://github.com/samba-team/samba.git
synced 2025-02-14 01:57:53 +03:00
pidl: Add simple test for ServerNDR.
(This used to be commit 5b2ea43ed8613ac10ebe7feda0cf070c8079137a)
This commit is contained in:
parent
af163d258c
commit
3e53ad6f4a
source4/pidl
@ -6,6 +6,10 @@
|
||||
|
||||
package Parse::Pidl::Samba3::ServerNDR;
|
||||
|
||||
use Exporter;
|
||||
@ISA = qw(Exporter);
|
||||
@EXPORT_OK = qw(DeclLevel);
|
||||
|
||||
use strict;
|
||||
use Parse::Pidl qw(warning fatal);
|
||||
use Parse::Pidl::Typelist qw(mapTypeName scalar_is_reference);
|
||||
|
@ -4,11 +4,15 @@
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use Test::More tests => 0;
|
||||
use Test::More tests => 1;
|
||||
use FindBin qw($RealBin);
|
||||
use lib "$RealBin";
|
||||
use Util;
|
||||
use Parse::Pidl::Util qw(MyDumper);
|
||||
use Parse::Pidl::Samba3::ServerNDR;
|
||||
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));
|
||||
|
Loading…
x
Reference in New Issue
Block a user