aboutsummaryrefslogtreecommitdiff
path: root/tests/programs/ftruth.zc
diff options
context:
space:
mode:
authorGravatar Moon Flower <moonflower@elhenney.local> 2026-10-12 08:46:23 +0330
committerGravatar Moon Flower <moonflower@elhenney.local> 2026-10-12 08:46:23 +0330
commitecc350ca5c2eb50be8309c5f14f8bf0d87db9a02 (patch)
tree70e0af76a1b13affff7c6cc8aac7b3e6ef960478 /tests/programs/ftruth.zc
a
Diffstat (limited to 'tests/programs/ftruth.zc')
-rw-r--r--tests/programs/ftruth.zc22
1 files changed, 22 insertions, 0 deletions
diff --git a/tests/programs/ftruth.zc b/tests/programs/ftruth.zc
new file mode 100644
index 0000000..9d24a42
--- /dev/null
+++ b/tests/programs/ftruth.zc
@@ -0,0 +1,22 @@
+fn main() {
+ let z = 0.0 * -1.0;
+ let p = 0.0;
+ let n = 1.5;
+ if (z) put_n(1); else put_n(0);
+ if (p) put_n(1); else put_n(0);
+ if (n) put_n(1); else put_n(0);
+ if (!z) put_n(1); else put_n(0);
+ if (!p) put_n(1); else put_n(0);
+ if (!n) put_n(1); else put_n(0);
+ if (z && n) put_n(1); else put_n(0);
+ if (n && z) put_n(1); else put_n(0);
+ if (z || n) put_n(1); else put_n(0);
+ if (n || z) put_n(1); else put_n(0);
+ if (p || z) put_n(1); else put_n(0);
+ for (; z;) put_n(9);
+ put_n(z == p);
+ put_n(z < p);
+ put_n(7);
+ put_c(10);
+ return 0;
+}