Include the test suites for erl_interface

3 files changed, 247 insertions, 0 deletions

diff --git a/lib/erl_interface/test/ei_format_SUITE_data/Makefile.first b/lib/erl_interface/test/ei_format_SUITE_data/Makefile.first
new file mode 100644
index 0000000000..1247ce08c7
--- /dev/null
+++ b/lib/erl_interface/test/ei_format_SUITE_data/Makefile.first
@@ -0,0 +1,21 @@
+#
+# %CopyrightBegin%
+# 
+# Copyright Ericsson AB 2001-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_format_test_decl.c: ei_format_test.c
+	erl -noinput -pa ../all_SUITE_data -s init_tc run ei_format_test -s erlang halt
diff --git a/lib/erl_interface/test/ei_format_SUITE_data/Makefile.src b/lib/erl_interface/test/ei_format_SUITE_data/Makefile.src
new file mode 100644
index 0000000000..73d51794e9
--- /dev/null
+++ b/lib/erl_interface/test/ei_format_SUITE_data/Makefile.src
@@ -0,0 +1,42 @@
+#
+# %CopyrightBegin%
+# 
+# Copyright Ericsson AB 2001-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_FORMAT_OBJS = ei_format_test@obj@ ei_format_test_decl@obj@
+
+all: ei_format_test@exe@
+
+clean:
+	$(RM) $(EI_FORMAT_OBJS)
+	$(RM) ei_format_test@exe@
+
+ei_format_test@exe@: $(EI_FORMAT_OBJS) $(LIBEI)
+	$(LD) @CROSSLDFLAGS@ -o $@ $(EI_FORMAT_OBJS) $(LIBFLAGS)
+
+
diff --git a/lib/erl_interface/test/ei_format_SUITE_data/ei_format_test.c b/lib/erl_interface/test/ei_format_SUITE_data/ei_format_test.c
new file mode 100644
index 0000000000..a969ded3dc
--- /dev/null
+++ b/lib/erl_interface/test/ei_format_SUITE_data/ei_format_test.c
@@ -0,0 +1,184 @@
+/*
+ * %CopyrightBegin%
+ * 
+ * Copyright Ericsson AB 2001-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:  Jakob 
+ */
+
+static void
+send_format2(char* format, char* p)
+{
+    ei_x_buff x;
+    ei_x_new(&x);
+    ei_x_format(&x, format, p);
+    send_bin_term(&x);
+    free(x.buff);
+}
+
+static void
+send_format(char* format)
+{
+    send_format2(format, NULL);
+}
+
+TESTCASE(atoms)
+{
+    send_format("''");
+    send_format("'a'");
+    send_format("'A'");
+    send_format("'abc'");
+    send_format("'Abc'");
+    send_format("'ab@c'");
+    send_format("'The rain in Spain stays mainly in the plains'");
+
+    send_format("a");
+    send_format("ab");
+    send_format("abc");
+    send_format("ab@c");
+    send_format("   abcdefghijklmnopq   ");
+
+    send_format2("~a", "");
+    send_format2("~a", "a");
+    send_format2("~a", "A");
+    send_format2("~a", "abc");
+    send_format2("~a", "Abc");
+    send_format2("~a", "ab@c");
+    send_format2("~a", "The rain in Spain stays mainly in the plains");
+
+    send_format2("~a", "a");
+    send_format2("~a", "ab");
+    send_format2("~a", "abc");
+    send_format2("~a","ab@c");
+    send_format2("~a", "   abcdefghijklmnopq   ");
+
+
+    report(1);
+}
+
+TESTCASE(tuples)
+{
+    send_format("{}");
+    send_format("{a}");
+    send_format("{a, b}");
+    send_format("{a, b, c}");
+    send_format("{1}");
+    send_format("{[]}");
+    send_format("{[], []}");
+    send_format("{[], a, b, c}");
+    send_format("{[], a, [], b, c}");
+    send_format("{[], a, '', b, c}");
+
+    report(1);
+}
+
+
+
+TESTCASE(lists)
+{
+/* FIXME cases to add?
+    ETERM* a;
+    ETERM* b;
+    ETERM* c;
+*/
+    ei_x_buff x;
+    static char str[65537];
+
+    send_format("[]");
+    send_format("[a]");
+    send_format("[a, b]");
+    send_format("[a, b, c]");
+    send_format("[1]");
+    send_format("[[]]");
+    send_format("[[], []]");
+    send_format("[[], a, b, c]");
+    send_format("[[], a, [], b, c]");
+    send_format("[[], a, '', b, c]");
+    send_format("[[x, 2], [y, 3], [z, 4]]");
+    send_format("[{a,b},{c,d}]"); /* OTP-4777 */
+
+    ei_x_new(&x);
+/*
+    b = erl_format("[{addr, ~s, ~i}]", "E-street", 42);
+    a = ei_format(x, "[{name, ~a}, {age, ~i}, {data, ~w}]", "Madonna", 21, b);
+    send_bin_term(a);
+    erl_free_term(b);*/
+    ei_x_format(&x, "[{pi, ~f}, {'cos(70)', ~f}]", (float)3.1415, (float)0.34202);
+    send_bin_term(&x);
+    x.index = 0;        /* otherwise it'll send the previous term again */
+    ei_x_format(&x, "[[pi, ~d], ['cos(70)', ~d]]", 3.1415, 0.34202);
+    send_bin_term(&x);
+
+/*    a = erl_mk_float(3.1415);
+    b = erl_mk_float(0.34202);
+    send_bin_term(ei_format("[[pi, ~w], ['cos(70)', ~w]]", a, b));
+    erl_free_term(a);
+    erl_free_term(b);
+
+    a = erl_mk_float(3.1415);
+    b = erl_mk_float(0.34202);
+    c = erl_mk_empty_list();
+    send_bin_term(ei_format("[[~a, ~w], ~w, [~s, ~w]]", "pi", a, c, "cos(70)", b));
+    erl_free_term(a);
+    erl_free_term(b);
+    erl_free_term(c);
+*/
+    x.index = 0;        /* otherwise it'll send the previous term again */
+    ei_x_format(&x, "[~i]", -1);
+    send_bin_term(&x);
+
+    x.index = 0;
+    ei_x_format(&x, "~s","hejsan");
+    send_bin_term(&x);
+    
+    memset(str,'A',65535);
+    str[65535] = '\0';
+    str[65536] = '\0';
+    x.index = 0;
+    ei_x_format(&x, "~s",str);
+    send_bin_term(&x);
+    str[65535] = 'A';
+    x.index = 0;
+    ei_x_format(&x, "~s",str);
+    send_bin_term(&x);
+
+
+    free(x.buff);
+    report(1);
+}
+
+TESTCASE(format_wo_ver) {
+/* OTP-6795 
+ * make example with format_wo_ver 
+ */
+    ei_x_buff x;
+    
+    ei_x_new (&x);
+    ei_x_format(&x, "[{~a,~s},{~a,~i}]", "a", "b", "c", 10);
+    send_bin_term(&x);
+
+    free(x.buff);
+    report(1);
+}