ad758df90b
Please note that the Alphatronics implementation does not follow the Vebon specification. An extra padding byte had to be added to the idl..
49 lines
1.3 KiB
Perl
Executable file
49 lines
1.3 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
# (C) 2007 Jelmer Vernooij <jelmer@samba.org>
|
|
# Published under the GNU General Public License
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Test::More tests => 6;
|
|
use FindBin qw($RealBin);
|
|
use lib "$RealBin";
|
|
use Util;
|
|
use Parse::Pidl::Samba4::TDR qw(ParserType);
|
|
|
|
my $tdr = new Parse::Pidl::Samba4::TDR();
|
|
|
|
$tdr->ParserType({TYPE => "STRUCT", NAME => "foo", PROPERTIES => {public => 1}}, "pull");
|
|
is($tdr->{ret}, "NTSTATUS tdr_pull_foo (struct tdr_pull *tdr, TALLOC_CTX *mem_ctx, struct foo *v)
|
|
{
|
|
return NT_STATUS_OK;
|
|
}
|
|
|
|
");
|
|
is($tdr->{ret_hdr}, "NTSTATUS tdr_pull_foo (struct tdr_pull *tdr, TALLOC_CTX *mem_ctx, struct foo *v);\n");
|
|
|
|
|
|
$tdr = new Parse::Pidl::Samba4::TDR();
|
|
$tdr->ParserType({TYPE => "UNION", NAME => "bar", PROPERTIES => {public => 1}}, "pull");
|
|
is($tdr->{ret}, "NTSTATUS tdr_pull_bar(struct tdr_pull *tdr, TALLOC_CTX *mem_ctx, int level, union bar *v)
|
|
{
|
|
switch (level) {
|
|
}
|
|
return NT_STATUS_OK;
|
|
|
|
}
|
|
|
|
");
|
|
is($tdr->{ret_hdr}, "NTSTATUS tdr_pull_bar(struct tdr_pull *tdr, TALLOC_CTX *mem_ctx, int level, union bar *v);\n");
|
|
|
|
$tdr = new Parse::Pidl::Samba4::TDR();
|
|
$tdr->ParserType({TYPE => "UNION", NAME => "bar", PROPERTIES => {}}, "pull");
|
|
is($tdr->{ret}, "static NTSTATUS tdr_pull_bar(struct tdr_pull *tdr, TALLOC_CTX *mem_ctx, int level, union bar *v)
|
|
{
|
|
switch (level) {
|
|
}
|
|
return NT_STATUS_OK;
|
|
|
|
}
|
|
|
|
");
|
|
is($tdr->{ret_hdr}, "");
|