blob: 94564ddcf08e4779407691029789ddcfec5b8bb0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
;; -*- 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")
|
