Remove EJS backend for PIDL, as we don't have EJS anymore.
[kai/samba.git] / pidl / tests / ndr_tagtype.pl
1 #!/usr/bin/perl
2 # Support for tagged types
3 # (C) 2005 Jelmer Vernooij. Published under the GNU GPL
4 use strict;
5
6 use Test::More tests => 3 * 8;
7 use FindBin qw($RealBin);
8 use lib "$RealBin";
9 use Util qw(test_samba4_ndr);
10
11 test_samba4_ndr('struct-notypedef', '[public] struct bla { uint8 x; }; ',
12 '
13         struct ndr_push *ndr = ndr_push_init_ctx(NULL, NULL);
14         struct bla r;
15         uint8_t expected[] = { 0x0D };
16         DATA_BLOB expected_blob = { expected, 1 };
17         DATA_BLOB result_blob;
18         r.x = 13;
19
20         if (!NDR_ERR_CODE_IS_SUCCESS(ndr_push_STRUCT_bla(ndr, NDR_SCALARS|NDR_BUFFERS, &r)))
21                 return 1;
22
23         result_blob = ndr_push_blob(ndr);
24         
25         if (data_blob_cmp(&result_blob, &expected_blob) != 0) 
26                 return 2;
27 ');
28
29 test_samba4_ndr('struct-notypedef-used', '[public] struct bla { uint8 x; };
30         [public] void myfn([in] struct bla r); ',
31 '
32         struct ndr_push *ndr = ndr_push_init_ctx(NULL, NULL);
33         struct myfn fn;
34         uint8_t expected[] = { 0x0D };
35         DATA_BLOB expected_blob = { expected, 1 };
36         DATA_BLOB result_blob;
37         fn.in.r.x = 13;
38
39         if (!NDR_ERR_CODE_IS_SUCCESS(ndr_push_myfn(ndr, NDR_IN, &fn)))
40                 return 1;
41
42         result_blob = ndr_push_blob(ndr);
43         
44         if (data_blob_cmp(&result_blob, &expected_blob) != 0) 
45                 return 2;
46 ');
47
48
49 test_samba4_ndr('struct-notypedef-embedded', 'struct bla { uint8 x; };
50         [public] struct myst { struct bla r; }; ',
51 '
52         struct ndr_push *ndr = ndr_push_init_ctx(NULL, NULL);
53         struct myst st;
54         uint8_t expected[] = { 0x0D };
55         DATA_BLOB expected_blob = { expected, 1 };
56         DATA_BLOB result_blob;
57         st.r.x = 13;
58
59         if (!NDR_ERR_CODE_IS_SUCCESS(ndr_push_STRUCT_myst(ndr, NDR_IN, &st)))
60                 return 1;
61
62         result_blob = ndr_push_blob(ndr);
63         
64         if (data_blob_cmp(&result_blob, &expected_blob) != 0) 
65                 return 2;
66 ');