From c12830ee6d116f52457365455c6053f8146553ee Mon Sep 17 00:00:00 2001
From: Torsten Ruger <torsten@villataika.fi>
Date: Tue, 20 Mar 2018 16:32:07 +0530
Subject: [PATCH] simple while risc conversion test

---
 test/mom/test_while.rb | 45 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100644 test/mom/test_while.rb

diff --git a/test/mom/test_while.rb b/test/mom/test_while.rb
new file mode 100644
index 00000000..a9ac7a92
--- /dev/null
+++ b/test/mom/test_while.rb
@@ -0,0 +1,45 @@
+require_relative "helper"
+
+module Risc
+  class TestWhile < MiniTest::Test
+    include Statements
+
+    def setup
+      super
+      @input = "while(@a) ; arg = 5 end"
+      @expect = [Label, SlotToReg, SlotToReg, LoadConstant, IsSame, LoadConstant ,
+                 IsSame, LoadConstant, SlotToReg, RegToSlot, Label, Label]
+    end
+
+    def test_while_instructions
+      assert_nil msg = check_nil , msg
+    end
+
+    def test_false_load
+      produced = produce_body
+      assert_equal Mom::FalseConstant , produced.next(3).constant.known_object.class
+    end
+    def test_false_check
+      produced = produce_body
+      assert_equal produced.next(11) , produced.next(4).label
+    end
+    def test_nil_load
+      produced = produce_body
+      assert_equal Mom::NilConstant , produced.next(5).constant.known_object.class
+    end
+    def test_nil_check
+      produced = produce_body
+      assert_equal produced.next(11) , produced.next(6).label
+    end
+
+    def test_merge_label
+      produced = produce_body
+      assert produced.next(11).name.start_with?("merge_label")
+    end
+
+    def test_true_jump # should jumpp to merge label
+      produced = produce_body
+      assert_equal "Jump" , produced.next(10).name
+    end
+  end
+end