-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathOthelloTest.rkt
94 lines (75 loc) · 4.73 KB
/
OthelloTest.rkt
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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
#lang racket
(require rackunit "othello.rkt")
(check-equal? (get-pos 5 2) 42)
(check-equal? (get-pos 7 7) 63)
(check-equal? (get-pos 1 1) 9)
(check-equal? (get-numcolumna 63) 7)
(check-equal? (get-numcolumna 61) 5)
(check-equal? (get-numcolumna 3) 3)
(check-equal? (get-elem partida1 27) 'blanc)
(check-equal? (get-elem partida1 0) 'libre)
(check-equal? (get-elem partida1 28) 'negra)
(check-equal? (get-numfila 0) 0)
(check-equal? (get-numfila 8) 1)
(check-equal? (get-diagonalID partida1 17) '(17 26 35 44 53 62 8))
(check-equal? (get-diagonalDI partida1 17) '(17 10 3 24))
(check-equal? (cambiar-ficha partida1 0 'negra) (list
'negra 'libre 'libre 'libre 'libre 'libre 'libre 'libre
'libre 'libre 'libre 'libre 'libre 'libre 'libre 'libre
'libre 'libre 'libre 'libre 'libre 'libre 'libre 'libre
'libre 'libre 'libre 'blanc 'negra 'libre 'libre 'libre
'libre 'libre 'libre 'negra 'blanc 'libre 'libre 'libre
'libre 'libre 'libre 'libre 'libre 'libre 'libre 'libre
'libre 'libre 'libre 'libre 'libre 'libre 'libre 'libre
'libre 'libre 'libre 'libre 'libre 'libre 'libre 'libre))
(check-equal? (get-pos-ficha-igual partida1 'dcha 27 (get-diagonalID partida1 27)) 1)
(check-equal? (get-cambios (list
'libre 'libre 'libre 'libre 'libre 'libre 'libre 'libre
'libre 'libre 'libre 'libre 'libre 'libre 'libre 'libre
'libre 'libre 'negra 'libre 'libre 'libre 'libre 'libre
'libre 'libre 'libre 'blanc 'negra 'libre 'libre 'libre
'libre 'libre 'libre 'negra 'blanc 'libre 'libre 'libre
'libre 'libre 'libre 'libre 'libre 'negra 'libre 'libre
'libre 'libre 'libre 'libre 'libre 'libre 'libre 'libre
'libre 'libre 'libre 'libre 'libre 'libre 'libre 'libre) 18 (get-diagonalID
(list
'libre 'libre 'libre 'libre 'libre 'libre 'libre 'libre
'libre 'libre 'libre 'libre 'libre 'libre 'libre 'libre
'libre 'libre 'negra 'libre 'libre 'libre 'libre 'libre
'libre 'libre 'libre 'blanc 'negra 'libre 'libre 'libre
'libre 'libre 'libre 'negra 'blanc 'libre 'libre 'libre
'libre 'libre 'libre 'libre 'libre 'negra 'libre 'libre
'libre 'libre 'libre 'libre 'libre 'libre 'libre 'libre
'libre 'libre 'libre 'libre 'libre 'libre 'libre 'libre) 18)) '(27 36))
(check-equal? (cambiar-tablero (list
'libre 'libre 'libre 'libre 'libre 'libre 'libre 'libre
'libre 'libre 'libre 'libre 'libre 'libre 'libre 'libre
'libre 'libre 'negra 'libre 'libre 'libre 'libre 'libre
'libre 'libre 'libre 'blanc 'negra 'libre 'libre 'libre
'libre 'libre 'libre 'negra 'blanc 'libre 'libre 'libre
'libre 'libre 'libre 'libre 'libre 'negra 'libre 'libre
'libre 'libre 'libre 'libre 'libre 'libre 'libre 'libre
'libre 'libre 'libre 'libre 'libre 'libre 'libre 'libre) 18 '(27 36))
(list
'libre 'libre 'libre 'libre 'libre 'libre 'libre 'libre
'libre 'libre 'libre 'libre 'libre 'libre 'libre 'libre
'libre 'libre 'negra 'libre 'libre 'libre 'libre 'libre
'libre 'libre 'libre 'negra 'negra 'libre 'libre 'libre
'libre 'libre 'libre 'negra 'negra 'libre 'libre 'libre
'libre 'libre 'libre 'libre 'libre 'negra 'libre 'libre
'libre 'libre 'libre 'libre 'libre 'libre 'libre 'libre
'libre 'libre 'libre 'libre 'libre 'libre 'libre 'libre))
(check-equal? (get-oponente 'blanc) 'negra)
(check-equal? (casillas-posibles? partida1 'blanc) #t)
(check-equal? (get-num-fichas partida1 'blanc) 2)
(check-equal? (get-ganador partida1) "")
(check-equal? (get-ganador (list
'libre 'libre 'libre 'libre 'libre 'libre 'libre 'libre
'libre 'libre 'libre 'libre 'libre 'libre 'libre 'libre
'libre 'libre 'negra 'libre 'libre 'libre 'libre 'libre
'libre 'libre 'libre 'negra 'negra 'libre 'libre 'libre
'libre 'libre 'libre 'negra 'negra 'libre 'libre 'libre
'libre 'libre 'libre 'libre 'libre 'negra 'libre 'libre
'libre 'libre 'libre 'libre 'libre 'libre 'libre 'libre
'libre 'libre 'libre 'libre 'libre 'libre 'libre 'libre)) " negras")
(check-equal?(heuristica partida1) 0)