tracks/fsharp/exercises/pangram/PangramTest.fs in trackler-2.2.1.44 vs tracks/fsharp/exercises/pangram/PangramTest.fs in trackler-2.2.1.45
- old
+ new
@@ -1,57 +1,45 @@
+// This file was auto-generated based on version 1.1.0 of the canonical data.
+
module PangramTest
-open Xunit
open FsUnit.Xunit
+open Xunit
open Pangram
[<Fact>]
-let ``Empty sentence`` () =
- let input = ""
- isPangram input |> should equal false
+let ``Sentence empty`` () =
+ isPangram "" |> should equal false
[<Fact(Skip = "Remove to run test")>]
let ``Pangram with only lower case`` () =
- let input = "the quick brown fox jumps over the lazy dog"
- isPangram input |> should equal true
+ isPangram "the quick brown fox jumps over the lazy dog" |> should equal true
[<Fact(Skip = "Remove to run test")>]
let ``Missing character 'x'`` () =
- let input = "a quick movement of the enemy will jeopardize five gunboats"
- isPangram input |> should equal false
+ isPangram "a quick movement of the enemy will jeopardize five gunboats" |> should equal false
[<Fact(Skip = "Remove to run test")>]
let ``Another missing character 'x'`` () =
- let input = "the quick brown fish jumps over the lazy dog"
- isPangram input |> should equal false
+ isPangram "the quick brown fish jumps over the lazy dog" |> should equal false
[<Fact(Skip = "Remove to run test")>]
let ``Pangram with underscores`` () =
- let input = "the_quick_brown_fox_jumps_over_the_lazy_dog"
- isPangram input |> should equal true
+ isPangram "the_quick_brown_fox_jumps_over_the_lazy_dog" |> should equal true
[<Fact(Skip = "Remove to run test")>]
let ``Pangram with numbers`` () =
- let input = "the 1 quick brown fox jumps over the 2 lazy dogs"
- isPangram input |> should equal true
+ isPangram "the 1 quick brown fox jumps over the 2 lazy dogs" |> should equal true
[<Fact(Skip = "Remove to run test")>]
let ``Missing letters replaced by numbers`` () =
- let input = "7h3 qu1ck brown fox jumps ov3r 7h3 lazy dog"
- isPangram input |> should equal false
-
+ isPangram "7h3 qu1ck brown fox jumps ov3r 7h3 lazy dog" |> should equal false
+
[<Fact(Skip = "Remove to run test")>]
let ``Pangram with mixed case and punctuation`` () =
- let input = "\"Five quacking Zephyrs jolt my wax bed.\""
- isPangram input |> should equal true
+ isPangram "\"Five quacking Zephyrs jolt my wax bed.\"" |> should equal true
[<Fact(Skip = "Remove to run test")>]
-let ``Pangram with non ascii characters`` () =
- let input = "Victor jagt zwölf Boxkämpfer quer über den großen Sylter Deich."
- isPangram input |> should equal true
+let ``Upper and lower case versions of the same character should not be counted separately`` () =
+ isPangram "the quick brown fox jumps over with lazy FX" |> should equal false
-[<Fact(Skip = "Remove to run test")>]
-let ``Panagram in alphabet other than ASCII`` () =
- let input = "Широкая электрификация южных губерний даст мощный толчок подъёму сельского хозяйства."
- isPangram input |> should equal false
-