1
exercism fetch fsharp reverse-string

ReverseStringTest.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
// This file was auto-generated based on version 1.0.1 of the canonical data.

module ReverseStringTest

open FsUnit.Xunit
open Xunit

open ReverseString

[<Fact>]
let ``An empty string`` () =
    reverse "" |> should equal ""

[<Fact(Skip = "Remove to run test")>]
let ``A word`` () =
    reverse "robot" |> should equal "tobor"

[<Fact(Skip = "Remove to run test")>]
let ``A capitalized word`` () =
    reverse "Ramen" |> should equal "nemaR"

[<Fact(Skip = "Remove to run test")>]
let ``A sentence with punctuation`` () =
    reverse "I'm hungry!" |> should equal "!yrgnuh m'I"

[<Fact(Skip = "Remove to run test")>]
let ``A palindrome`` () =
    reverse "racecar" |> should equal "racecar"