aboutsummaryrefslogtreecommitdiff
path: root/src/eurm_test.ml
diff options
context:
space:
mode:
Diffstat (limited to 'src/eurm_test.ml')
-rw-r--r--src/eurm_test.ml4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/eurm_test.ml b/src/eurm_test.ml
index a86a1b2..cfb1e69 100644
--- a/src/eurm_test.ml
+++ b/src/eurm_test.ml
@@ -22,13 +22,13 @@ let () =
22 let output = run_eurm_prgm "../examples/add.eurm" [Reg(1, 5); Reg(2, 3)] 22 let output = run_eurm_prgm "../examples/add.eurm" [Reg(1, 5); Reg(2, 3)]
23 in Assertion.equal (regs_get output 1) (5 + 3)) 23 in Assertion.equal (regs_get output 1) (5 + 3))
24 24
25(*let () = 25let () =
26 Test.add_simple_test 26 Test.add_simple_test
27 ~title:"example_eurm_factorial" 27 ~title:"example_eurm_factorial"
28 (fun () -> 28 (fun () ->
29 let output = run_eurm_prgm "../examples/factorial.eurm" [Reg(1, 5)] 29 let output = run_eurm_prgm "../examples/factorial.eurm" [Reg(1, 5)]
30 in Assertion.equal (regs_get output 1) 120) 30 in Assertion.equal (regs_get output 1) 120)
31*) 31
32let () = 32let () =
33 Test.add_simple_test 33 Test.add_simple_test
34 ~title:"example_eurm_sum_first_integers" 34 ~title:"example_eurm_sum_first_integers"