Include the test suites for erl_interface

3 files changed, 292 insertions, 0 deletions

diff --git a/lib/erl_interface/test/ei_decode_encode_SUITE_data/Makefile.first b/lib/erl_interface/test/ei_decode_encode_SUITE_data/Makefile.first
new file mode 100644
index 0000000000..168a21b10e
--- /dev/null
+++ b/lib/erl_interface/test/ei_decode_encode_SUITE_data/Makefile.first
@@ -0,0 +1,21 @@
+#
+# %CopyrightBegin%
+# 
+# Copyright Ericsson AB 2004-2009. All Rights Reserved.
+# 
+# The contents of this file are subject to the Erlang Public License,
+# Version 1.1, (the "License"); you may not use this file except in
+# compliance with the License. You should have received a copy of the
+# Erlang Public License along with this software. If not, it can be
+# retrieved online at http://www.erlang.org/.
+# 
+# Software distributed under the License is distributed on an "AS IS"
+# basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+# the License for the specific language governing rights and limitations
+# under the License.
+# 
+# %CopyrightEnd%
+#
+
+ei_decode_encode_test_decl.c: ei_decode_encode_test.c
+	erl -noinput -pa ../all_SUITE_data -s init_tc run ei_decode_encode_test -s erlang halt
diff --git a/lib/erl_interface/test/ei_decode_encode_SUITE_data/Makefile.src b/lib/erl_interface/test/ei_decode_encode_SUITE_data/Makefile.src
new file mode 100644
index 0000000000..d43e834558
--- /dev/null
+++ b/lib/erl_interface/test/ei_decode_encode_SUITE_data/Makefile.src
@@ -0,0 +1,42 @@
+#
+# %CopyrightBegin%
+# 
+# Copyright Ericsson AB 2004-2009. All Rights Reserved.
+# 
+# The contents of this file are subject to the Erlang Public License,
+# Version 1.1, (the "License"); you may not use this file except in
+# compliance with the License. You should have received a copy of the
+# Erlang Public License along with this software. If not, it can be
+# retrieved online at http://www.erlang.org/.
+# 
+# Software distributed under the License is distributed on an "AS IS"
+# basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+# the License for the specific language governing rights and limitations
+# under the License.
+# 
+# %CopyrightEnd%
+#
+
+include @erl_interface_mk_include@@[email protected]
+
+CC0 = @CC@
+CC = ..@DS@all_SUITE_data@DS@gccifier@exe@ -CC"$(CC0)"
+LD = @LD@
+LIBPATH = @erl_interface_libpath@
+LIBEI = $(LIBPATH)/@erl_interface_eilib@
+LIBFLAGS = ../all_SUITE_data/ei_runner@obj@ \
+	$(LIBEI) @LIBS@ @erl_interface_sock_libs@ \
+	@erl_interface_threadlib@
+CFLAGS = @EI_CFLAGS@ $(THR_DEFS) -I@erl_interface_include@ -I../all_SUITE_data
+EI_DECODE_ENCODE_OBJS = ei_decode_encode_test@obj@ ei_decode_encode_test_decl@obj@
+
+all: ei_decode_encode_test@exe@
+
+clean:
+	$(RM) $(EI_DECODE_ENCODE_OBJS)
+	$(RM) ei_decode_encode_test@exe@
+
+ei_decode_encode_test@exe@: $(EI_DECODE_ENCODE_OBJS) $(LIBEI)
+	$(LD) @CROSSLDFLAGS@ -o $@ $(EI_DECODE_ENCODE_OBJS) $(LIBFLAGS)
+
+
diff --git a/lib/erl_interface/test/ei_decode_encode_SUITE_data/ei_decode_encode_test.c b/lib/erl_interface/test/ei_decode_encode_SUITE_data/ei_decode_encode_test.c
new file mode 100644
index 0000000000..406f02ecfb
--- /dev/null
+++ b/lib/erl_interface/test/ei_decode_encode_SUITE_data/ei_decode_encode_test.c
@@ -0,0 +1,229 @@
+/*
+ * %CopyrightBegin%
+ * 
+ * Copyright Ericsson AB 2004-2009. All Rights Reserved.
+ * 
+ * The contents of this file are subject to the Erlang Public License,
+ * Version 1.1, (the "License"); you may not use this file except in
+ * compliance with the License. You should have received a copy of the
+ * Erlang Public License along with this software. If not, it can be
+ * retrieved online at http://www.erlang.org/.
+ * 
+ * Software distributed under the License is distributed on an "AS IS"
+ * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+ * the License for the specific language governing rights and limitations
+ * under the License.
+ * 
+ * %CopyrightEnd%
+ */
+
+#ifdef VXWORKS
+#include "reclaim.h"
+#endif
+
+#include "ei_runner.h"
+
+/*
+ * Purpose: Read pids, funs and others without real meaning on the C side 
+ *          and pass it back to Erlang to test that it is still the same. 
+ * Author:  [email protected]
+ */
+
+#define EI_DECODE_ENCODE(FUNC,TYPE) \
+  { \
+    char *buf; \
+    char buf2[1024]; \
+    TYPE p; \
+    int size1 = 0; \
+    int size2 = 0; \
+    int size3 = 0; \
+    int err; \
+    ei_x_buff arg; \
+\
+    message("ei_decode_" #FUNC ", arg is type " #TYPE); \
+    buf = read_packet(NULL); \
+    err = ei_decode_ ## FUNC(buf+1, &size1, &p); \
+    if (err != 0) { \
+      if (err != -1) { \
+	fail("decode returned non zero but not -1"); \
+      } else { \
+	fail("decode returned non zero"); \
+      } \
+      return; \
+    } \
+    if (size1 < 1) { \
+      fail("size is < 1"); \
+      return; \
+    } \
+\
+    message("ei_encode_" #FUNC " buf is NULL, arg is type " #TYPE); \
+    err = ei_encode_ ## FUNC(NULL, &size2, &p); \
+    if (err != 0) { \
+      if (err != -1) { \
+	fail("size calculation returned non zero but not -1"); \
+	return; \
+      } else { \
+	fail("size calculation returned non zero"); \
+	return; \
+      } \
+    } \
+    if (size1 != size2) { \
+      message("size1 = %d, size2 = %d\n",size1,size2); \
+      fail("decode and encode size differs when buf is NULL"); \
+      return; \
+    } \
+    message("ei_encode_" #FUNC ", arg is type " #TYPE); \
+    err = ei_encode_ ## FUNC(buf2, &size3, &p); \
+    if (err != 0) { \
+      if (err != -1) { \
+	fail("returned non zero but not -1"); \
+      } else { \
+	fail("returned non zero"); \
+      } \
+      return; \
+    } \
+    if (size1 != size3) { \
+      message("size1 = %d, size2 = %d\n",size1,size3); \
+      fail("decode and encode size differs"); \
+      return; \
+    } \
+    send_buffer(buf2, size1); \
+\
+    message("ei_x_encode_" #FUNC ", arg is type " #TYPE); \
+    ei_x_new(&arg); \
+    err = ei_x_encode_ ## FUNC(&arg, &p); \
+    if (err != 0) { \
+      if (err != -1) { \
+	fail("returned non zero but not -1"); \
+      } else { \
+	fail("returned non zero"); \
+      } \
+      ei_x_free(&arg); \
+      return; \
+    } \
+    if (arg.index < 1) { \
+      fail("size is < 1"); \
+      ei_x_free(&arg); \
+      return; \
+    } \
+    send_buffer(arg.buff, arg.index); \
+    ei_x_free(&arg); \
+  }
+
+#define EI_DECODE_ENCODE_BIG(FUNC,TYPE) \
+  { \
+    char *buf; \
+    char buf2[2048]; \
+    TYPE *p; \
+    int size1 = 0; \
+    int size2 = 0; \
+    int size3 = 0; \
+    int err, index = 0, len, type; \
+    ei_x_buff arg; \
+\
+    message("ei_decode_" #FUNC ", arg is type " #TYPE); \
+    buf = read_packet(NULL); \
+    ei_get_type(buf+1, &index, &type, &len); \
+    p = ei_alloc_big(len); \
+    err = ei_decode_ ## FUNC(buf+1, &size1, p); \
+    if (err != 0) { \
+      if (err != -1) { \
+	fail("decode returned non zero but not -1"); \
+      } else { \
+	fail("decode returned non zero"); \
+      } \
+      return; \
+    } \
+    if (size1 < 1) { \
+      fail("size is < 1"); \
+      return; \
+    } \
+\
+    message("ei_encode_" #FUNC " buf is NULL, arg is type " #TYPE); \
+    err = ei_encode_ ## FUNC(NULL, &size2, p); \
+    if (err != 0) { \
+      if (err != -1) { \
+	fail("size calculation returned non zero but not -1"); \
+	return; \
+      } else { \
+	fail("size calculation returned non zero"); \
+	return; \
+      } \
+    } \
+    if (size1 != size2) { \
+      message("size1 = %d, size2 = %d\n",size1,size2); \
+      fail("decode and encode size differs when buf is NULL"); \
+      return; \
+    } \
+    message("ei_encode_" #FUNC ", arg is type " #TYPE); \
+    err = ei_encode_ ## FUNC(buf2, &size3, p); \
+    if (err != 0) { \
+      if (err != -1) { \
+	fail("returned non zero but not -1"); \
+      } else { \
+	fail("returned non zero"); \
+      } \
+      return; \
+    } \
+    if (size1 != size3) { \
+      message("size1 = %d, size2 = %d\n",size1,size3); \
+      fail("decode and encode size differs"); \
+      return; \
+    } \
+    send_buffer(buf2, size1); \
+\
+    message("ei_x_encode_" #FUNC ", arg is type " #TYPE); \
+    ei_x_new(&arg); \
+    err = ei_x_encode_ ## FUNC(&arg, p); \
+    if (err != 0) { \
+      if (err != -1) { \
+	fail("returned non zero but not -1"); \
+      } else { \
+	fail("returned non zero"); \
+      } \
+      ei_x_free(&arg); \
+      return; \
+    } \
+    if (arg.index < 1) { \
+      fail("size is < 1"); \
+      ei_x_free(&arg); \
+      return; \
+    } \
+    send_buffer(arg.buff, arg.index); \
+    ei_x_free(&arg); \
+    ei_free_big(p); \
+  }
+
+
+
+
+/* ******************************************************************** */
+
+TESTCASE(test_ei_decode_encode)
+{
+    EI_DECODE_ENCODE(fun  , erlang_fun);
+    EI_DECODE_ENCODE(pid  , erlang_pid);
+    EI_DECODE_ENCODE(port , erlang_port);
+    EI_DECODE_ENCODE(ref  , erlang_ref);
+    EI_DECODE_ENCODE(trace, erlang_trace);
+
+    EI_DECODE_ENCODE_BIG(big  , erlang_big);
+    EI_DECODE_ENCODE_BIG(big  , erlang_big);
+    EI_DECODE_ENCODE_BIG(big  , erlang_big);
+
+    EI_DECODE_ENCODE_BIG(big  , erlang_big);
+    EI_DECODE_ENCODE_BIG(big  , erlang_big);
+    EI_DECODE_ENCODE_BIG(big  , erlang_big);
+
+    /* Test large node containers... */
+    EI_DECODE_ENCODE(pid  , erlang_pid);
+    EI_DECODE_ENCODE(port , erlang_port);
+    EI_DECODE_ENCODE(ref  , erlang_ref);
+    EI_DECODE_ENCODE(pid  , erlang_pid);
+    EI_DECODE_ENCODE(port , erlang_port);
+    EI_DECODE_ENCODE(ref  , erlang_ref);
+
+    report(1);
+}
+
+/* ******************************************************************** */