perl ops -> pops
authorDale Weiler <killfieldengine@gmail.com>
Tue, 5 Feb 2013 17:15:28 +0000 (17:15 +0000)
committerDale Weiler <killfieldengine@gmail.com>
Tue, 5 Feb 2013 17:15:28 +0000 (17:15 +0000)
tests/pops.qc [new file with mode: 0644]
tests/pops.tmpl [new file with mode: 0644]

diff --git a/tests/pops.qc b/tests/pops.qc
new file mode 100644 (file)
index 0000000..ee6631b
--- /dev/null
@@ -0,0 +1,19 @@
+void main() {
+    /* so far only one perl operator is implemented */
+    float x = 100;
+    float y = 200;
+    float z = 300;
+
+    /* to ensure runtime */
+    x += 1;
+    y += 1;
+    z += 1;
+
+    float test_x = (x <=> x + 1); // -1 less than
+    float test_y = (x <=> x);     //  0 equal
+    float test_z = (x <=> x - 1); //  1 greater than
+
+    print(ftos(test_x), "\n");
+    print(ftos(test_y), "\n");
+    print(ftos(test_z), "\n");
+}
diff --git a/tests/pops.tmpl b/tests/pops.tmpl
new file mode 100644 (file)
index 0000000..35b7d41
--- /dev/null
@@ -0,0 +1,7 @@
+I: pops.qc
+D: test perl operators
+T: -execute
+C: -std=gmqcc
+M: -1
+M: 0
+M: 1