[vala/0.54] tests: Add more "declaration" tests for genie to increase coverage
- From: Rico Tzschichholz <ricotz src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [vala/0.54] tests: Add more "declaration" tests for genie to increase coverage
- Date: Sun, 14 Nov 2021 09:39:38 +0000 (UTC)
commit 3a20542124ab19a5ee27db29ba0c6ac6a6362ca9
Author: Rico Tzschichholz <ricotz ubuntu com>
Date: Fri Nov 5 11:08:23 2021 +0100
tests: Add more "declaration" tests for genie to increase coverage
tests/Makefile.am | 6 +
tests/genie/class-field.c-expected | 330 +++++++++++++++++++++++++++++++
tests/genie/class-field.gs | 10 +
tests/genie/class-init.c-expected | 164 ++++++++++++++++
tests/genie/class-init.gs | 18 ++
tests/genie/class-signal.c-expected | 376 ++++++++++++++++++++++++++++++++++++
tests/genie/class-signal.gs | 11 ++
tests/genie/constant.c-expected | 31 +++
tests/genie/constant.gs | 4 +
tests/genie/exception.c-expected | 55 ++++++
tests/genie/exception.gs | 7 +
tests/genie/interface.c-expected | 208 ++++++++++++++++++++
tests/genie/interface.gs | 10 +
13 files changed, 1230 insertions(+)
---
diff --git a/tests/Makefile.am b/tests/Makefile.am
index bd1e82f50..194eaf10c 100644
--- a/tests/Makefile.am
+++ b/tests/Makefile.am
@@ -1228,7 +1228,11 @@ TESTS = \
version/since-method.test \
version/since-parameter.test \
genie/class.gs \
+ genie/class-field.gs \
+ genie/class-init.gs \
genie/class-property.gs \
+ genie/class-signal.gs \
+ genie/constant.gs \
genie/control-flow-if-do.gs \
genie/control-flow-if-else.gs \
genie/control-flow-if-else-if.gs \
@@ -1238,6 +1242,7 @@ TESTS = \
genie/control-flow-if-less-than.gs \
genie/enum.gs \
genie/enum-with-keyword-values.gs \
+ genie/exception.gs \
genie/function.gs \
genie/function-returns-closure.gs \
genie/function-with-argument.gs \
@@ -1245,6 +1250,7 @@ TESTS = \
genie/indentation-with-spaces.gs \
genie/init.gs \
genie/init-int.gs \
+ genie/interface.gs \
genie/literal-boolean-assignment.gs \
genie/literal-boolean.gs \
genie/literal-character.gs \
diff --git a/tests/genie/class-field.c-expected b/tests/genie/class-field.c-expected
new file mode 100644
index 000000000..f591e31f4
--- /dev/null
+++ b/tests/genie/class-field.c-expected
@@ -0,0 +1,330 @@
+/* genie_class_field.c generated by valac, the Vala compiler
+ * generated from genie_class_field.gs, do not modify */
+
+#include <stdlib.h>
+#include <string.h>
+#include <glib.h>
+#include <glib-object.h>
+#include <gobject/gvaluecollector.h>
+
+#if !defined(VALA_EXTERN)
+#if defined(_MSC_VER)
+#define VALA_EXTERN __declspec(dllexport) extern
+#elif __GNUC__ >= 4
+#define VALA_EXTERN __attribute__((visibility("default"))) extern
+#else
+#define VALA_EXTERN extern
+#endif
+#endif
+
+#define TYPE_TEST (test_get_type ())
+#define TEST(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), TYPE_TEST, Test))
+#define TEST_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), TYPE_TEST, TestClass))
+#define IS_TEST(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), TYPE_TEST))
+#define IS_TEST_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), TYPE_TEST))
+#define TEST_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), TYPE_TEST, TestClass))
+
+typedef struct _Test Test;
+typedef struct _TestClass TestClass;
+typedef struct _TestPrivate TestPrivate;
+#define _test_unref0(var) ((var == NULL) ? NULL : (var = (test_unref (var), NULL)))
+#define _g_free0(var) (var = (g_free (var), NULL))
+typedef struct _ParamSpecTest ParamSpecTest;
+#define _vala_assert(expr, msg) if G_LIKELY (expr) ; else g_assertion_message_expr (G_LOG_DOMAIN, __FILE__,
__LINE__, G_STRFUNC, msg);
+#define _vala_return_if_fail(expr, msg) if G_LIKELY (expr) ; else { g_return_if_fail_warning (G_LOG_DOMAIN,
G_STRFUNC, msg); return; }
+#define _vala_return_val_if_fail(expr, msg, val) if G_LIKELY (expr) ; else { g_return_if_fail_warning
(G_LOG_DOMAIN, G_STRFUNC, msg); return val; }
+#define _vala_warn_if_fail(expr, msg) if G_LIKELY (expr) ; else g_warn_message (G_LOG_DOMAIN, __FILE__,
__LINE__, G_STRFUNC, msg);
+
+struct _Test {
+ GTypeInstance parent_instance;
+ volatile int ref_count;
+ TestPrivate * priv;
+ gchar* a;
+};
+
+struct _TestClass {
+ GTypeClass parent_class;
+ void (*finalize) (Test *self);
+ gchar* b;
+};
+
+struct _ParamSpecTest {
+ GParamSpec parent_instance;
+};
+
+VALA_EXTERN gchar* test_c;
+static gpointer test_parent_class = NULL;
+gchar* test_c = NULL;
+
+static void _vala_main (gchar** args,
+ gint args_length1);
+VALA_EXTERN gpointer test_ref (gpointer instance);
+VALA_EXTERN void test_unref (gpointer instance);
+VALA_EXTERN GParamSpec* param_spec_test (const gchar* name,
+ const gchar* nick,
+ const gchar* blurb,
+ GType object_type,
+ GParamFlags flags);
+VALA_EXTERN void value_set_test (GValue* value,
+ gpointer v_object);
+VALA_EXTERN void value_take_test (GValue* value,
+ gpointer v_object);
+VALA_EXTERN gpointer value_get_test (const GValue* value);
+VALA_EXTERN GType test_get_type (void) G_GNUC_CONST ;
+G_DEFINE_AUTOPTR_CLEANUP_FUNC (Test, test_unref)
+VALA_EXTERN Test* test_new (void);
+VALA_EXTERN Test* test_construct (GType object_type);
+static void test_finalize (Test * obj);
+static GType test_get_type_once (void);
+
+static void
+_vala_main (gchar** args,
+ gint args_length1)
+{
+ Test* a = NULL;
+ Test* _tmp0_;
+ const gchar* _tmp1_;
+ const gchar* _tmp2_;
+ const gchar* _tmp3_;
+ _tmp0_ = test_new ();
+ a = _tmp0_;
+ _tmp1_ = a->a;
+ _vala_assert (g_strcmp0 (_tmp1_, "a") == 0, "a.a == \"a\"");
+ _tmp2_ = TEST_GET_CLASS (a)->b;
+ _vala_assert (g_strcmp0 (_tmp2_, "b") == 0, "a.b == \"b\"");
+ _tmp3_ = test_c;
+ _vala_assert (g_strcmp0 (_tmp3_, "c") == 0, "a.c == \"c\"");
+ _test_unref0 (a);
+}
+
+int
+main (int argc,
+ char ** argv)
+{
+ _vala_main (argv, argc);
+ return 0;
+}
+
+Test*
+test_construct (GType object_type)
+{
+ Test* self = NULL;
+ self = (Test*) g_type_create_instance (object_type);
+ return self;
+}
+
+Test*
+test_new (void)
+{
+ return test_construct (TYPE_TEST);
+}
+
+static void
+value_test_init (GValue* value)
+{
+ value->data[0].v_pointer = NULL;
+}
+
+static void
+value_test_free_value (GValue* value)
+{
+ if (value->data[0].v_pointer) {
+ test_unref (value->data[0].v_pointer);
+ }
+}
+
+static void
+value_test_copy_value (const GValue* src_value,
+ GValue* dest_value)
+{
+ if (src_value->data[0].v_pointer) {
+ dest_value->data[0].v_pointer = test_ref (src_value->data[0].v_pointer);
+ } else {
+ dest_value->data[0].v_pointer = NULL;
+ }
+}
+
+static gpointer
+value_test_peek_pointer (const GValue* value)
+{
+ return value->data[0].v_pointer;
+}
+
+static gchar*
+value_test_collect_value (GValue* value,
+ guint n_collect_values,
+ GTypeCValue* collect_values,
+ guint collect_flags)
+{
+ if (collect_values[0].v_pointer) {
+ Test * object;
+ object = collect_values[0].v_pointer;
+ if (object->parent_instance.g_class == NULL) {
+ return g_strconcat ("invalid unclassed object pointer for value type `",
G_VALUE_TYPE_NAME (value), "'", NULL);
+ } else if (!g_value_type_compatible (G_TYPE_FROM_INSTANCE (object), G_VALUE_TYPE (value))) {
+ return g_strconcat ("invalid object type `", g_type_name (G_TYPE_FROM_INSTANCE
(object)), "' for value type `", G_VALUE_TYPE_NAME (value), "'", NULL);
+ }
+ value->data[0].v_pointer = test_ref (object);
+ } else {
+ value->data[0].v_pointer = NULL;
+ }
+ return NULL;
+}
+
+static gchar*
+value_test_lcopy_value (const GValue* value,
+ guint n_collect_values,
+ GTypeCValue* collect_values,
+ guint collect_flags)
+{
+ Test ** object_p;
+ object_p = collect_values[0].v_pointer;
+ if (!object_p) {
+ return g_strdup_printf ("value location for `%s' passed as NULL", G_VALUE_TYPE_NAME (value));
+ }
+ if (!value->data[0].v_pointer) {
+ *object_p = NULL;
+ } else if (collect_flags & G_VALUE_NOCOPY_CONTENTS) {
+ *object_p = value->data[0].v_pointer;
+ } else {
+ *object_p = test_ref (value->data[0].v_pointer);
+ }
+ return NULL;
+}
+
+GParamSpec*
+param_spec_test (const gchar* name,
+ const gchar* nick,
+ const gchar* blurb,
+ GType object_type,
+ GParamFlags flags)
+{
+ ParamSpecTest* spec;
+ g_return_val_if_fail (g_type_is_a (object_type, TYPE_TEST), NULL);
+ spec = g_param_spec_internal (G_TYPE_PARAM_OBJECT, name, nick, blurb, flags);
+ G_PARAM_SPEC (spec)->value_type = object_type;
+ return G_PARAM_SPEC (spec);
+}
+
+gpointer
+value_get_test (const GValue* value)
+{
+ g_return_val_if_fail (G_TYPE_CHECK_VALUE_TYPE (value, TYPE_TEST), NULL);
+ return value->data[0].v_pointer;
+}
+
+void
+value_set_test (GValue* value,
+ gpointer v_object)
+{
+ Test * old;
+ g_return_if_fail (G_TYPE_CHECK_VALUE_TYPE (value, TYPE_TEST));
+ old = value->data[0].v_pointer;
+ if (v_object) {
+ g_return_if_fail (G_TYPE_CHECK_INSTANCE_TYPE (v_object, TYPE_TEST));
+ g_return_if_fail (g_value_type_compatible (G_TYPE_FROM_INSTANCE (v_object), G_VALUE_TYPE
(value)));
+ value->data[0].v_pointer = v_object;
+ test_ref (value->data[0].v_pointer);
+ } else {
+ value->data[0].v_pointer = NULL;
+ }
+ if (old) {
+ test_unref (old);
+ }
+}
+
+void
+value_take_test (GValue* value,
+ gpointer v_object)
+{
+ Test * old;
+ g_return_if_fail (G_TYPE_CHECK_VALUE_TYPE (value, TYPE_TEST));
+ old = value->data[0].v_pointer;
+ if (v_object) {
+ g_return_if_fail (G_TYPE_CHECK_INSTANCE_TYPE (v_object, TYPE_TEST));
+ g_return_if_fail (g_value_type_compatible (G_TYPE_FROM_INSTANCE (v_object), G_VALUE_TYPE
(value)));
+ value->data[0].v_pointer = v_object;
+ } else {
+ value->data[0].v_pointer = NULL;
+ }
+ if (old) {
+ test_unref (old);
+ }
+}
+
+static void
+test_class_init (TestClass * klass,
+ gpointer klass_data)
+{
+ gchar* _tmp0_;
+ gchar* _tmp1_;
+ test_parent_class = g_type_class_peek_parent (klass);
+ ((TestClass *) klass)->finalize = test_finalize;
+ _tmp0_ = g_strdup ("b");
+ klass->b = _tmp0_;
+ _tmp1_ = g_strdup ("c");
+ test_c = _tmp1_;
+}
+
+static void
+test_instance_init (Test * self,
+ gpointer klass)
+{
+ gchar* _tmp0_;
+ _tmp0_ = g_strdup ("a");
+ self->a = _tmp0_;
+ self->ref_count = 1;
+}
+
+static void
+test_finalize (Test * obj)
+{
+ Test * self;
+ self = G_TYPE_CHECK_INSTANCE_CAST (obj, TYPE_TEST, Test);
+ g_signal_handlers_destroy (self);
+ _g_free0 (self->a);
+}
+
+static GType
+test_get_type_once (void)
+{
+ static const GTypeValueTable g_define_type_value_table = { value_test_init, value_test_free_value,
value_test_copy_value, value_test_peek_pointer, "p", value_test_collect_value, "p", value_test_lcopy_value };
+ static const GTypeInfo g_define_type_info = { sizeof (TestClass), (GBaseInitFunc) NULL,
(GBaseFinalizeFunc) NULL, (GClassInitFunc) test_class_init, (GClassFinalizeFunc) NULL, NULL, sizeof (Test),
0, (GInstanceInitFunc) test_instance_init, &g_define_type_value_table };
+ static const GTypeFundamentalInfo g_define_type_fundamental_info = { (G_TYPE_FLAG_CLASSED |
G_TYPE_FLAG_INSTANTIATABLE | G_TYPE_FLAG_DERIVABLE | G_TYPE_FLAG_DEEP_DERIVABLE) };
+ GType test_type_id;
+ test_type_id = g_type_register_fundamental (g_type_fundamental_next (), "Test", &g_define_type_info,
&g_define_type_fundamental_info, 0);
+ return test_type_id;
+}
+
+GType
+test_get_type (void)
+{
+ static volatile gsize test_type_id__volatile = 0;
+ if (g_once_init_enter (&test_type_id__volatile)) {
+ GType test_type_id;
+ test_type_id = test_get_type_once ();
+ g_once_init_leave (&test_type_id__volatile, test_type_id);
+ }
+ return test_type_id__volatile;
+}
+
+gpointer
+test_ref (gpointer instance)
+{
+ Test * self;
+ self = instance;
+ g_atomic_int_inc (&self->ref_count);
+ return instance;
+}
+
+void
+test_unref (gpointer instance)
+{
+ Test * self;
+ self = instance;
+ if (g_atomic_int_dec_and_test (&self->ref_count)) {
+ TEST_GET_CLASS (self)->finalize (self);
+ g_type_free_instance ((GTypeInstance *) self);
+ }
+}
+
diff --git a/tests/genie/class-field.gs b/tests/genie/class-field.gs
new file mode 100644
index 000000000..f6d93ac70
--- /dev/null
+++ b/tests/genie/class-field.gs
@@ -0,0 +1,10 @@
+init
+ var a = new Test()
+ assert( a.a == "a" )
+ assert( a.b == "b" )
+ assert( a.c == "c" )
+
+class Test
+ a:string = "a"
+ b:class string = "b"
+ c:static string = "c"
diff --git a/tests/genie/class-init.c-expected b/tests/genie/class-init.c-expected
new file mode 100644
index 000000000..236a2301e
--- /dev/null
+++ b/tests/genie/class-init.c-expected
@@ -0,0 +1,164 @@
+/* genie_class_init.c generated by valac, the Vala compiler
+ * generated from genie_class_init.gs, do not modify */
+
+#include <stdlib.h>
+#include <string.h>
+#include <glib.h>
+#include <glib-object.h>
+
+#if !defined(VALA_EXTERN)
+#if defined(_MSC_VER)
+#define VALA_EXTERN __declspec(dllexport) extern
+#elif __GNUC__ >= 4
+#define VALA_EXTERN __attribute__((visibility("default"))) extern
+#else
+#define VALA_EXTERN extern
+#endif
+#endif
+
+#define TYPE_TEST (test_get_type ())
+#define TEST(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), TYPE_TEST, Test))
+#define TEST_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), TYPE_TEST, TestClass))
+#define IS_TEST(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), TYPE_TEST))
+#define IS_TEST_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), TYPE_TEST))
+#define TEST_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), TYPE_TEST, TestClass))
+
+typedef struct _Test Test;
+typedef struct _TestClass TestClass;
+#define _g_object_unref0(var) ((var == NULL) ? NULL : (var = (g_object_unref (var), NULL)))
+typedef struct _TestPrivate TestPrivate;
+enum {
+ TEST_0_PROPERTY,
+ TEST_NUM_PROPERTIES
+};
+static GParamSpec* test_properties[TEST_NUM_PROPERTIES];
+
+struct _Test {
+ GObject parent_instance;
+ TestPrivate * priv;
+};
+
+struct _TestClass {
+ GObjectClass parent_class;
+};
+
+static gpointer test_parent_class = NULL;
+
+static void _vala_main (gchar** args,
+ gint args_length1);
+VALA_EXTERN GType test_get_type (void) G_GNUC_CONST ;
+G_DEFINE_AUTOPTR_CLEANUP_FUNC (Test, g_object_unref)
+VALA_EXTERN Test* test_new (void);
+VALA_EXTERN Test* test_construct (GType object_type);
+VALA_EXTERN void nothing (void);
+static GObject * test_constructor (GType type,
+ guint n_construct_properties,
+ GObjectConstructParam * construct_properties);
+static void test_finalize (GObject * obj);
+static GType test_get_type_once (void);
+
+static void
+_vala_main (gchar** args,
+ gint args_length1)
+{
+ Test* a = NULL;
+ Test* _tmp0_;
+ _tmp0_ = test_new ();
+ a = _tmp0_;
+ _g_object_unref0 (a);
+}
+
+int
+main (int argc,
+ char ** argv)
+{
+ _vala_main (argv, argc);
+ return 0;
+}
+
+void
+nothing (void)
+{
+}
+
+Test*
+test_construct (GType object_type)
+{
+ Test * self = NULL;
+ self = (Test*) g_object_new (object_type, NULL);
+ return self;
+}
+
+Test*
+test_new (void)
+{
+ return test_construct (TYPE_TEST);
+}
+
+static GObject *
+test_constructor (GType type,
+ guint n_construct_properties,
+ GObjectConstructParam * construct_properties)
+{
+ GObject * obj;
+ GObjectClass * parent_class;
+ Test * self;
+ parent_class = G_OBJECT_CLASS (test_parent_class);
+ obj = parent_class->constructor (type, n_construct_properties, construct_properties);
+ self = G_TYPE_CHECK_INSTANCE_CAST (obj, TYPE_TEST, Test);
+ nothing ();
+ return obj;
+}
+
+static void
+test_base_init (TestClass * klass)
+{
+ nothing ();
+}
+
+static void
+test_class_init (TestClass * klass,
+ gpointer klass_data)
+{
+ test_parent_class = g_type_class_peek_parent (klass);
+ G_OBJECT_CLASS (klass)->constructor = test_constructor;
+ G_OBJECT_CLASS (klass)->finalize = test_finalize;
+ nothing ();
+}
+
+static void
+test_instance_init (Test * self,
+ gpointer klass)
+{
+}
+
+static void
+test_finalize (GObject * obj)
+{
+ Test * self;
+ self = G_TYPE_CHECK_INSTANCE_CAST (obj, TYPE_TEST, Test);
+ nothing ();
+ G_OBJECT_CLASS (test_parent_class)->finalize (obj);
+}
+
+static GType
+test_get_type_once (void)
+{
+ static const GTypeInfo g_define_type_info = { sizeof (TestClass), (GBaseInitFunc) test_base_init,
(GBaseFinalizeFunc) NULL, (GClassInitFunc) test_class_init, (GClassFinalizeFunc) NULL, NULL, sizeof (Test),
0, (GInstanceInitFunc) test_instance_init, NULL };
+ GType test_type_id;
+ test_type_id = g_type_register_static (G_TYPE_OBJECT, "Test", &g_define_type_info, 0);
+ return test_type_id;
+}
+
+GType
+test_get_type (void)
+{
+ static volatile gsize test_type_id__volatile = 0;
+ if (g_once_init_enter (&test_type_id__volatile)) {
+ GType test_type_id;
+ test_type_id = test_get_type_once ();
+ g_once_init_leave (&test_type_id__volatile, test_type_id);
+ }
+ return test_type_id__volatile;
+}
+
diff --git a/tests/genie/class-init.gs b/tests/genie/class-init.gs
new file mode 100644
index 000000000..edbe01b4d
--- /dev/null
+++ b/tests/genie/class-init.gs
@@ -0,0 +1,18 @@
+init
+ var a = new Test()
+
+def nothing()
+ pass
+
+class Test:Object
+ init
+ nothing()
+
+ init class
+ nothing()
+
+ init static
+ nothing()
+
+ final
+ nothing()
diff --git a/tests/genie/class-signal.c-expected b/tests/genie/class-signal.c-expected
new file mode 100644
index 000000000..ce9dde3de
--- /dev/null
+++ b/tests/genie/class-signal.c-expected
@@ -0,0 +1,376 @@
+/* genie_class_signal.c generated by valac, the Vala compiler
+ * generated from genie_class_signal.gs, do not modify */
+
+#include <stdlib.h>
+#include <string.h>
+#include <glib.h>
+#include <glib-object.h>
+#include <gobject/gvaluecollector.h>
+
+#if !defined(VALA_EXTERN)
+#if defined(_MSC_VER)
+#define VALA_EXTERN __declspec(dllexport) extern
+#elif __GNUC__ >= 4
+#define VALA_EXTERN __attribute__((visibility("default"))) extern
+#else
+#define VALA_EXTERN extern
+#endif
+#endif
+
+#define TYPE_TEST (test_get_type ())
+#define TEST(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), TYPE_TEST, Test))
+#define TEST_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), TYPE_TEST, TestClass))
+#define IS_TEST(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), TYPE_TEST))
+#define IS_TEST_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), TYPE_TEST))
+#define TEST_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), TYPE_TEST, TestClass))
+
+typedef struct _Test Test;
+typedef struct _TestClass TestClass;
+#define _test_unref0(var) ((var == NULL) ? NULL : (var = (test_unref (var), NULL)))
+typedef struct _TestPrivate TestPrivate;
+typedef struct _ParamSpecTest ParamSpecTest;
+enum {
+ TEST_FOO_SIGNAL,
+ TEST_NUM_SIGNALS
+};
+static guint test_signals[TEST_NUM_SIGNALS] = {0};
+#define _vala_assert(expr, msg) if G_LIKELY (expr) ; else g_assertion_message_expr (G_LOG_DOMAIN, __FILE__,
__LINE__, G_STRFUNC, msg);
+#define _vala_return_if_fail(expr, msg) if G_LIKELY (expr) ; else { g_return_if_fail_warning (G_LOG_DOMAIN,
G_STRFUNC, msg); return; }
+#define _vala_return_val_if_fail(expr, msg, val) if G_LIKELY (expr) ; else { g_return_if_fail_warning
(G_LOG_DOMAIN, G_STRFUNC, msg); return val; }
+#define _vala_warn_if_fail(expr, msg) if G_LIKELY (expr) ; else g_warn_message (G_LOG_DOMAIN, __FILE__,
__LINE__, G_STRFUNC, msg);
+
+struct _Test {
+ GTypeInstance parent_instance;
+ volatile int ref_count;
+ TestPrivate * priv;
+};
+
+struct _TestClass {
+ GTypeClass parent_class;
+ void (*finalize) (Test *self);
+};
+
+struct _ParamSpecTest {
+ GParamSpec parent_instance;
+};
+
+static gpointer test_parent_class = NULL;
+
+static void _vala_main (gchar** args,
+ gint args_length1);
+VALA_EXTERN gpointer test_ref (gpointer instance);
+VALA_EXTERN void test_unref (gpointer instance);
+VALA_EXTERN GParamSpec* param_spec_test (const gchar* name,
+ const gchar* nick,
+ const gchar* blurb,
+ GType object_type,
+ GParamFlags flags);
+VALA_EXTERN void value_set_test (GValue* value,
+ gpointer v_object);
+VALA_EXTERN void value_take_test (GValue* value,
+ gpointer v_object);
+VALA_EXTERN gpointer value_get_test (const GValue* value);
+VALA_EXTERN GType test_get_type (void) G_GNUC_CONST ;
+G_DEFINE_AUTOPTR_CLEANUP_FUNC (Test, test_unref)
+VALA_EXTERN Test* test_new (void);
+VALA_EXTERN Test* test_construct (GType object_type);
+VALA_EXTERN gboolean test (gint a);
+static gboolean _test_test_foo (Test* _sender,
+ gint a,
+ gpointer self);
+static void g_cclosure_user_marshal_BOOLEAN__INT (GClosure * closure,
+ GValue * return_value,
+ guint n_param_values,
+ const GValue * param_values,
+ gpointer invocation_hint,
+ gpointer marshal_data);
+static void test_finalize (Test * obj);
+static GType test_get_type_once (void);
+
+static gboolean
+_test_test_foo (Test* _sender,
+ gint a,
+ gpointer self)
+{
+ gboolean result;
+ result = test (a);
+ return result;
+}
+
+static void
+_vala_main (gchar** args,
+ gint args_length1)
+{
+ Test* a = NULL;
+ Test* _tmp0_;
+ gboolean _tmp1_ = FALSE;
+ guint _tmp2_;
+ _tmp0_ = test_new ();
+ a = _tmp0_;
+ g_signal_connect (a, "foo", (GCallback) _test_test_foo, NULL);
+ g_signal_emit (a, test_signals[TEST_FOO_SIGNAL], 0, 23, &_tmp1_);
+ _vala_assert (_tmp1_, "a.foo(23)");
+ g_signal_parse_name ("foo", TYPE_TEST, &_tmp2_, NULL, FALSE);
+ g_signal_handlers_disconnect_matched (a, G_SIGNAL_MATCH_ID | G_SIGNAL_MATCH_FUNC |
G_SIGNAL_MATCH_DATA, _tmp2_, 0, NULL, (GCallback) _test_test_foo, NULL);
+ _test_unref0 (a);
+}
+
+int
+main (int argc,
+ char ** argv)
+{
+ _vala_main (argv, argc);
+ return 0;
+}
+
+gboolean
+test (gint a)
+{
+ gboolean result = FALSE;
+ result = a == 23;
+ return result;
+}
+
+Test*
+test_construct (GType object_type)
+{
+ Test* self = NULL;
+ self = (Test*) g_type_create_instance (object_type);
+ return self;
+}
+
+Test*
+test_new (void)
+{
+ return test_construct (TYPE_TEST);
+}
+
+static void
+g_cclosure_user_marshal_BOOLEAN__INT (GClosure * closure,
+ GValue * return_value,
+ guint n_param_values,
+ const GValue * param_values,
+ gpointer invocation_hint,
+ gpointer marshal_data)
+{
+ typedef gboolean (*GMarshalFunc_BOOLEAN__INT) (gpointer data1, gint arg_1, gpointer data2);
+ register GMarshalFunc_BOOLEAN__INT callback;
+ register GCClosure * cc;
+ register gpointer data1;
+ register gpointer data2;
+ gboolean v_return;
+ cc = (GCClosure *) closure;
+ g_return_if_fail (return_value != NULL);
+ g_return_if_fail (n_param_values == 2);
+ if (G_CCLOSURE_SWAP_DATA (closure)) {
+ data1 = closure->data;
+ data2 = param_values->data[0].v_pointer;
+ } else {
+ data1 = param_values->data[0].v_pointer;
+ data2 = closure->data;
+ }
+ callback = (GMarshalFunc_BOOLEAN__INT) (marshal_data ? marshal_data : cc->callback);
+ v_return = callback (data1, g_value_get_int (param_values + 1), data2);
+ g_value_set_boolean (return_value, v_return);
+}
+
+static void
+value_test_init (GValue* value)
+{
+ value->data[0].v_pointer = NULL;
+}
+
+static void
+value_test_free_value (GValue* value)
+{
+ if (value->data[0].v_pointer) {
+ test_unref (value->data[0].v_pointer);
+ }
+}
+
+static void
+value_test_copy_value (const GValue* src_value,
+ GValue* dest_value)
+{
+ if (src_value->data[0].v_pointer) {
+ dest_value->data[0].v_pointer = test_ref (src_value->data[0].v_pointer);
+ } else {
+ dest_value->data[0].v_pointer = NULL;
+ }
+}
+
+static gpointer
+value_test_peek_pointer (const GValue* value)
+{
+ return value->data[0].v_pointer;
+}
+
+static gchar*
+value_test_collect_value (GValue* value,
+ guint n_collect_values,
+ GTypeCValue* collect_values,
+ guint collect_flags)
+{
+ if (collect_values[0].v_pointer) {
+ Test * object;
+ object = collect_values[0].v_pointer;
+ if (object->parent_instance.g_class == NULL) {
+ return g_strconcat ("invalid unclassed object pointer for value type `",
G_VALUE_TYPE_NAME (value), "'", NULL);
+ } else if (!g_value_type_compatible (G_TYPE_FROM_INSTANCE (object), G_VALUE_TYPE (value))) {
+ return g_strconcat ("invalid object type `", g_type_name (G_TYPE_FROM_INSTANCE
(object)), "' for value type `", G_VALUE_TYPE_NAME (value), "'", NULL);
+ }
+ value->data[0].v_pointer = test_ref (object);
+ } else {
+ value->data[0].v_pointer = NULL;
+ }
+ return NULL;
+}
+
+static gchar*
+value_test_lcopy_value (const GValue* value,
+ guint n_collect_values,
+ GTypeCValue* collect_values,
+ guint collect_flags)
+{
+ Test ** object_p;
+ object_p = collect_values[0].v_pointer;
+ if (!object_p) {
+ return g_strdup_printf ("value location for `%s' passed as NULL", G_VALUE_TYPE_NAME (value));
+ }
+ if (!value->data[0].v_pointer) {
+ *object_p = NULL;
+ } else if (collect_flags & G_VALUE_NOCOPY_CONTENTS) {
+ *object_p = value->data[0].v_pointer;
+ } else {
+ *object_p = test_ref (value->data[0].v_pointer);
+ }
+ return NULL;
+}
+
+GParamSpec*
+param_spec_test (const gchar* name,
+ const gchar* nick,
+ const gchar* blurb,
+ GType object_type,
+ GParamFlags flags)
+{
+ ParamSpecTest* spec;
+ g_return_val_if_fail (g_type_is_a (object_type, TYPE_TEST), NULL);
+ spec = g_param_spec_internal (G_TYPE_PARAM_OBJECT, name, nick, blurb, flags);
+ G_PARAM_SPEC (spec)->value_type = object_type;
+ return G_PARAM_SPEC (spec);
+}
+
+gpointer
+value_get_test (const GValue* value)
+{
+ g_return_val_if_fail (G_TYPE_CHECK_VALUE_TYPE (value, TYPE_TEST), NULL);
+ return value->data[0].v_pointer;
+}
+
+void
+value_set_test (GValue* value,
+ gpointer v_object)
+{
+ Test * old;
+ g_return_if_fail (G_TYPE_CHECK_VALUE_TYPE (value, TYPE_TEST));
+ old = value->data[0].v_pointer;
+ if (v_object) {
+ g_return_if_fail (G_TYPE_CHECK_INSTANCE_TYPE (v_object, TYPE_TEST));
+ g_return_if_fail (g_value_type_compatible (G_TYPE_FROM_INSTANCE (v_object), G_VALUE_TYPE
(value)));
+ value->data[0].v_pointer = v_object;
+ test_ref (value->data[0].v_pointer);
+ } else {
+ value->data[0].v_pointer = NULL;
+ }
+ if (old) {
+ test_unref (old);
+ }
+}
+
+void
+value_take_test (GValue* value,
+ gpointer v_object)
+{
+ Test * old;
+ g_return_if_fail (G_TYPE_CHECK_VALUE_TYPE (value, TYPE_TEST));
+ old = value->data[0].v_pointer;
+ if (v_object) {
+ g_return_if_fail (G_TYPE_CHECK_INSTANCE_TYPE (v_object, TYPE_TEST));
+ g_return_if_fail (g_value_type_compatible (G_TYPE_FROM_INSTANCE (v_object), G_VALUE_TYPE
(value)));
+ value->data[0].v_pointer = v_object;
+ } else {
+ value->data[0].v_pointer = NULL;
+ }
+ if (old) {
+ test_unref (old);
+ }
+}
+
+static void
+test_class_init (TestClass * klass,
+ gpointer klass_data)
+{
+ test_parent_class = g_type_class_peek_parent (klass);
+ ((TestClass *) klass)->finalize = test_finalize;
+ test_signals[TEST_FOO_SIGNAL] = g_signal_new ("foo", TYPE_TEST, G_SIGNAL_RUN_LAST, 0, NULL, NULL,
g_cclosure_user_marshal_BOOLEAN__INT, G_TYPE_BOOLEAN, 1, G_TYPE_INT);
+}
+
+static void
+test_instance_init (Test * self,
+ gpointer klass)
+{
+ self->ref_count = 1;
+}
+
+static void
+test_finalize (Test * obj)
+{
+ Test * self;
+ self = G_TYPE_CHECK_INSTANCE_CAST (obj, TYPE_TEST, Test);
+ g_signal_handlers_destroy (self);
+}
+
+static GType
+test_get_type_once (void)
+{
+ static const GTypeValueTable g_define_type_value_table = { value_test_init, value_test_free_value,
value_test_copy_value, value_test_peek_pointer, "p", value_test_collect_value, "p", value_test_lcopy_value };
+ static const GTypeInfo g_define_type_info = { sizeof (TestClass), (GBaseInitFunc) NULL,
(GBaseFinalizeFunc) NULL, (GClassInitFunc) test_class_init, (GClassFinalizeFunc) NULL, NULL, sizeof (Test),
0, (GInstanceInitFunc) test_instance_init, &g_define_type_value_table };
+ static const GTypeFundamentalInfo g_define_type_fundamental_info = { (G_TYPE_FLAG_CLASSED |
G_TYPE_FLAG_INSTANTIATABLE | G_TYPE_FLAG_DERIVABLE | G_TYPE_FLAG_DEEP_DERIVABLE) };
+ GType test_type_id;
+ test_type_id = g_type_register_fundamental (g_type_fundamental_next (), "Test", &g_define_type_info,
&g_define_type_fundamental_info, 0);
+ return test_type_id;
+}
+
+GType
+test_get_type (void)
+{
+ static volatile gsize test_type_id__volatile = 0;
+ if (g_once_init_enter (&test_type_id__volatile)) {
+ GType test_type_id;
+ test_type_id = test_get_type_once ();
+ g_once_init_leave (&test_type_id__volatile, test_type_id);
+ }
+ return test_type_id__volatile;
+}
+
+gpointer
+test_ref (gpointer instance)
+{
+ Test * self;
+ self = instance;
+ g_atomic_int_inc (&self->ref_count);
+ return instance;
+}
+
+void
+test_unref (gpointer instance)
+{
+ Test * self;
+ self = instance;
+ if (g_atomic_int_dec_and_test (&self->ref_count)) {
+ TEST_GET_CLASS (self)->finalize (self);
+ g_type_free_instance ((GTypeInstance *) self);
+ }
+}
+
diff --git a/tests/genie/class-signal.gs b/tests/genie/class-signal.gs
new file mode 100644
index 000000000..718bbe164
--- /dev/null
+++ b/tests/genie/class-signal.gs
@@ -0,0 +1,11 @@
+init
+ var a = new Test()
+ a.foo.connect( test )
+ assert( a.foo(23) )
+ a.foo.disconnect( test )
+
+def test( a:int ):bool
+ return a == 23
+
+class Test
+ event foo( a:int ):bool
diff --git a/tests/genie/constant.c-expected b/tests/genie/constant.c-expected
new file mode 100644
index 000000000..66743ce3b
--- /dev/null
+++ b/tests/genie/constant.c-expected
@@ -0,0 +1,31 @@
+/* genie_constant.c generated by valac, the Vala compiler
+ * generated from genie_constant.gs, do not modify */
+
+#include <stdlib.h>
+#include <string.h>
+#include <glib.h>
+
+#define _vala_assert(expr, msg) if G_LIKELY (expr) ; else g_assertion_message_expr (G_LOG_DOMAIN, __FILE__,
__LINE__, G_STRFUNC, msg);
+#define _vala_return_if_fail(expr, msg) if G_LIKELY (expr) ; else { g_return_if_fail_warning (G_LOG_DOMAIN,
G_STRFUNC, msg); return; }
+#define _vala_return_val_if_fail(expr, msg, val) if G_LIKELY (expr) ; else { g_return_if_fail_warning
(G_LOG_DOMAIN, G_STRFUNC, msg); return val; }
+#define _vala_warn_if_fail(expr, msg) if G_LIKELY (expr) ; else g_warn_message (G_LOG_DOMAIN, __FILE__,
__LINE__, G_STRFUNC, msg);
+
+static void _vala_main (gchar** args,
+ gint args_length1);
+#define TEST 23
+
+static void
+_vala_main (gchar** args,
+ gint args_length1)
+{
+ _vala_assert (TEST == 23, "TEST == 23");
+}
+
+int
+main (int argc,
+ char ** argv)
+{
+ _vala_main (argv, argc);
+ return 0;
+}
+
diff --git a/tests/genie/constant.gs b/tests/genie/constant.gs
new file mode 100644
index 000000000..9b4d445ab
--- /dev/null
+++ b/tests/genie/constant.gs
@@ -0,0 +1,4 @@
+init
+ assert( TEST == 23 )
+
+const TEST:int = 23
diff --git a/tests/genie/exception.c-expected b/tests/genie/exception.c-expected
new file mode 100644
index 000000000..976e2c579
--- /dev/null
+++ b/tests/genie/exception.c-expected
@@ -0,0 +1,55 @@
+/* genie_exception.c generated by valac, the Vala compiler
+ * generated from genie_exception.gs, do not modify */
+
+#include <stdlib.h>
+#include <string.h>
+#include <glib.h>
+
+#if !defined(VALA_EXTERN)
+#if defined(_MSC_VER)
+#define VALA_EXTERN __declspec(dllexport) extern
+#elif __GNUC__ >= 4
+#define VALA_EXTERN __attribute__((visibility("default"))) extern
+#else
+#define VALA_EXTERN extern
+#endif
+#endif
+
+#define _g_error_free0(var) ((var == NULL) ? NULL : (var = (g_error_free (var), NULL)))
+
+typedef enum {
+ TEST_ERROR_FAIL,
+ TEST_ERROR_BAD,
+ TEST_ERROR_WORSE
+} TestError;
+#define TEST_ERROR test_error_quark ()
+
+static void _vala_main (gchar** args,
+ gint args_length1);
+VALA_EXTERN GQuark test_error_quark (void);
+
+static void
+_vala_main (gchar** args,
+ gint args_length1)
+{
+ GError* e = NULL;
+ GError* _tmp0_;
+ _tmp0_ = g_error_new_literal (TEST_ERROR, TEST_ERROR_BAD, "not so good");
+ e = _tmp0_;
+ _g_error_free0 (e);
+}
+
+int
+main (int argc,
+ char ** argv)
+{
+ _vala_main (argv, argc);
+ return 0;
+}
+
+GQuark
+test_error_quark (void)
+{
+ return g_quark_from_static_string ("test-error-quark");
+}
+
diff --git a/tests/genie/exception.gs b/tests/genie/exception.gs
new file mode 100644
index 000000000..eb52d229b
--- /dev/null
+++ b/tests/genie/exception.gs
@@ -0,0 +1,7 @@
+init
+ e:TestError = new TestError.BAD( "not so good" )
+
+exception TestError
+ FAIL
+ BAD
+ WORSE
diff --git a/tests/genie/interface.c-expected b/tests/genie/interface.c-expected
new file mode 100644
index 000000000..77b98c6fc
--- /dev/null
+++ b/tests/genie/interface.c-expected
@@ -0,0 +1,208 @@
+/* genie_interface.c generated by valac, the Vala compiler
+ * generated from genie_interface.gs, do not modify */
+
+#include <stdlib.h>
+#include <string.h>
+#include <glib.h>
+#include <glib-object.h>
+
+#if !defined(VALA_EXTERN)
+#if defined(_MSC_VER)
+#define VALA_EXTERN __declspec(dllexport) extern
+#elif __GNUC__ >= 4
+#define VALA_EXTERN __attribute__((visibility("default"))) extern
+#else
+#define VALA_EXTERN extern
+#endif
+#endif
+
+#define TYPE_TEST (test_get_type ())
+#define TEST(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), TYPE_TEST, Test))
+#define TEST_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), TYPE_TEST, TestClass))
+#define IS_TEST(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), TYPE_TEST))
+#define IS_TEST_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), TYPE_TEST))
+#define TEST_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), TYPE_TEST, TestClass))
+
+typedef struct _Test Test;
+typedef struct _TestClass TestClass;
+
+#define TYPE_ITEST (itest_get_type ())
+#define ITEST(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), TYPE_ITEST, ITest))
+#define IS_ITEST(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), TYPE_ITEST))
+#define ITEST_GET_INTERFACE(obj) (G_TYPE_INSTANCE_GET_INTERFACE ((obj), TYPE_ITEST, ITestIface))
+
+typedef struct _ITest ITest;
+typedef struct _ITestIface ITestIface;
+#define _g_object_unref0(var) ((var == NULL) ? NULL : (var = (g_object_unref (var), NULL)))
+typedef struct _TestPrivate TestPrivate;
+enum {
+ TEST_0_PROPERTY,
+ TEST_NUM_PROPERTIES
+};
+static GParamSpec* test_properties[TEST_NUM_PROPERTIES];
+#define _vala_assert(expr, msg) if G_LIKELY (expr) ; else g_assertion_message_expr (G_LOG_DOMAIN, __FILE__,
__LINE__, G_STRFUNC, msg);
+#define _vala_return_if_fail(expr, msg) if G_LIKELY (expr) ; else { g_return_if_fail_warning (G_LOG_DOMAIN,
G_STRFUNC, msg); return; }
+#define _vala_return_val_if_fail(expr, msg, val) if G_LIKELY (expr) ; else { g_return_if_fail_warning
(G_LOG_DOMAIN, G_STRFUNC, msg); return val; }
+#define _vala_warn_if_fail(expr, msg) if G_LIKELY (expr) ; else g_warn_message (G_LOG_DOMAIN, __FILE__,
__LINE__, G_STRFUNC, msg);
+
+struct _ITestIface {
+ GTypeInterface parent_iface;
+ gboolean (*test) (ITest* self, gint a);
+};
+
+struct _Test {
+ GObject parent_instance;
+ TestPrivate * priv;
+};
+
+struct _TestClass {
+ GObjectClass parent_class;
+};
+
+static gpointer test_parent_class = NULL;
+static ITestIface * test_itest_parent_iface = NULL;
+
+static void _vala_main (gchar** args,
+ gint args_length1);
+VALA_EXTERN GType test_get_type (void) G_GNUC_CONST ;
+G_DEFINE_AUTOPTR_CLEANUP_FUNC (Test, g_object_unref)
+VALA_EXTERN Test* test_new (void);
+VALA_EXTERN Test* test_construct (GType object_type);
+VALA_EXTERN GType itest_get_type (void) G_GNUC_CONST ;
+VALA_EXTERN gboolean itest_test (ITest* self,
+ gint a);
+static GType itest_get_type_once (void);
+static gboolean test_real_test (ITest* base,
+ gint a);
+static GType test_get_type_once (void);
+
+static void
+_vala_main (gchar** args,
+ gint args_length1)
+{
+ Test* a = NULL;
+ Test* _tmp0_;
+ _tmp0_ = test_new ();
+ a = _tmp0_;
+ _vala_assert (itest_test (G_TYPE_CHECK_INSTANCE_CAST (a, TYPE_ITEST, ITest), 42), "a.test(42)");
+ _g_object_unref0 (a);
+}
+
+int
+main (int argc,
+ char ** argv)
+{
+ _vala_main (argv, argc);
+ return 0;
+}
+
+gboolean
+itest_test (ITest* self,
+ gint a)
+{
+ ITestIface* _iface_;
+ g_return_val_if_fail (IS_ITEST (self), FALSE);
+ _iface_ = ITEST_GET_INTERFACE (self);
+ if (_iface_->test) {
+ return _iface_->test (self, a);
+ }
+ return FALSE;
+}
+
+static void
+itest_default_init (ITestIface * iface,
+ gpointer iface_data)
+{
+}
+
+static GType
+itest_get_type_once (void)
+{
+ static const GTypeInfo g_define_type_info = { sizeof (ITestIface), (GBaseInitFunc) NULL,
(GBaseFinalizeFunc) NULL, (GClassInitFunc) itest_default_init, (GClassFinalizeFunc) NULL, NULL, 0, 0,
(GInstanceInitFunc) NULL, NULL };
+ GType itest_type_id;
+ itest_type_id = g_type_register_static (G_TYPE_INTERFACE, "ITest", &g_define_type_info, 0);
+ g_type_interface_add_prerequisite (itest_type_id, G_TYPE_OBJECT);
+ return itest_type_id;
+}
+
+GType
+itest_get_type (void)
+{
+ static volatile gsize itest_type_id__volatile = 0;
+ if (g_once_init_enter (&itest_type_id__volatile)) {
+ GType itest_type_id;
+ itest_type_id = itest_get_type_once ();
+ g_once_init_leave (&itest_type_id__volatile, itest_type_id);
+ }
+ return itest_type_id__volatile;
+}
+
+static gboolean
+test_real_test (ITest* base,
+ gint a)
+{
+ Test * self;
+ gboolean result = FALSE;
+ self = G_TYPE_CHECK_INSTANCE_CAST (base, TYPE_TEST, Test);
+ result = a == 42;
+ return result;
+}
+
+Test*
+test_construct (GType object_type)
+{
+ Test * self = NULL;
+ self = (Test*) g_object_new (object_type, NULL);
+ return self;
+}
+
+Test*
+test_new (void)
+{
+ return test_construct (TYPE_TEST);
+}
+
+static void
+test_class_init (TestClass * klass,
+ gpointer klass_data)
+{
+ test_parent_class = g_type_class_peek_parent (klass);
+}
+
+static void
+test_itest_interface_init (ITestIface * iface,
+ gpointer iface_data)
+{
+ test_itest_parent_iface = g_type_interface_peek_parent (iface);
+ iface->test = (gboolean (*) (ITest*, gint)) test_real_test;
+}
+
+static void
+test_instance_init (Test * self,
+ gpointer klass)
+{
+}
+
+static GType
+test_get_type_once (void)
+{
+ static const GTypeInfo g_define_type_info = { sizeof (TestClass), (GBaseInitFunc) NULL,
(GBaseFinalizeFunc) NULL, (GClassInitFunc) test_class_init, (GClassFinalizeFunc) NULL, NULL, sizeof (Test),
0, (GInstanceInitFunc) test_instance_init, NULL };
+ static const GInterfaceInfo itest_info = { (GInterfaceInitFunc) test_itest_interface_init,
(GInterfaceFinalizeFunc) NULL, NULL};
+ GType test_type_id;
+ test_type_id = g_type_register_static (G_TYPE_OBJECT, "Test", &g_define_type_info, 0);
+ g_type_add_interface_static (test_type_id, TYPE_ITEST, &itest_info);
+ return test_type_id;
+}
+
+GType
+test_get_type (void)
+{
+ static volatile gsize test_type_id__volatile = 0;
+ if (g_once_init_enter (&test_type_id__volatile)) {
+ GType test_type_id;
+ test_type_id = test_get_type_once ();
+ g_once_init_leave (&test_type_id__volatile, test_type_id);
+ }
+ return test_type_id__volatile;
+}
+
diff --git a/tests/genie/interface.gs b/tests/genie/interface.gs
new file mode 100644
index 000000000..cb90d5cd7
--- /dev/null
+++ b/tests/genie/interface.gs
@@ -0,0 +1,10 @@
+init
+ var a = new Test()
+ assert( a.test(42) )
+
+interface ITest:Object
+ def abstract test( a:int ):bool
+
+class Test:Object implements ITest
+ def test( a:int ):bool
+ return a == 42
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]
