From 0e0ab335087338d208eb3d1780e2de2c4ad0fc08 Mon Sep 17 00:00:00 2001 From: bd Date: Sat, 18 May 2024 19:26:37 -0600 Subject: Add fibonacci code and tests --- fibonacci/fibonacci-test.scm | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 fibonacci/fibonacci-test.scm (limited to 'fibonacci/fibonacci-test.scm') diff --git a/fibonacci/fibonacci-test.scm b/fibonacci/fibonacci-test.scm new file mode 100644 index 0000000..f0cb6bf --- /dev/null +++ b/fibonacci/fibonacci-test.scm @@ -0,0 +1,23 @@ +(use-modules (srfi srfi-64) + (fibonacci)) + +(test-begin "harness") + +(test-equal "length-zero-sequence" + '() + (fibonacci 0)) + +(test-equal "length-one-sequence" + '(0) + (fibonacci 1)) + +(test-equal "length-three-sequence" + '(0 1 1) + (fibonacci 3)) + +(test-equal "length-fifteen-ssequence" + '(0 1 1 2 3 5 8 13 21 34 55 89 144 233 377) + (fibonacci 15)) + + +(test-end "harness") -- cgit v1.2.3