Tests for perl-logic _types_

diff --git a/tests/perl-logic.qc b/tests/perl-logic.qc
new file mode 100644 (file)
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 (file)
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