diff options
| -rw-r--r-- | bubble/bubble-sort-test.scm | 12 | ||||
| -rw-r--r-- | bubble/bubble-sort.scm | 4 |
2 files changed, 16 insertions, 0 deletions
diff --git a/bubble/bubble-sort-test.scm b/bubble/bubble-sort-test.scm new file mode 100644 index 0000000..c870577 --- /dev/null +++ b/bubble/bubble-sort-test.scm @@ -0,0 +1,12 @@ +(use-modules (srfi srfi-64) + (bubble-sort)) + +(test-begin "harness") + + +(test-equal "empty" + '() + (bubble-sort '())) + + +(test-end "harness") diff --git a/bubble/bubble-sort.scm b/bubble/bubble-sort.scm new file mode 100644 index 0000000..6efa819 --- /dev/null +++ b/bubble/bubble-sort.scm @@ -0,0 +1,4 @@ +(define-module (bubble-sort)) + +(define-public (bubble-sort lst) + '()) |