diff options
Diffstat (limited to 'source4/pidl/tests/ndr_array.pl')
-rwxr-xr-x | source4/pidl/tests/ndr_array.pl | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/source4/pidl/tests/ndr_array.pl b/source4/pidl/tests/ndr_array.pl deleted file mode 100755 index 2a6b5bbd57..0000000000 --- a/source4/pidl/tests/ndr_array.pl +++ /dev/null @@ -1,37 +0,0 @@ -#!/usr/bin/perl -# Array testing -# (C) 2005 Jelmer Vernooij <jelmer@samba.org> -# Published under the GNU General Public License -use strict; - -use Test::More tests => 8; -use FindBin qw($RealBin); -use lib "$RealBin"; -use Util qw(test_samba4_ndr); - -test_samba4_ndr( - 'Fixed-Array', - - '[public] void Test([in] uint8 x[10]);', - - ' - uint8_t data[] = {1,2,3,4,5,6,7,8,9,10}; - int i; - DATA_BLOB b; - struct ndr_pull *ndr; - struct Test r; - - b.data = data; - b.length = 10; - ndr = ndr_pull_init_blob(&b, mem_ctx, NULL); - - if (!NDR_ERR_CODE_IS_SUCCESS(ndr_pull_Test(ndr, NDR_IN, &r))) - return 1; - - if (ndr->offset != 10) - return 2; - - for (i = 0; i < 10; i++) { - if (r.in.x[i] != i+1) return 3; - } -'); |