guile-ml/test/metrics-test.scm

(use-modules
 ;; SRFI 64 for unit testing facilities
 (srfi srfi-64)
 ;; Dependencies for testing the code to be tested
 (metrics))


(test-begin "metrics-test")


(test-group
 "accuracy-metric"
 (test-equal (accuracy-metric (list 0 0 0 0)
                              (list 1 0 0 0))
   3/4)
 (test-equal (accuracy-metric (list 0 0 0 0)
                              (list 1 1 0 0))
   1/2)
 (test-equal (accuracy-metric (list 1 1 1 1)
                              (list 1 0 0 0))
   1/4)
 (test-equal (accuracy-metric (list 0 0 0 0)
                              (list 0 0 0 0))
   1)
 (test-equal (accuracy-metric (list 0 0 0)
                              (list 1 0 0))
   2/3))


(test-end "metrics-test")