Include the test suites for erl_interface

3 files changed, 529 insertions, 0 deletions

diff --git a/lib/erl_interface/test/ei_encode_SUITE_data/Makefile.first b/lib/erl_interface/test/ei_encode_SUITE_data/Makefile.first
new file mode 100644
index 0000000000..19a6f4c0aa
--- /dev/null
+++ b/lib/erl_interface/test/ei_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_encode_test_decl.c: ei_encode_test.c
+	erl -noinput -pa ../all_SUITE_data -s init_tc run ei_encode_test -s erlang halt
diff --git a/lib/erl_interface/test/ei_encode_SUITE_data/Makefile.src b/lib/erl_interface/test/ei_encode_SUITE_data/Makefile.src
new file mode 100644
index 0000000000..f2a2c40615
--- /dev/null
+++ b/lib/erl_interface/test/ei_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_ENCODE_OBJS = ei_encode_test@obj@ ei_encode_test_decl@obj@
+
+all: ei_encode_test@exe@
+
+clean:
+	$(RM) $(EI_ENCODE_OBJS)
+	$(RM) ei_encode_test@exe@
+
+ei_encode_test@exe@: $(EI_ENCODE_OBJS) $(LIBEI)
+	$(LD) @CROSSLDFLAGS@ -o $@ $(EI_ENCODE_OBJS) $(LIBFLAGS)
+
+
diff --git a/lib/erl_interface/test/ei_encode_SUITE_data/ei_encode_test.c b/lib/erl_interface/test/ei_encode_SUITE_data/ei_encode_test.c
new file mode 100644
index 0000000000..f8de0b7878
--- /dev/null
+++ b/lib/erl_interface/test/ei_encode_SUITE_data/ei_encode_test.c
@@ -0,0 +1,466 @@
+/*
+ * %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: Tests the ei_format() function.
+ * Author:  Kent
+ */
+
+#define EI_ENCODE_0(FUNC) \
+  { \
+    char buf[1024]; \
+    int size1 = 0; \
+    int size2 = 0; \
+    int err; \
+    message("ei_" #FUNC " encoded as "); \
+    err = ei_ ## FUNC(NULL, &size1); \
+    if (err != 0) { \
+      if (err != -1) { \
+	fail("size calculation returned non zero but not -1"); \
+	return; \
+      } else { \
+	fail("size calculation returned non zero"); \
+	return; \
+      } \
+    } \
+    err = ei_ ## FUNC(buf, &size2); \
+    if (err != 0) { \
+      if (err != -1) { \
+	fail("returned non zero but not -1"); \
+      } else { \
+	fail("returned non zero"); \
+      } \
+      return; \
+    } \
+    if (size1 != size2) { \
+      fail("size differs when arg is NULL or buf"); \
+      return; \
+    } \
+    if (size1 < 1) { \
+      fail("size is < 1"); \
+      return; \
+    } \
+    send_buffer(buf, size1); \
+  } \
+  { \
+    ei_x_buff arg; \
+    int err; \
+    message("ei_x_" #FUNC " encoded as "); \
+    ei_x_new(&arg); \
+    err = ei_x_ ## FUNC(&arg); \
+    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_ENCODE_1(FUNC,ARG) \
+  { \
+    char buf[1024]; \
+    int size1 = 0; \
+    int size2 = 0; \
+    int err; \
+    message("ei_" #FUNC " " #ARG " encoded as "); \
+    err = ei_ ## FUNC(NULL, &size1, ARG); \
+    if (err != 0) { \
+      if (err != -1) { \
+	fail("size calculation returned non zero but not -1"); \
+	return; \
+      } else { \
+	fail("size calculation returned non zero"); \
+	return; \
+      } \
+    } \
+    err = ei_ ## FUNC(buf, &size2, ARG); \
+    if (err != 0) { \
+      if (err != -1) { \
+	fail("returned non zero but not -1"); \
+      } else { \
+	fail("returned non zero"); \
+      } \
+      return; \
+    } \
+    if (size1 != size2) { \
+      fail("size differs when arg is NULL or buf"); \
+      return; \
+    } \
+    if (size1 < 1) { \
+      fail("size is < 1"); \
+      return; \
+    } \
+    send_buffer(buf, size1); \
+  } \
+  { \
+    ei_x_buff arg; \
+    int err; \
+    message("ei_x_" #FUNC " " #ARG " encoded as "); \
+    ei_x_new(&arg); \
+    err = ei_x_ ## FUNC(&arg, ARG); \
+    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_ENCODE_2(FUNC,ARG1,ARG2) \
+  { \
+    char buf[1024]; \
+    int size1 = 0; \
+    int size2 = 0; \
+    int err; \
+    message("ei_" #FUNC " " #ARG1 " " #ARG2 " encoded as "); \
+    err = ei_ ## FUNC(NULL, &size1, ARG1, ARG2); \
+    if (err != 0) { \
+      if (err != -1) { \
+	fail("size calculation returned non zero but not -1"); \
+	return; \
+      } else { \
+	fail("size calculation returned non zero"); \
+	return; \
+      } \
+    } \
+    err = ei_ ## FUNC(buf, &size2, ARG1, ARG2); \
+    if (err != 0) { \
+      if (err != -1) { \
+	fail("returned non zero but not -1"); \
+      } else { \
+	fail("returned non zero"); \
+      } \
+      return; \
+    } \
+    if (size1 != size2) { \
+      fail("size differs when arg is NULL or buf"); \
+      return; \
+    } \
+    if (size1 < 1) { \
+      fail("size is < 1"); \
+      return; \
+    } \
+    send_buffer(buf, size1); \
+  } \
+  { \
+    ei_x_buff arg; \
+    int err; \
+    message("ei_x_" #FUNC " " #ARG1 " " #ARG2 " encoded as "); \
+    ei_x_new(&arg); \
+    err = ei_x_ ## FUNC(&arg, ARG1, ARG2); \
+    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); \
+  }
+
+/* ******************************************************************** */
+
+TESTCASE(test_ei_encode_long)
+{
+    EI_ENCODE_1(encode_long, 0);
+
+    EI_ENCODE_1(encode_long, 255);
+
+    EI_ENCODE_1(encode_long, 256);
+
+    EI_ENCODE_1(encode_long, -1);
+
+    EI_ENCODE_1(encode_long,  0x07ffffff);
+
+    EI_ENCODE_1(encode_long, -ll(0x08000000));
+
+    EI_ENCODE_1(encode_long,  0x07ffffff+1);
+
+    EI_ENCODE_1(encode_long, -ll(0x08000000)-1);
+
+    EI_ENCODE_1(encode_long,  0x7fffffff);
+
+    EI_ENCODE_1(encode_long, -ll(0x80000000));
+
+    report(1);
+}
+
+/* ******************************************************************** */
+
+TESTCASE(test_ei_encode_ulong)
+{
+    EI_ENCODE_1(encode_ulong, 0);
+
+    EI_ENCODE_1(encode_ulong, 255);
+
+    EI_ENCODE_1(encode_ulong, 256);
+
+    EI_ENCODE_1(encode_ulong,  0x07ffffff);
+
+    EI_ENCODE_1(encode_ulong,  0x07ffffff+1);
+
+    EI_ENCODE_1(encode_ulong,  0x7fffffff);
+
+    EI_ENCODE_1(encode_ulong,  0x80000000);
+
+    EI_ENCODE_1(encode_ulong,  0xffffffff);
+
+    report(1);
+}
+
+/* ******************************************************************** */
+
+
+TESTCASE(test_ei_encode_longlong)
+{
+
+#ifndef VXWORKS
+
+    EI_ENCODE_1(encode_longlong, 0);
+
+    EI_ENCODE_1(encode_longlong, 255);
+
+    EI_ENCODE_1(encode_longlong, 256);
+
+    EI_ENCODE_1(encode_longlong, -1);
+
+    EI_ENCODE_1(encode_longlong,  0x07ffffff);
+
+    EI_ENCODE_1(encode_longlong, -ll(0x08000000));
+
+    EI_ENCODE_1(encode_longlong,  0x07ffffff+1);
+
+    EI_ENCODE_1(encode_longlong, -ll(0x08000000)-1);
+
+    EI_ENCODE_1(encode_longlong,  0x7fffffff);
+
+    EI_ENCODE_1(encode_longlong, -ll(0x80000000));
+
+    EI_ENCODE_1(encode_longlong,  ll(0x7fffffffffff));
+
+    EI_ENCODE_1(encode_longlong, -ll(0x800000000000));
+
+    EI_ENCODE_1(encode_longlong,  ll(0x7fffffffffffffff));
+
+    EI_ENCODE_1(encode_longlong, -ll(0x8000000000000000));
+
+#endif /* !VXWORKS */
+
+    report(1);
+}
+
+/* ******************************************************************** */
+
+TESTCASE(test_ei_encode_ulonglong)
+{
+
+#ifndef VXWORKS
+
+    EI_ENCODE_1(encode_ulonglong, 0);
+
+    EI_ENCODE_1(encode_ulonglong, 255);
+
+    EI_ENCODE_1(encode_ulonglong, 256);
+
+    EI_ENCODE_1(encode_ulonglong,  0x07ffffff);
+
+    EI_ENCODE_1(encode_ulonglong,  0x07ffffff+1);
+
+    EI_ENCODE_1(encode_ulonglong,  0x7fffffff);
+
+    EI_ENCODE_1(encode_ulonglong,  0x80000000);
+
+    EI_ENCODE_1(encode_ulonglong,  0xffffffff);
+
+    EI_ENCODE_1(encode_ulonglong,  ll(0xffffffffffff));
+
+    EI_ENCODE_1(encode_ulonglong,  ll(0xffffffffffffffff));
+
+#endif /* !VXWORKS */
+
+    report(1);
+}
+
+
+/* ******************************************************************** */
+
+TESTCASE(test_ei_encode_char)
+{
+    EI_ENCODE_1(encode_char, 0);
+
+    EI_ENCODE_1(encode_char, 0x7f);
+
+    EI_ENCODE_1(encode_char, 0xff);
+
+    report(1);
+}
+
+/* ******************************************************************** */
+
+TESTCASE(test_ei_encode_misc)
+{
+    EI_ENCODE_0(encode_version);
+/*
+    EI_ENCODE_1(encode_double, 0.0);
+
+    EI_ENCODE_1(encode_double, -1.0);
+
+    EI_ENCODE_1(encode_double, 1.0);
+*/
+    EI_ENCODE_1(encode_boolean, 0) /* Only case it should be false */;
+
+    EI_ENCODE_1(encode_boolean, 1);
+
+    EI_ENCODE_1(encode_boolean, 42);
+
+    EI_ENCODE_1(encode_boolean, -1);
+
+    EI_ENCODE_1(encode_atom, "foo");
+    EI_ENCODE_2(encode_atom_len, "foo", 3);
+
+    EI_ENCODE_1(encode_atom, "");
+    EI_ENCODE_2(encode_atom_len, "", 0);
+
+    EI_ENCODE_1(encode_atom, "������");
+    EI_ENCODE_2(encode_atom_len, "������", 6);
+
+    EI_ENCODE_1(encode_string, "foo");
+    EI_ENCODE_2(encode_string_len, "foo", 3);
+
+    EI_ENCODE_1(encode_string, "");
+    EI_ENCODE_2(encode_string_len, "", 0);
+
+    EI_ENCODE_1(encode_string, "������");
+    EI_ENCODE_2(encode_string_len, "������", 6);
+
+    EI_ENCODE_2(encode_binary, "foo", 3);
+    EI_ENCODE_2(encode_binary, "", 0);
+    EI_ENCODE_2(encode_binary, "������", 6);
+
+    /* FIXME check \0 in strings and atoms */
+
+    EI_ENCODE_1(encode_tuple_header, 0);
+
+    EI_ENCODE_0(encode_empty_list);
+
+    report(1);
+}
+
+/* ******************************************************************** */
+
+TESTCASE(test_ei_encode_fails)
+{
+    char buf[1024];
+    int index;
+
+    /* FIXME the ei_x versions are not tested */
+
+    index = 0;
+    if (ei_encode_atom(buf, &index, "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx") != 0) {
+	fail("could not encode atom with 255 chars");
+    }
+    message("Encoding atom with 255 chars, encoded %d",index);
+    if (index != 255+3) {
+	fail("encoded with incorrect size");
+    }
+    send_buffer(buf, index);
+
+    index = 0;
+    if (ei_encode_atom_len(buf, &index, "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx", 255) != 0) {
+	fail("could not encode atom with 255 chars");
+    }
+    message("Encoding atom with 255 chars, encoded %d",index);
+    if (index != 255+3) {
+	fail("encoded with incorrect size");
+    }
+    send_buffer(buf, index);
+
+    index = 0;
+    if (ei_encode_atom(buf, &index, "yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy") != 0) {
+	fail("could not encode atom with 256 chars, truncated to 255");
+    }
+    message("Encoding atom with 256 chars, encoded %d",index);
+    if (index != 255+3) {
+	fail("did not truncate at 255 chars");
+    }
+    send_buffer(buf, index);
+
+    index = 0;
+    if (ei_encode_atom_len(buf, &index, "yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy", 256) != 0) {
+	fail("could not encode atom with 256 chars, truncated to 255");
+    }
+    message("Encoding atom with 256 chars, encoded %d",index);
+    if (index != 255+3) {
+	fail("did not truncate at 255 chars");
+    }
+    send_buffer(buf, index);
+
+    /* ---------------------------------------------------------------------- */
+
+    index = 0;
+    if (ei_encode_tuple_header(buf, &index, 1) != 0) {
+	fail("could not create tuple header arity 1, take 1");
+    }
+    if (ei_encode_tuple_header(buf, &index, 1) != 0) {
+	fail("could not create tuple header arity 1, take 2");
+    }
+    if (ei_encode_tuple_header(buf, &index, 1) != 0) {
+	fail("could not create tuple header arity 1, take 3");
+    }
+    if (ei_encode_tuple_header(buf, &index, 0) != 0) {
+	fail("could not create tuple header arity 0");
+    }
+    send_buffer(buf, index);
+
+    report(1);
+}