1#!/usr/bin/perl 2# NDR represent_as() / transmit_as() tests 3# (C) 2006 Jelmer Vernooij. Published under the GNU GPL 4use strict; 5 6use Test::More tests => 2 * 8; 7use FindBin qw($RealBin); 8use lib "$RealBin"; 9use Util qw(test_samba4_ndr); 10 11test_samba4_ndr('represent_as-simple', 12' 13 void bla([in,represent_as(uint32)] uint8 x); 14', 15' 16 uint8_t expected[] = { 0x0D }; 17 DATA_BLOB in_blob = { expected, 1 }; 18 struct ndr_pull *ndr = ndr_pull_init_blob(&in_blob, NULL, NULL); 19 struct bla r; 20 21 if (!NDR_ERR_CODE_IS_SUCCESS(ndr_pull_bla(ndr, NDR_SCALARS|NDR_BUFFERS, &r))) 22 return 1; 23 24 if (r.in.x != 13) 25 return 2; 26', 27' 28enum ndr_err_code ndr_uint8_to_uint32(uint8_t from, uint32_t *to) 29{ 30 *to = from; 31 return NDR_ERR_SUCCESS; 32} 33 34enum ndr_err_code ndr_uint32_to_uint8(uint32_t from, uint8_t *to) 35{ 36 *to = from; 37 return NDR_ERR_SUCCESS; 38} 39' 40); 41 42test_samba4_ndr('transmit_as-simple', 43' 44 void bla([in,transmit_as(uint32)] uint8 x); 45', 46' 47 uint8_t expected[] = { 0x0D }; 48 DATA_BLOB in_blob = { expected, 1 }; 49 struct ndr_pull *ndr = ndr_pull_init_blob(&in_blob, NULL, NULL); 50 struct bla r; 51 52 if (!NDR_ERR_CODE_IS_SUCCESS(ndr_pull_bla(ndr, NDR_SCALARS|NDR_BUFFERS, &r))) 53 return 1; 54 55 if (r.in.x != 13) 56 return 2; 57', 58' 59enum ndr_err_code ndr_uint8_to_uint32(uint8_t from, uint32_t *to) 60{ 61 *to = from; 62 return NDR_ERR_SUCCESS; 63} 64 65enum ndr_err_code ndr_uint32_to_uint8(uint32_t from, uint8_t *to) 66{ 67 *to = from; 68 return NDR_ERR_SUCCESS; 69} 70' 71); 72