@@ -12,7 +12,7 @@ let ``Finished game where X won via left column victory`` () =
12
12
[ 'X' ; ' ' ; ' ' ];
13
13
[ 'X' ; ' ' ; ' ' ] ]
14
14
let expected : Result < EndGameState , GameError > = Ok EndGameState.Win
15
- gamestate board |> should equal expected
15
+ gameState board |> should equal expected
16
16
17
17
[<Fact( Skip = " Remove this Skip property to run this test" ) >]
18
18
let ``Finished game where X won via middle column victory`` () =
@@ -21,7 +21,7 @@ let ``Finished game where X won via middle column victory`` () =
21
21
[ ' ' ; 'X' ; ' ' ];
22
22
[ ' ' ; 'X' ; ' ' ] ]
23
23
let expected : Result < EndGameState , GameError > = Ok EndGameState.Win
24
- gamestate board |> should equal expected
24
+ gameState board |> should equal expected
25
25
26
26
[<Fact( Skip = " Remove this Skip property to run this test" ) >]
27
27
let ``Finished game where X won via right column victory`` () =
@@ -30,7 +30,7 @@ let ``Finished game where X won via right column victory`` () =
30
30
[ ' ' ; ' ' ; 'X' ];
31
31
[ ' ' ; ' ' ; 'X' ] ]
32
32
let expected : Result < EndGameState , GameError > = Ok EndGameState.Win
33
- gamestate board |> should equal expected
33
+ gameState board |> should equal expected
34
34
35
35
[<Fact( Skip = " Remove this Skip property to run this test" ) >]
36
36
let ``Finished game where O won via left column victory`` () =
@@ -39,7 +39,7 @@ let ``Finished game where O won via left column victory`` () =
39
39
[ 'O' ; 'X' ; ' ' ];
40
40
[ 'O' ; ' ' ; ' ' ] ]
41
41
let expected : Result < EndGameState , GameError > = Ok EndGameState.Win
42
- gamestate board |> should equal expected
42
+ gameState board |> should equal expected
43
43
44
44
[<Fact( Skip = " Remove this Skip property to run this test" ) >]
45
45
let ``Finished game where O won via middle column victory`` () =
@@ -48,7 +48,7 @@ let ``Finished game where O won via middle column victory`` () =
48
48
[ ' ' ; 'O' ; 'X' ];
49
49
[ ' ' ; 'O' ; ' ' ] ]
50
50
let expected : Result < EndGameState , GameError > = Ok EndGameState.Win
51
- gamestate board |> should equal expected
51
+ gameState board |> should equal expected
52
52
53
53
[<Fact( Skip = " Remove this Skip property to run this test" ) >]
54
54
let ``Finished game where O won via right column victory`` () =
@@ -57,7 +57,7 @@ let ``Finished game where O won via right column victory`` () =
57
57
[ ' ' ; 'X' ; 'O' ];
58
58
[ ' ' ; ' ' ; 'O' ] ]
59
59
let expected : Result < EndGameState , GameError > = Ok EndGameState.Win
60
- gamestate board |> should equal expected
60
+ gameState board |> should equal expected
61
61
62
62
[<Fact( Skip = " Remove this Skip property to run this test" ) >]
63
63
let ``Finished game where X won via top row victory`` () =
@@ -66,7 +66,7 @@ let ``Finished game where X won via top row victory`` () =
66
66
[ 'X' ; 'O' ; 'O' ];
67
67
[ 'O' ; ' ' ; ' ' ] ]
68
68
let expected : Result < EndGameState , GameError > = Ok EndGameState.Win
69
- gamestate board |> should equal expected
69
+ gameState board |> should equal expected
70
70
71
71
[<Fact( Skip = " Remove this Skip property to run this test" ) >]
72
72
let ``Finished game where X won via middle row victory`` () =
@@ -75,7 +75,7 @@ let ``Finished game where X won via middle row victory`` () =
75
75
[ 'X' ; 'X' ; 'X' ];
76
76
[ ' ' ; 'O' ; ' ' ] ]
77
77
let expected : Result < EndGameState , GameError > = Ok EndGameState.Win
78
- gamestate board |> should equal expected
78
+ gameState board |> should equal expected
79
79
80
80
[<Fact( Skip = " Remove this Skip property to run this test" ) >]
81
81
let ``Finished game where X won via bottom row victory`` () =
@@ -84,7 +84,7 @@ let ``Finished game where X won via bottom row victory`` () =
84
84
[ 'O' ; ' ' ; 'X' ];
85
85
[ 'X' ; 'X' ; 'X' ] ]
86
86
let expected : Result < EndGameState , GameError > = Ok EndGameState.Win
87
- gamestate board |> should equal expected
87
+ gameState board |> should equal expected
88
88
89
89
[<Fact( Skip = " Remove this Skip property to run this test" ) >]
90
90
let ``Finished game where O won via top row victory`` () =
@@ -93,7 +93,7 @@ let ``Finished game where O won via top row victory`` () =
93
93
[ 'X' ; 'X' ; 'O' ];
94
94
[ 'X' ; 'X' ; ' ' ] ]
95
95
let expected : Result < EndGameState , GameError > = Ok EndGameState.Win
96
- gamestate board |> should equal expected
96
+ gameState board |> should equal expected
97
97
98
98
[<Fact( Skip = " Remove this Skip property to run this test" ) >]
99
99
let ``Finished game where O won via middle row victory`` () =
@@ -102,7 +102,7 @@ let ``Finished game where O won via middle row victory`` () =
102
102
[ 'O' ; 'O' ; 'O' ];
103
103
[ 'X' ; ' ' ; ' ' ] ]
104
104
let expected : Result < EndGameState , GameError > = Ok EndGameState.Win
105
- gamestate board |> should equal expected
105
+ gameState board |> should equal expected
106
106
107
107
[<Fact( Skip = " Remove this Skip property to run this test" ) >]
108
108
let ``Finished game where O won via bottom row victory`` () =
@@ -111,7 +111,7 @@ let ``Finished game where O won via bottom row victory`` () =
111
111
[ ' ' ; 'X' ; 'X' ];
112
112
[ 'O' ; 'O' ; 'O' ] ]
113
113
let expected : Result < EndGameState , GameError > = Ok EndGameState.Win
114
- gamestate board |> should equal expected
114
+ gameState board |> should equal expected
115
115
116
116
[<Fact( Skip = " Remove this Skip property to run this test" ) >]
117
117
let ``Finished game where X won via falling diagonal victory`` () =
@@ -120,7 +120,7 @@ let ``Finished game where X won via falling diagonal victory`` () =
120
120
[ ' ' ; 'X' ; ' ' ];
121
121
[ ' ' ; ' ' ; 'X' ] ]
122
122
let expected : Result < EndGameState , GameError > = Ok EndGameState.Win
123
- gamestate board |> should equal expected
123
+ gameState board |> should equal expected
124
124
125
125
[<Fact( Skip = " Remove this Skip property to run this test" ) >]
126
126
let ``Finished game where X won via rising diagonal victory`` () =
@@ -129,7 +129,7 @@ let ``Finished game where X won via rising diagonal victory`` () =
129
129
[ 'O' ; 'X' ; ' ' ];
130
130
[ 'X' ; ' ' ; ' ' ] ]
131
131
let expected : Result < EndGameState , GameError > = Ok EndGameState.Win
132
- gamestate board |> should equal expected
132
+ gameState board |> should equal expected
133
133
134
134
[<Fact( Skip = " Remove this Skip property to run this test" ) >]
135
135
let ``Finished game where O won via falling diagonal victory`` () =
@@ -138,7 +138,7 @@ let ``Finished game where O won via falling diagonal victory`` () =
138
138
[ 'O' ; 'O' ; 'X' ];
139
139
[ 'X' ; ' ' ; 'O' ] ]
140
140
let expected : Result < EndGameState , GameError > = Ok EndGameState.Win
141
- gamestate board |> should equal expected
141
+ gameState board |> should equal expected
142
142
143
143
[<Fact( Skip = " Remove this Skip property to run this test" ) >]
144
144
let ``Finished game where O won via rising diagonal victory`` () =
@@ -147,7 +147,7 @@ let ``Finished game where O won via rising diagonal victory`` () =
147
147
[ ' ' ; 'O' ; 'X' ];
148
148
[ 'O' ; 'X' ; 'X' ] ]
149
149
let expected : Result < EndGameState , GameError > = Ok EndGameState.Win
150
- gamestate board |> should equal expected
150
+ gameState board |> should equal expected
151
151
152
152
[<Fact( Skip = " Remove this Skip property to run this test" ) >]
153
153
let ``Finished game where X won via a row and a column victory`` () =
@@ -156,7 +156,7 @@ let ``Finished game where X won via a row and a column victory`` () =
156
156
[ 'X' ; 'O' ; 'O' ];
157
157
[ 'X' ; 'O' ; 'O' ] ]
158
158
let expected : Result < EndGameState , GameError > = Ok EndGameState.Win
159
- gamestate board |> should equal expected
159
+ gameState board |> should equal expected
160
160
161
161
[<Fact( Skip = " Remove this Skip property to run this test" ) >]
162
162
let ``Finished game where X won via two diagonal victories`` () =
@@ -165,7 +165,7 @@ let ``Finished game where X won via two diagonal victories`` () =
165
165
[ 'O' ; 'X' ; 'O' ];
166
166
[ 'X' ; 'O' ; 'X' ] ]
167
167
let expected : Result < EndGameState , GameError > = Ok EndGameState.Win
168
- gamestate board |> should equal expected
168
+ gameState board |> should equal expected
169
169
170
170
[<Fact( Skip = " Remove this Skip property to run this test" ) >]
171
171
let ``Draw`` () =
@@ -174,7 +174,7 @@ let ``Draw`` () =
174
174
[ 'X' ; 'X' ; 'O' ];
175
175
[ 'O' ; 'X' ; 'O' ] ]
176
176
let expected : Result < EndGameState , GameError > = Ok EndGameState.Draw
177
- gamestate board |> should equal expected
177
+ gameState board |> should equal expected
178
178
179
179
[<Fact( Skip = " Remove this Skip property to run this test" ) >]
180
180
let ``Another draw`` () =
@@ -183,7 +183,7 @@ let ``Another draw`` () =
183
183
[ 'O' ; 'X' ; 'X' ];
184
184
[ 'X' ; 'O' ; 'O' ] ]
185
185
let expected : Result < EndGameState , GameError > = Ok EndGameState.Draw
186
- gamestate board |> should equal expected
186
+ gameState board |> should equal expected
187
187
188
188
[<Fact( Skip = " Remove this Skip property to run this test" ) >]
189
189
let ``Ongoing game : one move in`` () =
@@ -192,7 +192,7 @@ let ``Ongoing game: one move in`` () =
192
192
[ 'X' ; ' ' ; ' ' ];
193
193
[ ' ' ; ' ' ; ' ' ] ]
194
194
let expected : Result < EndGameState , GameError > = Ok EndGameState.Ongoing
195
- gamestate board |> should equal expected
195
+ gameState board |> should equal expected
196
196
197
197
[<Fact( Skip = " Remove this Skip property to run this test" ) >]
198
198
let ``Ongoing game : two moves in`` () =
@@ -201,7 +201,7 @@ let ``Ongoing game: two moves in`` () =
201
201
[ ' ' ; 'X' ; ' ' ];
202
202
[ ' ' ; ' ' ; ' ' ] ]
203
203
let expected : Result < EndGameState , GameError > = Ok EndGameState.Ongoing
204
- gamestate board |> should equal expected
204
+ gameState board |> should equal expected
205
205
206
206
[<Fact( Skip = " Remove this Skip property to run this test" ) >]
207
207
let ``Ongoing game : five moves in`` () =
@@ -210,7 +210,7 @@ let ``Ongoing game: five moves in`` () =
210
210
[ ' ' ; 'X' ; 'O' ];
211
211
[ 'O' ; 'X' ; ' ' ] ]
212
212
let expected : Result < EndGameState , GameError > = Ok EndGameState.Ongoing
213
- gamestate board |> should equal expected
213
+ gameState board |> should equal expected
214
214
215
215
[<Fact( Skip = " Remove this Skip property to run this test" ) >]
216
216
let ``Invalid board : X went twice`` () =
@@ -219,7 +219,7 @@ let ``Invalid board: X went twice`` () =
219
219
[ ' ' ; ' ' ; ' ' ];
220
220
[ ' ' ; ' ' ; ' ' ] ]
221
221
let expected : Result < EndGameState , GameError > = Error ConsecutiveMovesBySamePlayer
222
- gamestate board |> should equal expected
222
+ gameState board |> should equal expected
223
223
224
224
[<Fact( Skip = " Remove this Skip property to run this test" ) >]
225
225
let ``Invalid board : O started`` () =
@@ -228,7 +228,7 @@ let ``Invalid board: O started`` () =
228
228
[ ' ' ; ' ' ; ' ' ];
229
229
[ ' ' ; ' ' ; ' ' ] ]
230
230
let expected : Result < EndGameState , GameError > = Error WrongPlayerStarted
231
- gamestate board |> should equal expected
231
+ gameState board |> should equal expected
232
232
233
233
[<Fact( Skip = " Remove this Skip property to run this test" ) >]
234
234
let ``Invalid board : X won and O kept playing`` () =
@@ -237,7 +237,7 @@ let ``Invalid board: X won and O kept playing`` () =
237
237
[ 'O' ; 'O' ; 'O' ];
238
238
[ ' ' ; ' ' ; ' ' ] ]
239
239
let expected : Result < EndGameState , GameError > = Error MoveMadeAfterGameWasDone
240
- gamestate board |> should equal expected
240
+ gameState board |> should equal expected
241
241
242
242
[<Fact( Skip = " Remove this Skip property to run this test" ) >]
243
243
let ``Invalid board : players kept playing after a win`` () =
@@ -246,5 +246,5 @@ let ``Invalid board: players kept playing after a win`` () =
246
246
[ 'O' ; 'O' ; 'O' ];
247
247
[ 'X' ; 'O' ; 'X' ] ]
248
248
let expected : Result < EndGameState , GameError > = Error MoveMadeAfterGameWasDone
249
- gamestate board |> should equal expected
249
+ gameState board |> should equal expected
250
250
0 commit comments