sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2025-01-11 05:18:09 +03:00
Code
8b9f464420
samba-mirror/pidl/tests/ndr_string.pl

Ignoring revisions in .git-blame-ignore-revs. Click here to bypass and see the normal blame view.

194 lines
4.3 KiB
Perl
Raw Normal View History

r6862: Add some more tests Accept new command-line options --keep, --outputdir and --idl-compiler. We're currently at 34 IDL tests (...and counting) (This used to be commit 7004f9515b75bce5b46e444f1865d377fdae0afa)
2005-05-17 21:32:25 +04:00
#!/usr/bin/perl
# String tests for pidl
# (C) 2005 Jelmer Vernooij <jelmer@samba.org>
# Published under the GNU General Public License
use strict;
pidl: use perl warnings Warnings are good. If we turn on warnings with 'use warnings', we will see bugs that have lain latent for years. Signed-off-by: Douglas Bagnall <douglas.bagnall@catalyst.net.nz> Reviewed-by: Andrew Bartlett <abartlet@samba.org>
2019-11-30 12:34:54 +03:00
use warnings;
r6862: Add some more tests Accept new command-line options --keep, --outputdir and --idl-compiler. We're currently at 34 IDL tests (...and counting) (This used to be commit 7004f9515b75bce5b46e444f1865d377fdae0afa)
2005-05-17 21:32:25 +04:00
pidl: add support for [string] on fixed size arrays. midl also supports this: struct { long l1; [string] wchar_t str[16]; long l2; }; Where the wire size of str is encoded like a length_is() header: 4-byte offset == 0; 4-byte array length; The strings are zero terminated. metze
2009-07-27 17:52:16 +04:00
use Test::More tests => 6 * 8;
r12470: Add helper module for pidl tests Convert other pidl tests to use Test::More and run them from 'make test' (This used to be commit 3a57d29a62112ab654e290ccc985fba7f67664c5)
2005-12-25 06:04:13 +03:00
use FindBin qw($RealBin);
use lib "$RealBin";
use Util qw(test_samba4_ndr);
r6862: Add some more tests Accept new command-line options --keep, --outputdir and --idl-compiler. We're currently at 34 IDL tests (...and counting) (This used to be commit 7004f9515b75bce5b46e444f1865d377fdae0afa)
2005-05-17 21:32:25 +04:00
r12470: Add helper module for pidl tests Convert other pidl tests to use Test::More and run them from 'make test' (This used to be commit 3a57d29a62112ab654e290ccc985fba7f67664c5)
2005-12-25 06:04:13 +03:00
test_samba4_ndr("string-pull-empty",
r6862: Add some more tests Accept new command-line options --keep, --outputdir and --idl-compiler. We're currently at 34 IDL tests (...and counting) (This used to be commit 7004f9515b75bce5b46e444f1865d377fdae0afa)
2005-05-17 21:32:25 +04:00
' [public] void TestString([in,flag(STR_ASCII|LIBNDR_FLAG_STR_SIZE4)] string data);',
'
uint8_t data[] = { 0x00, 0x00, 0x00, 0x00 };
DATA_BLOB b = { data, 4 };
Finish removal of iconv_convenience in public API's.
2010-05-09 19:20:01 +04:00
struct ndr_pull *ndr = ndr_pull_init_blob(&b, NULL);
r6862: Add some more tests Accept new command-line options --keep, --outputdir and --idl-compiler. We're currently at 34 IDL tests (...and counting) (This used to be commit 7004f9515b75bce5b46e444f1865d377fdae0afa)
2005-05-17 21:32:25 +04:00
struct TestString r;
r.in.data = NULL;
r25915: ndr/pidl: change NTSTAUS into enum ndr_err_code (pidl code) Samba4/NDR/Parser.pm Samba4/NDR/Server.pm Samba3/ServerNDR.pm tests/ metze (This used to be commit 7106f21de8dfc472aa0846b49bfdb7543c63b310)
2007-11-09 21:23:25 +03:00
if (!NDR_ERR_CODE_IS_SUCCESS(ndr_pull_TestString(ndr, NDR_IN, &r)))
r6862: Add some more tests Accept new command-line options --keep, --outputdir and --idl-compiler. We're currently at 34 IDL tests (...and counting) (This used to be commit 7004f9515b75bce5b46e444f1865d377fdae0afa)
2005-05-17 21:32:25 +04:00
return 1;
if (r.in.data == NULL)
return 2;
if (r.in.data[0] != 0)
return 3;
');
r12470: Add helper module for pidl tests Convert other pidl tests to use Test::More and run them from 'make test' (This used to be commit 3a57d29a62112ab654e290ccc985fba7f67664c5)
2005-12-25 06:04:13 +03:00
test_samba4_ndr("string-ascii-pull",
r6862: Add some more tests Accept new command-line options --keep, --outputdir and --idl-compiler. We're currently at 34 IDL tests (...and counting) (This used to be commit 7004f9515b75bce5b46e444f1865d377fdae0afa)
2005-05-17 21:32:25 +04:00
'
[public] void TestString([in,flag(STR_ASCII|LIBNDR_FLAG_STR_SIZE4)] string data);
',
'
uint8_t data[] = { 0x03, 0x00, 0x00, 0x00,
\'f\', \'o\', \'o\', 0 };
DATA_BLOB b = { data, 8 };
Finish removal of iconv_convenience in public API's.
2010-05-09 19:20:01 +04:00
struct ndr_pull *ndr = ndr_pull_init_blob(&b, NULL);
r6862: Add some more tests Accept new command-line options --keep, --outputdir and --idl-compiler. We're currently at 34 IDL tests (...and counting) (This used to be commit 7004f9515b75bce5b46e444f1865d377fdae0afa)
2005-05-17 21:32:25 +04:00
struct TestString r;
r.in.data = NULL;
r25915: ndr/pidl: change NTSTAUS into enum ndr_err_code (pidl code) Samba4/NDR/Parser.pm Samba4/NDR/Server.pm Samba3/ServerNDR.pm tests/ metze (This used to be commit 7106f21de8dfc472aa0846b49bfdb7543c63b310)
2007-11-09 21:23:25 +03:00
if (!NDR_ERR_CODE_IS_SUCCESS(ndr_pull_TestString(ndr, NDR_IN, &r)))
r6862: Add some more tests Accept new command-line options --keep, --outputdir and --idl-compiler. We're currently at 34 IDL tests (...and counting) (This used to be commit 7004f9515b75bce5b46e444f1865d377fdae0afa)
2005-05-17 21:32:25 +04:00
return 1;
if (r.in.data == NULL)
return 2;
if (strncmp(r.in.data, "foo", 3) != 0)
return 3;
if (r.in.data[4] != 0)
return 4;
');
r18559: [string] always applies to the last pointer (This used to be commit 86b4624226d6e72645221cadb8669b0f1aba0903)
2006-09-15 21:34:46 +04:00
pidl: add support for [string] on fixed size arrays. midl also supports this: struct { long l1; [string] wchar_t str[16]; long l2; }; Where the wire size of str is encoded like a length_is() header: 4-byte offset == 0; 4-byte array length; The strings are zero terminated. metze
2009-07-27 17:52:16 +04:00
test_samba4_ndr("string-wchar-fixed-array-01",
'
typedef struct {
uint32 l1;
[string,charset(UTF16)] uint16 str[6];
uint32 l2;
} TestStringStruct;
[public] void TestString([in,ref] TestStringStruct *str);
',
'
uint8_t data[] = { 0x01, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00,
0x04, 0x00, 0x00, 0x00,
\'f\', 0x00, \'o\', 0x00,
Fix string-wchar-fixed-array-01 test (when libndr is available).
2009-09-13 03:58:11 +04:00
\'o\', 0x00, 0x00, 0x00,
pidl: add support for [string] on fixed size arrays. midl also supports this: struct { long l1; [string] wchar_t str[16]; long l2; }; Where the wire size of str is encoded like a length_is() header: 4-byte offset == 0; 4-byte array length; The strings are zero terminated. metze
2009-07-27 17:52:16 +04:00
0x02, 0x00, 0x00, 0x00
};
DATA_BLOB b = { data, sizeof(data) };
Finish removal of iconv_convenience in public API's.
2010-05-09 19:20:01 +04:00
struct ndr_pull *ndr = ndr_pull_init_blob(&b, NULL);
pidl: add support for [string] on fixed size arrays. midl also supports this: struct { long l1; [string] wchar_t str[16]; long l2; }; Where the wire size of str is encoded like a length_is() header: 4-byte offset == 0; 4-byte array length; The strings are zero terminated. metze
2009-07-27 17:52:16 +04:00
struct TestString r;
struct TestStringStruct str;
r.in.str = &str;
if (!NDR_ERR_CODE_IS_SUCCESS(ndr_pull_TestString(ndr, NDR_IN, &r)))
return 1;
if (r.in.str == NULL)
return 2;
Fix string-wchar-fixed-array-01 test (when libndr is available).
2009-09-13 03:58:11 +04:00
if (r.in.str->l1 != 0x00000001)
pidl: add support for [string] on fixed size arrays. midl also supports this: struct { long l1; [string] wchar_t str[16]; long l2; }; Where the wire size of str is encoded like a length_is() header: 4-byte offset == 0; 4-byte array length; The strings are zero terminated. metze
2009-07-27 17:52:16 +04:00
return 3;
if (strncmp(str.str, "foo", 3) != 0)
return 4;
Fix string-wchar-fixed-array-01 test (when libndr is available).
2009-09-13 03:58:11 +04:00
if (r.in.str->str[4] != 0)
pidl: add support for [string] on fixed size arrays. midl also supports this: struct { long l1; [string] wchar_t str[16]; long l2; }; Where the wire size of str is encoded like a length_is() header: 4-byte offset == 0; 4-byte array length; The strings are zero terminated. metze
2009-07-27 17:52:16 +04:00
return 5;
Fix string-wchar-fixed-array-01 test (when libndr is available).
2009-09-13 03:58:11 +04:00
if (r.in.str->l2 != 0x00000002)
pidl: add support for [string] on fixed size arrays. midl also supports this: struct { long l1; [string] wchar_t str[16]; long l2; }; Where the wire size of str is encoded like a length_is() header: 4-byte offset == 0; 4-byte array length; The strings are zero terminated. metze
2009-07-27 17:52:16 +04:00
return 6;
');
test_samba4_ndr("string-wchar-fixed-array-02",
'
typedef struct {
uint32 l1;
[string,charset(UTF16)] uint16 str[6];
uint32 l2;
} TestStringStruct;
[public] void TestString([in,ref] TestStringStruct *str);
',
'
uint8_t data[] = { 0x01, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00,
0x06, 0x00, 0x00, 0x00,
\'f\', 0x00, \'o\', 0x00,
Fix string-wchar-fixed-array-02 test (when libndr is available).
2009-09-13 03:59:16 +04:00
\'o\', 0x00, \'b\', 0x00,
pidl: add support for [string] on fixed size arrays. midl also supports this: struct { long l1; [string] wchar_t str[16]; long l2; }; Where the wire size of str is encoded like a length_is() header: 4-byte offset == 0; 4-byte array length; The strings are zero terminated. metze
2009-07-27 17:52:16 +04:00
\'a\', 0x00, \'r\', 0x00,
Fix string-wchar-fixed-array-02 test (when libndr is available).
2009-09-13 03:59:16 +04:00
0x00, 0x00, 0x00, 0x00,
pidl: add support for [string] on fixed size arrays. midl also supports this: struct { long l1; [string] wchar_t str[16]; long l2; }; Where the wire size of str is encoded like a length_is() header: 4-byte offset == 0; 4-byte array length; The strings are zero terminated. metze
2009-07-27 17:52:16 +04:00
0x02, 0x00, 0x00, 0x00
};
DATA_BLOB b = { data, sizeof(data) };
Finish removal of iconv_convenience in public API's.
2010-05-09 19:20:01 +04:00
struct ndr_pull *ndr = ndr_pull_init_blob(&b, NULL);
pidl: add support for [string] on fixed size arrays. midl also supports this: struct { long l1; [string] wchar_t str[16]; long l2; }; Where the wire size of str is encoded like a length_is() header: 4-byte offset == 0; 4-byte array length; The strings are zero terminated. metze
2009-07-27 17:52:16 +04:00
struct TestString r;
struct TestStringStruct str;
r.in.str = &str;
/* the string terminator is wrong */
if (NDR_ERR_CODE_IS_SUCCESS(ndr_pull_TestString(ndr, NDR_IN, &r)))
return 1;
');
test_samba4_ndr("string-wchar-fixed-array-03",
'
typedef struct {
uint32 l1;
[string,charset(UTF16)] uint16 str[6];
uint32 l2;
} TestStringStruct;
[public] void TestString([in,ref] TestStringStruct *str);
',
'
uint8_t data[] = { 0x01, 0x00, 0x00, 0x00,
0x00, 0x00, 0x00, 0x00,
0x07, 0x00, 0x00, 0x00,
\'f\', 0x00, \'o\', 0x00,
Fix string-wchar-fixed-array-03 test (when libndr is available).
2009-09-13 03:59:48 +04:00
\'o\', 0x00, \'b\', 0x00,
pidl: add support for [string] on fixed size arrays. midl also supports this: struct { long l1; [string] wchar_t str[16]; long l2; }; Where the wire size of str is encoded like a length_is() header: 4-byte offset == 0; 4-byte array length; The strings are zero terminated. metze
2009-07-27 17:52:16 +04:00
\'a\', 0x00, \'r\', 0x00,
Fix string-wchar-fixed-array-03 test (when libndr is available).
2009-09-13 03:59:48 +04:00
0x00, 0x00, 0x00, 0x00,
pidl: add support for [string] on fixed size arrays. midl also supports this: struct { long l1; [string] wchar_t str[16]; long l2; }; Where the wire size of str is encoded like a length_is() header: 4-byte offset == 0; 4-byte array length; The strings are zero terminated. metze
2009-07-27 17:52:16 +04:00
0x02, 0x00, 0x00, 0x00
};
DATA_BLOB b = { data, sizeof(data) };
Finish removal of iconv_convenience in public API's.
2010-05-09 19:20:01 +04:00
struct ndr_pull *ndr = ndr_pull_init_blob(&b, NULL);
pidl: add support for [string] on fixed size arrays. midl also supports this: struct { long l1; [string] wchar_t str[16]; long l2; }; Where the wire size of str is encoded like a length_is() header: 4-byte offset == 0; 4-byte array length; The strings are zero terminated. metze
2009-07-27 17:52:16 +04:00
struct TestString r;
struct TestStringStruct str;
r.in.str = &str;
/* the length 0x07 is to large */
if (NDR_ERR_CODE_IS_SUCCESS(ndr_pull_TestString(ndr, NDR_IN, &r)))
return 1;
');
r20299: Disable two new tests that are apparently broken. (This used to be commit b3f64869fc4590850203a231ecf6810ae9f1d8cf)
2006-12-21 05:48:46 +03:00
SKIP: {
skip "doesn't seem to work yet", 8;
r18559: [string] always applies to the last pointer (This used to be commit 86b4624226d6e72645221cadb8669b0f1aba0903)
2006-09-15 21:34:46 +04:00
test_samba4_ndr("string-out",
'
r20299: Disable two new tests that are apparently broken. (This used to be commit b3f64869fc4590850203a231ecf6810ae9f1d8cf)
2006-12-21 05:48:46 +03:00
[public] void TestString([out,string,charset(UNIX)] uint8 **data);
r18559: [string] always applies to the last pointer (This used to be commit 86b4624226d6e72645221cadb8669b0f1aba0903)
2006-09-15 21:34:46 +04:00
',
'
uint8_t data[] = { 0x03, 0x00, 0x00, 0x00,
\'f\', \'o\', \'o\', 0 };
DATA_BLOB b = { data, 8 };
Finish removal of iconv_convenience in public API's.
2010-05-09 19:20:01 +04:00
struct ndr_pull *ndr = ndr_pull_init_blob(&b, NULL);
r18559: [string] always applies to the last pointer (This used to be commit 86b4624226d6e72645221cadb8669b0f1aba0903)
2006-09-15 21:34:46 +04:00
struct TestString r;
char *str = NULL;
r.out.data = &str;
r25915: ndr/pidl: change NTSTAUS into enum ndr_err_code (pidl code) Samba4/NDR/Parser.pm Samba4/NDR/Server.pm Samba3/ServerNDR.pm tests/ metze (This used to be commit 7106f21de8dfc472aa0846b49bfdb7543c63b310)
2007-11-09 21:23:25 +03:00
if (!NDR_ERR_CODE_IS_SUCCESS(ndr_pull_TestString(ndr, NDR_IN, &r)))
r18559: [string] always applies to the last pointer (This used to be commit 86b4624226d6e72645221cadb8669b0f1aba0903)
2006-09-15 21:34:46 +04:00
return 1;
if (r.out.data == NULL)
return 2;
if (*r.out.data == NULL)
return 3;
if (strncmp(r.out.data, "foo", 3) != 0)
r20299: Disable two new tests that are apparently broken. (This used to be commit b3f64869fc4590850203a231ecf6810ae9f1d8cf)
2006-12-21 05:48:46 +03:00
return 4;
r18559: [string] always applies to the last pointer (This used to be commit 86b4624226d6e72645221cadb8669b0f1aba0903)
2006-09-15 21:34:46 +04:00
r19868: Fix more tests. (This used to be commit 01a4fb1b22d09f38636c211a93efc4099f4766b3)
2006-11-23 23:59:09 +03:00
if (r.out.data[4] != 0)
r20299: Disable two new tests that are apparently broken. (This used to be commit b3f64869fc4590850203a231ecf6810ae9f1d8cf)
2006-12-21 05:48:46 +03:00
return 5;
r18559: [string] always applies to the last pointer (This used to be commit 86b4624226d6e72645221cadb8669b0f1aba0903)
2006-09-15 21:34:46 +04:00
');
r20299: Disable two new tests that are apparently broken. (This used to be commit b3f64869fc4590850203a231ecf6810ae9f1d8cf)
2006-12-21 05:48:46 +03:00
}
Copy Permalink