add test case for sicp example

mattwparas · Dec 7, 2023 · 8402e0e · 8402e0e
1 parent 0bc1db6
commit 8402e0e
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 0 deletions.
diff --git a/crates/steel-core/src/tests/mod.rs b/crates/steel-core/src/tests/mod.rs
@@ -102,6 +102,7 @@ test_harness_success! {
     set_local,
     set_tail_call,
     shift_reset,
+    sicp_example,
     sieve,
     simple_stream_with_map,
     simple_stream_with_mapping,

diff --git a/crates/steel-core/src/tests/success/sicp_example.scm b/crates/steel-core/src/tests/success/sicp_example.scm
@@ -0,0 +1,6 @@
+(define (a-plus-abs-b a b)
+  ((if (> b 0) + -) a b))
+
+;; 3
+(assert! (equal? 3 (a-plus-abs-b 1 2)))
+(assert! (equal? 3 (a-plus-abs-b 1 -2)))