1#!/usr/bin/perl
2# Array testing
3# (C) 2005 Jelmer Vernooij <jelmer@samba.org>
4# Published under the GNU General Public License
5use strict;
6
7use Test::More tests => 8;
8use FindBin qw($RealBin);
9use lib "$RealBin";
10use Util qw(test_samba4_ndr);
11
12test_samba4_ndr(
13	'Fixed-Array',
14
15	'[public] void Test([in] uint8 x[10]);',
16
17	'
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;
23
24	b.data = data;
25	b.length = 10;
26	ndr = ndr_pull_init_blob(&b, mem_ctx, NULL);
27
28	if (!NDR_ERR_CODE_IS_SUCCESS(ndr_pull_Test(ndr, NDR_IN, &r)))
29		return 1;
30
31	if (ndr->offset != 10)
32		return 2;
33
34	for (i = 0; i < 10; i++) {
35		if (r.in.x[i] != i+1) return 3;
36	}
37');
38