diff options
-rw-r--r-- | src/eurm_test.ml | 4 |
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 () = | 25 | let () = |
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 | |
32 | let () = | 32 | let () = |
33 | Test.add_simple_test | 33 | Test.add_simple_test |
34 | ~title:"example_eurm_sum_first_integers" | 34 | ~title:"example_eurm_sum_first_integers" |