(use-modules (srfi srfi-64)
             (bubble-sort))

(test-begin "harness")


(test-equal "empty"
  '()
  (bubble-sort '()))


(test-end "harness")