1 files changed, 93 insertions, 0 deletions
diff --git a/source4/torture/com/simple.c b/source4/torture/com/simple.c
new file mode 100644
index 0000000000..369b03f151
--- /dev/null
+++ b/source4/torture/com/simple.c
@@ -0,0 +1,93 @@
+/* 
+   Unix SMB/CIFS implementation.
+   run the "simple" example (D)COM program 
+
+   Copyright (C) Jelmer Vernooij 2004
+   
+   This program is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 2 of the License, or
+   (at your option) any later version.
+   
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+   
+   You should have received a copy of the GNU General Public License
+   along with this program; if not, write to the Free Software
+   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+*/
+
+#include "includes.h"
+#include "lib/com/com.h"
+#include "librpc/gen_ndr/com_dcom.h"
+
+#define CLSID_SIMPLE "5e9ddec7-5767-11cf-beab-00aa006c3606"
+#define DEFAULT_TRANS 4096
+
+static BOOL test_readwrite(TALLOC_CTX *mem_ctx, const char *host)
+{
+	struct dcerpc_pipe *p = NULL;
+	BOOL ret = True;
+	struct GUID IID[2];
+	struct GUID clsid;
+	WERROR error;
+	struct IUnknown *interfaces[3];
+	WERROR results[2];
+	struct com_context *ctx;
+	char test_data[5];
+	int i;
+
+	com_init(&ctx);
+
+	GUID_from_string(COM_ISTREAM_UUID, &IID[0]);
+	GUID_from_string(COM_IUNKNOWN_UUID, &IID[1]);
+	GUID_from_string(CLSID_SIMPLE, &clsid);
+/*	error = dcom_create_object(ctx, &clsid, 
+							  host, 2, IID,
+							  &interfaces, 
+							  results);*/
+
+	error = com_create_object(ctx, &clsid, 2, IID, interfaces, results);
+
+	if (!W_ERROR_IS_OK(error)) {
+		printf("(d)com_create_object failed - %s\n", win_errstr(error));
+		return False;
+	}
+	
+	error = IStream_Read((struct IStream *)interfaces[0], mem_ctx, NULL, 20, 20, 30);
+	if (!W_ERROR_IS_OK(error)) {
+		printf("IStream::Read() failed - %s\n", win_errstr(error));
+		ret = False;
+	}
+
+	for (i = 0; i < 5; i++) {
+		test_data[i] = i+1;
+	}
+
+	error = IStream_Write((struct IStream *)interfaces[0], mem_ctx, &test_data, 5, NULL);
+	if (!W_ERROR_IS_OK(error)) {
+		printf("IStream::Write() failed - %s\n", win_errstr(error));
+		ret = False;
+	}
+
+	IUnknown_Release((struct IUnknown *)interfaces[1], mem_ctx);
+
+	torture_rpc_close(p);
+
+	return True;
+}
+
+BOOL torture_com_simple(void)
+{
+	BOOL ret = True;
+	TALLOC_CTX *mem_ctx = talloc_init("torture_dcom_simple");
+
+	ret &= test_readwrite(mem_ctx, NULL);
+	ret &= test_readwrite(mem_ctx, lp_parm_string(-1, "torture", "dcomhost"));
+
+	talloc_free(mem_ctx);
+
+	return ret;
+}