From 535eabb82e49f94f51189823f6ee78b9103ed226 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Mon, 30 Aug 2021 23:50:54 +0200 Subject: Adds the missing Wyrd Generic Instruction compilers & fixes a few issues. --- data/unit-testing/trivial.fate | 29 ++++++++++++++--------------- 1 file changed, 14 insertions(+), 15 deletions(-) (limited to 'data') diff --git a/data/unit-testing/trivial.fate b/data/unit-testing/trivial.fate index 48acdbe..7cd2de2 100644 --- a/data/unit-testing/trivial.fate +++ b/data/unit-testing/trivial.fate @@ -2,26 +2,25 @@ (global string test_name) -(let! test_name TRIVIAL) +(set! test_name TRIVIAL) -;;(global int test) +(global int test) +(assert! (= 1 1) [FAILED] (var test_name) Executing dead code 0.) -;;(assert! (= 1 1) [FAILED] (var test_name) Executing dead code 0.) +(if (= 1 2) + (assert! (= 1 2) [FAILED] (var test_name) Executing dead code 0.) +) -;;(if (= 1 2) -;; (assert! (= 1 2) [FAILED] (var test_name) Executing dead code 0.) -;;) +(ifelse (= 1 2) + (assert! (= 1 2) [FAILED] (var test_name) Executing dead code 1.) + (set! test 1) +) -;;(ifelse (= 1 2) -;; (assert! (= 1 2) [FAILED] (var test_name) Executing dead code 1.) -;; (set! test 1) -;;) +(assert! (= (var test) 1) [FAILED] (var test_name) ignored valid branch 0.) -;;(assert! (= (var test) 0) [FAILED] (var test_name) ignored valid branch 0.) +(assert! (= (min 5 -1 2 3 1 4) -1) [FAILED] (var test_name) min op) -;;(assert! (= (min 5 -1 2 3 1 4) -1) [FAILED] (var test_name) min op) +[COMPLETED] (var test_name) -;;[COMPLETED] (var test_name) - -;;(end!) +(end!) -- cgit v1.2.3-70-g09d2