;; -*- compile-command: "guile -L . iwttwbnm-test.scm"; -*-
(use-modules (srfi srfi-64)
	     (iwttwbnm))

(test-begin "harness")

(test-equal "zero-dimensional-box"
  0
  (calculate-box 0 0 0))

(test-equal "2 3 4 dimensional-box"
  58
  (calculate-box 2 3 4))

(test-equal "1 1 10 dimensional-box"
  43
  (calculate-box 1 1 10))

(test-equal "3 6 9 dimensional-box"
  216
  (calculate-box 3 6 9))

;; removed by part 2
;; (test-equal "Process all inputs"
;;   317
;;   (iwttwbnm "
;; 0x0x0
;; 2x3x4
;; 1x1x10
;; 3x6x9"))

(test-equal "0 0 0 dimensional-box"
  0
  (calculate-ribbon 0 0 0))

(test-equal "2 3 4 dimensional-box"
  34
  (calculate-ribbon 2 3 4))

(test-equal "1 1 10 dimensional-box"
  14
  (calculate-ribbon 1 1 10))

(test-equal "2 3 4 dimensional-box"
  180
  (calculate-ribbon 3 6 9))

(test-equal "Process all inputs"
  '(317 228)
  (iwttwbnm "
0x0x0
2x3x4
1x1x10
3x6x9"))


(test-end "harness")