vbnet/exercises/practice/say/SayTests.vb at main · exercism/vbnet · GitHub

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
Public Class SayTests
    <Fact>
    Public Sub Zero()
        Assert.Equal("zero", InEnglish(0L))
    End Sub

    <Fact(Skip:="Remove this Skip property to run this test")>
    Public Sub One()
        Assert.Equal("one", InEnglish(1L))
    End Sub

    <Fact(Skip:="Remove this Skip property to run this test")>
    Public Sub Fourteen()
        Assert.Equal("fourteen", InEnglish(14L))
    End Sub

    <Fact(Skip:="Remove this Skip property to run this test")>
    Public Sub Twenty()
        Assert.Equal("twenty", InEnglish(20L))
    End Sub

    <Fact(Skip:="Remove this Skip property to run this test")>
    Public Sub Twenty_two()
        Assert.Equal("twenty-two", InEnglish(22L))
    End Sub

    <Fact(Skip:="Remove this Skip property to run this test")>
    Public Sub Thirty()
        Assert.Equal("thirty", InEnglish(30L))
    End Sub

    <Fact(Skip:="Remove this Skip property to run this test")>
    Public Sub Ninety_nine()
        Assert.Equal("ninety-nine", InEnglish(99L))
    End Sub

    <Fact(Skip:="Remove this Skip property to run this test")>
    Public Sub One_hundred()
        Assert.Equal("one hundred", InEnglish(100L))
    End Sub

    <Fact(Skip:="Remove this Skip property to run this test")>
    Public Sub One_hundred_twenty_three()
        Assert.Equal("one hundred twenty-three", InEnglish(123L))
    End Sub

    <Fact(Skip:="Remove this Skip property to run this test")>
    Public Sub Two_hundred()
        Assert.Equal("two hundred", InEnglish(200L))
    End Sub

    <Fact(Skip:="Remove this Skip property to run this test")>
    Public Sub Nine_hundred_ninety_nine()
        Assert.Equal("nine hundred ninety-nine", InEnglish(999L))
    End Sub

    <Fact(Skip:="Remove this Skip property to run this test")>
    Public Sub One_thousand()
        Assert.Equal("one thousand", InEnglish(1000L))
    End Sub

    <Fact(Skip:="Remove this Skip property to run this test")>
    Public Sub One_thousand_two_hundred_thirty_four()
        Assert.Equal("one thousand two hundred thirty-four", InEnglish(1234L))
    End Sub

    <Fact(Skip:="Remove this Skip property to run this test")>
    Public Sub One_million()
        Assert.Equal("one million", InEnglish(1000000L))
    End Sub

    <Fact(Skip:="Remove this Skip property to run this test")>
    Public Sub One_million_two_thousand_three_hundred_forty_five()
        Assert.Equal("one million two thousand three hundred forty-five", InEnglish(1002345L))
    End Sub

    <Fact(Skip:="Remove this Skip property to run this test")>
    Public Sub One_billion()
        Assert.Equal("one billion", InEnglish(1000000000L))
    End Sub

    <Fact(Skip:="Remove this Skip property to run this test")>
    Public Sub A_big_number()
        Assert.Equal("nine hundred eighty-seven billion six hundred fifty-four million three hundred twenty-one thousand one hundred twenty-three", InEnglish(987654321123L))
    End Sub

    <Fact(Skip:="Remove this Skip property to run this test")>
    Public Sub Numbers_below_zero_are_out_of_range()
        Assert.Throws(Of ArgumentOutOfRangeException)(Function() InEnglish(-1L))
    End Sub

    <Fact(Skip:="Remove this Skip property to run this test")>
    Public Sub Numbers_above_999_999_999_999_are_out_of_range()
        Assert.Throws(Of ArgumentOutOfRangeException)(Function() InEnglish(1000000000000L))
    End Sub
End Class