1 # tests for 'scenario' in previous layer
 2 
 3 scenario first_scenario_in_mu [
 4   run [
 5     10:num <- add 2, 2
 6   ]
 7   memory-should-contain [
 8     10 <- 4
 9   ]
10 ]
11 
12 scenario scenario_with_comment_in_mu [
13   run [
14     # comment
15     10:num <- add 2, 2
16   ]
17   memory-should-contain [
18     10 <- 4
19   ]
20 ]
21 
22 scenario scenario_with_multiple_comments_in_mu [
23   run [
24     # comment1
25     # comment2
26     10:num <- add 2, 2
27   ]
28   memory-should-contain [
29     10 <- 4
30   ]
31 ]
32 
33 scenario check_text_in_memory [
34   run [
35     10:num <- copy 3
36     11:char <- copy 97  # 'a'
37     12:char <- copy 98  # 'b'
38     13:char <- copy 99  # 'c'
39   ]
40   memory-should-contain [
41     10:array:character <- [abc]
42   ]
43 ]
44 
45 scenario check_trace [
46   run [
47     10:num <- add 2, 2
48   ]
49   trace-should-contain [
50     mem: storing 4 in location 10
51   ]
52 ]
53 
54 scenario check_trace_negative [
55   run [
56     10:num <- add 2, 2
57   ]
58   trace-should-not-contain [
59     mem: storing 3 in location 10
60   ]
61 ]
62 
63 scenario check_trace_instruction [
64   run [
65     trace 1, [foo], [aaa]
66   ]
67   trace-should-contain [
68     foo: aaa
69   ]
70 ]