From: Wolfgang (Blub) Bumiller <blub@speed.at>
Date: Tue, 18 Dec 2012 15:57:38 +0000 (+0100)
Subject: Tests for perl-logic _types_
X-Git-Tag: 0.1.9~46
X-Git-Url: https://git.rm.cloudns.org/?a=commitdiff_plain;h=dd6f415a0456b7f09afebe6b008060bdb7fecb91;p=xonotic%2Fgmqcc.git

Tests for perl-logic _types_
---

diff --git a/tests/perl-logic.qc b/tests/perl-logic.qc
new file mode 100644
index 0000000..5b56c45
--- /dev/null
+++ b/tests/perl-logic.qc
@@ -0,0 +1,8 @@
+void print(...) = #1;
+
+void main() {
+    vector va, vb;
+    string sa, sb;
+    print(__builtin_debug_typestring(va || vb), "\n");
+    print(__builtin_debug_typestring(sa || sb), "\n");
+}
diff --git a/tests/perl-logic.tmpl b/tests/perl-logic.tmpl
new file mode 100644
index 0000000..acd452d
--- /dev/null
+++ b/tests/perl-logic.tmpl
@@ -0,0 +1,6 @@
+I: perl-logic.qc
+D: perl logic output types
+T: -execute
+C: -std=fteqcc -fperl-logic
+M: vector
+M: string