← Back to branch summary

~zulcss/samba/server-dailies-3.4

« back to all changes in this revision

Viewing changes to pidl/tests/tdr.pl

  • Committer: Chuck Short
  • Date: 2010-09-28 20:38:39 UTC
  • Revision ID: zulcss@ubuntu.com-20100928203839-pgjulytsi9ue63x1
Initial version

Show diffs side-by-side

added added

removed removed

Lines of Context:
pidl/tests/tdr.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 => 6;
 
8
use FindBin qw($RealBin);
 
9
use lib "$RealBin";
 
10
use Util;
 
11
use Parse::Pidl::Samba4::TDR qw(ParserType);
 
12
 
 
13
my $tdr = new Parse::Pidl::Samba4::TDR();
 
14
 
 
15
$tdr->ParserType({TYPE => "STRUCT", NAME => "foo", PROPERTIES => {public => 1}}, "pull");
 
16
is($tdr->{ret}, "NTSTATUS tdr_pull_foo (struct tdr_pull *tdr, TALLOC_CTX *mem_ctx, struct foo *v)
 
17
{
 
18
        return NT_STATUS_OK;
 
19
}
 
20
 
 
21
");
 
22
is($tdr->{ret_hdr}, "NTSTATUS tdr_pull_foo (struct tdr_pull *tdr, TALLOC_CTX *mem_ctx, struct foo *v);\n");
 
23
 
 
24
 
 
25
$tdr = new Parse::Pidl::Samba4::TDR();
 
26
$tdr->ParserType({TYPE => "UNION", NAME => "bar", PROPERTIES => {public => 1}}, "pull");
 
27
is($tdr->{ret}, "NTSTATUS tdr_pull_bar(struct tdr_pull *tdr, TALLOC_CTX *mem_ctx, int level, union bar *v)
 
28
{
 
29
        switch (level) {
 
30
        }
 
31
        return NT_STATUS_OK;
 
32
 
 
33
}
 
34
 
 
35
");
 
36
is($tdr->{ret_hdr}, "NTSTATUS tdr_pull_bar(struct tdr_pull *tdr, TALLOC_CTX *mem_ctx, int level, union bar *v);\n");
 
37
 
 
38
$tdr = new Parse::Pidl::Samba4::TDR();
 
39
$tdr->ParserType({TYPE => "UNION", NAME => "bar", PROPERTIES => {}}, "pull");
 
40
is($tdr->{ret}, "static NTSTATUS tdr_pull_bar(struct tdr_pull *tdr, TALLOC_CTX *mem_ctx, int level, union bar *v)
 
41
{
 
42
        switch (level) {
 
43
        }
 
44
        return NT_STATUS_OK;
 
45
 
 
46
}
 
47
 
 
48
"); 
 
49
is($tdr->{ret_hdr}, "");