From 882989243a31354b3b82df021847bb332b483fd2 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Tue, 17 May 2016 18:25:26 -0700
Subject: 2971

Long-overdue reorganization to support general 'dilated' reagents up
front. This also allows me to move tests that are really about unrelated
layers out of layers dealing with parsing.
---
 049scenario_test.mu | 70 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 70 insertions(+)
 create mode 100644 049scenario_test.mu

(limited to '049scenario_test.mu')

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