s3:lib/events: make use of samba_tevent_set_debug()
[Samba/gebeck_regimport.git] / pidl / tests / ndr_array.pl
blob2a6b5bbd57dfc8491723e7c0c110e5b93f4ac09f
1 #!/usr/bin/perl
2 # Array testing
3 # (C) 2005 Jelmer Vernooij <jelmer@samba.org>
4 # Published under the GNU General Public License
5 use strict;
7 use Test::More tests => 8;
8 use FindBin qw($RealBin);
9 use lib "$RealBin";
10 use Util qw(test_samba4_ndr);
12 test_samba4_ndr(
13 'Fixed-Array',
15 '[public] void Test([in] uint8 x[10]);',
18 uint8_t data[] = {1,2,3,4,5,6,7,8,9,10};
19 int i;
20 DATA_BLOB b;
21 struct ndr_pull *ndr;
22 struct Test r;
24 b.data = data;
25 b.length = 10;
26 ndr = ndr_pull_init_blob(&b, mem_ctx, NULL);
28 if (!NDR_ERR_CODE_IS_SUCCESS(ndr_pull_Test(ndr, NDR_IN, &r)))
29 return 1;
31 if (ndr->offset != 10)
32 return 2;
34 for (i = 0; i < 10; i++) {
35 if (r.in.x[i] != i+1) return 3;
37 ');