From a2d4079c81940b336b9b47cf23d24c66644a6076 Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Sat, 25 Mar 2006 20:51:41 +0000
Subject: r14727: Update pidls' TODO, add test that demonstrates the desired
 behaviour (This used to be commit c2f510d38be6b4387120d7477ddd200b9bec13e5)

---
 source4/pidl/TODO                 |  7 +++----
 source4/pidl/tests/ndr_tagtype.pl | 38 ++++++++++++++++++++++++++++++++++++++
 2 files changed, 41 insertions(+), 4 deletions(-)
 create mode 100755 source4/pidl/tests/ndr_tagtype.pl

(limited to 'source4/pidl')

diff --git a/source4/pidl/TODO b/source4/pidl/TODO
index 6203bd412f..3098a44a8f 100644
--- a/source4/pidl/TODO
+++ b/source4/pidl/TODO
@@ -11,11 +11,10 @@
 
 - auto-alloc [ref] pointers for Samba4 during pull if they were NULL
  
-- replace subcontext() with represent_as()
- - NTSTATUS FROM_to_TO (const FROM *f, TO **t); /* FIXME: t needs to be allocated using talloc */
- - NTSTATUS TO_to_FROM (const TO *t, FROM **f); /* FIXME: f needs to be allocated using talloc */
- - `
+- improve represent_as()
 
 - --explain-ndr option that dumps out parse tree ?
 
 - seperate tables for NDR and DCE/RPC
+
+- allow data structures outside of interfaces
diff --git a/source4/pidl/tests/ndr_tagtype.pl b/source4/pidl/tests/ndr_tagtype.pl
new file mode 100755
index 0000000000..dcdbc22494
--- /dev/null
+++ b/source4/pidl/tests/ndr_tagtype.pl
@@ -0,0 +1,38 @@
+#!/usr/bin/perl
+# Support for tagged types
+# (C) 2005 Jelmer Vernooij. Published under the GNU GPL
+use strict;
+
+use Test::More tests => 1 * 8;
+use FindBin qw($RealBin);
+use lib "$RealBin/../lib";
+use lib "$RealBin";
+use Util qw(test_samba4_ndr);
+
+SKIP: {
+	skip "Tagged types without typedef are not supported yet", 8;
+
+test_samba4_ndr('struct-notypedef', 
+'
+	struct bla { 
+		uint8 x;
+	};
+',
+'
+	struct ndr_push *ndr = ndr_push_init();
+	struct bla r;
+	uint8_t expected[] = { 0x0D };
+	DATA_BLOB expected_blob = { expected, 1 };
+	DATA_BLOB result_blob;
+	r.x = 13;
+
+	if (NT_STATUS_IS_ERR(ndr_push_bla(ndr, NDR_SCALARS|NDR_BUFFERS, &r)))
+		return 1;
+
+	result_blob = ndr_push_blob(ndr);
+	
+	if (!data_blob_equal(&result_blob, &expected_blob)) 
+		return 2;
+');
+
+}
-- 
cgit