1
exercism fetch fsharp tournament

TournamentTest.fs

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
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
// This file was auto-generated based on version 1.4.0 of the canonical data.

module TournamentTest

open FsUnit.Xunit
open Xunit

open Tournament

[<Fact>]
let ``Just the header if no input`` () =
    let rows = []
    let expected = ["Team                           | MP |  W |  D |  L |  P"]
    tally rows |> should equal expected

[<Fact(Skip = "Remove to run test")>]
let ``A win is three points, a loss is zero points`` () =
    let rows = ["Allegoric Alaskans;Blithering Badgers;win"]
    let expected = 
        [ "Team                           | MP |  W |  D |  L |  P";
          "Allegoric Alaskans             |  1 |  1 |  0 |  0 |  3";
          "Blithering Badgers             |  1 |  0 |  0 |  1 |  0" ]
    tally rows |> should equal expected

[<Fact(Skip = "Remove to run test")>]
let ``A win can also be expressed as a loss`` () =
    let rows = ["Blithering Badgers;Allegoric Alaskans;loss"]
    let expected = 
        [ "Team                           | MP |  W |  D |  L |  P";
          "Allegoric Alaskans             |  1 |  1 |  0 |  0 |  3";
          "Blithering Badgers             |  1 |  0 |  0 |  1 |  0" ]
    tally rows |> should equal expected

[<Fact(Skip = "Remove to run test")>]
let ``A different team can win`` () =
    let rows = ["Blithering Badgers;Allegoric Alaskans;win"]
    let expected = 
        [ "Team                           | MP |  W |  D |  L |  P";
          "Blithering Badgers             |  1 |  1 |  0 |  0 |  3";
          "Allegoric Alaskans             |  1 |  0 |  0 |  1 |  0" ]
    tally rows |> should equal expected

[<Fact(Skip = "Remove to run test")>]
let ``A draw is one point each`` () =
    let rows = ["Allegoric Alaskans;Blithering Badgers;draw"]
    let expected = 
        [ "Team                           | MP |  W |  D |  L |  P";
          "Allegoric Alaskans             |  1 |  0 |  1 |  0 |  1";
          "Blithering Badgers             |  1 |  0 |  1 |  0 |  1" ]
    tally rows |> should equal expected

[<Fact(Skip = "Remove to run test")>]
let ``There can be more than one match`` () =
    let rows = 
        [ "Allegoric Alaskans;Blithering Badgers;win";
          "Allegoric Alaskans;Blithering Badgers;win" ]
    let expected = 
        [ "Team                           | MP |  W |  D |  L |  P";
          "Allegoric Alaskans             |  2 |  2 |  0 |  0 |  6";
          "Blithering Badgers             |  2 |  0 |  0 |  2 |  0" ]
    tally rows |> should equal expected

[<Fact(Skip = "Remove to run test")>]
let ``There can be more than one winner`` () =
    let rows = 
        [ "Allegoric Alaskans;Blithering Badgers;loss";
          "Allegoric Alaskans;Blithering Badgers;win" ]
    let expected = 
        [ "Team                           | MP |  W |  D |  L |  P";
          "Allegoric Alaskans             |  2 |  1 |  0 |  1 |  3";
          "Blithering Badgers             |  2 |  1 |  0 |  1 |  3" ]
    tally rows |> should equal expected

[<Fact(Skip = "Remove to run test")>]
let ``There can be more than two teams`` () =
    let rows = 
        [ "Allegoric Alaskans;Blithering Badgers;win";
          "Blithering Badgers;Courageous Californians;win";
          "Courageous Californians;Allegoric Alaskans;loss" ]
    let expected = 
        [ "Team                           | MP |  W |  D |  L |  P";
          "Allegoric Alaskans             |  2 |  2 |  0 |  0 |  6";
          "Blithering Badgers             |  2 |  1 |  0 |  1 |  3";
          "Courageous Californians        |  2 |  0 |  0 |  2 |  0" ]
    tally rows |> should equal expected

[<Fact(Skip = "Remove to run test")>]
let ``Typical input`` () =
    let rows = 
        [ "Allegoric Alaskans;Blithering Badgers;win";
          "Devastating Donkeys;Courageous Californians;draw";
          "Devastating Donkeys;Allegoric Alaskans;win";
          "Courageous Californians;Blithering Badgers;loss";
          "Blithering Badgers;Devastating Donkeys;loss";
          "Allegoric Alaskans;Courageous Californians;win" ]
    let expected = 
        [ "Team                           | MP |  W |  D |  L |  P";
          "Devastating Donkeys            |  3 |  2 |  1 |  0 |  7";
          "Allegoric Alaskans             |  3 |  2 |  0 |  1 |  6";
          "Blithering Badgers             |  3 |  1 |  0 |  2 |  3";
          "Courageous Californians        |  3 |  0 |  1 |  2 |  1" ]
    tally rows |> should equal expected

[<Fact(Skip = "Remove to run test")>]
let ``Incomplete competition (not all pairs have played)`` () =
    let rows = 
        [ "Allegoric Alaskans;Blithering Badgers;loss";
          "Devastating Donkeys;Allegoric Alaskans;loss";
          "Courageous Californians;Blithering Badgers;draw";
          "Allegoric Alaskans;Courageous Californians;win" ]
    let expected = 
        [ "Team                           | MP |  W |  D |  L |  P";
          "Allegoric Alaskans             |  3 |  2 |  0 |  1 |  6";
          "Blithering Badgers             |  2 |  1 |  1 |  0 |  4";
          "Courageous Californians        |  2 |  0 |  1 |  1 |  1";
          "Devastating Donkeys            |  1 |  0 |  0 |  1 |  0" ]
    tally rows |> should equal expected

[<Fact(Skip = "Remove to run test")>]
let ``Ties broken alphabetically`` () =
    let rows = 
        [ "Courageous Californians;Devastating Donkeys;win";
          "Allegoric Alaskans;Blithering Badgers;win";
          "Devastating Donkeys;Allegoric Alaskans;loss";
          "Courageous Californians;Blithering Badgers;win";
          "Blithering Badgers;Devastating Donkeys;draw";
          "Allegoric Alaskans;Courageous Californians;draw" ]
    let expected = 
        [ "Team                           | MP |  W |  D |  L |  P";
          "Allegoric Alaskans             |  3 |  2 |  1 |  0 |  7";
          "Courageous Californians        |  3 |  2 |  1 |  0 |  7";
          "Blithering Badgers             |  3 |  0 |  1 |  2 |  1";
          "Devastating Donkeys            |  3 |  0 |  1 |  2 |  1" ]
    tally rows |> should equal expected