From 2a4088119cf41175457414dfa59bd4064b8f0562 Mon Sep 17 00:00:00 2001
From: Kartik Agaram <vc@akkartik.com>
Date: Wed, 1 Jan 2020 17:04:37 -0800
Subject: 5852

---
 archive/1.vm/051scenario_test.mu | 70 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 70 insertions(+)
 create mode 100644 archive/1.vm/051scenario_test.mu

(limited to 'archive/1.vm/051scenario_test.mu')

diff --git a/archive/1.vm/051scenario_test.mu b/archive/1.vm/051scenario_test.mu
new file mode 100644
index 00000000..0d6f04a6
--- /dev/null
+++ b/archive/1.vm/051scenario_test.mu
@@ -0,0 +1,70 @@
+# tests for 'scenario' in previous layer
+
+scenario first_scenario_in_mu [
+  run [
+    10:num <- add 2, 2
+  ]
+  memory-should-contain [
+    10 <- 4
+  ]
+]
+
+scenario scenario_with_comment_in_mu [
+  run [
+    # comment
+    10:num <- add 2, 2
+  ]
+  memory-should-contain [
+    10 <- 4
+  ]
+]
+
+scenario scenario_with_multiple_comments_in_mu [
+  run [
+    # comment1
+    # comment2
+    10:num <- add 2, 2
+  ]
+  memory-should-contain [
+    10 <- 4
+  ]
+]
+
+scenario check_text_in_memory [
+  run [
+    10:num <- copy 3
+    11:char <- copy 97  # 'a'
+    12:char <- copy 98  # 'b'
+    13:char <- copy 99  # 'c'
+  ]
+  memory-should-contain [
+    10:array:character <- [abc]
+  ]
+]
+
+scenario check_trace [
+  run [
+    10:num <- add 2, 2
+  ]
+  trace-should-contain [
+    mem: storing 4 in location 10
+  ]
+]
+
+scenario check_trace_negative [
+  run [
+    10:num <- add 2, 2
+  ]
+  trace-should-not-contain [
+    mem: storing 3 in location 10
+  ]
+]
+
+scenario check_trace_instruction [
+  run [
+    trace 1, [foo], [aaa]
+  ]
+  trace-should-contain [
+    foo: aaa
+  ]
+]
-- 
cgit 1.4.1-2-gfad0