module PigLatinTest

open NUnit.Framework
open PigLatin

[<TestCase("apple", ExpectedResult = "appleay")>]
[<TestCase("ear", ExpectedResult = "earay", Ignore = "Remove to run test case")>]
[<TestCase("igloo", ExpectedResult = "iglooay", Ignore = "Remove to run test case")>]
[<TestCase("object", ExpectedResult = "objectay", Ignore = "Remove to run test case")>]
[<TestCase("under", ExpectedResult = "underay", Ignore = "Remove to run test case")>]
let ``Ay is added to words that start with vowels`` (word) =
    translate word

[<TestCase("pig", ExpectedResult = "igpay", Ignore = "Remove to run test case")>]
[<TestCase("koala", ExpectedResult = "oalakay", Ignore = "Remove to run test case")>]
[<TestCase("yellow", ExpectedResult = "ellowyay", Ignore = "Remove to run test case")>]
[<TestCase("xenon", ExpectedResult = "enonxay", Ignore = "Remove to run test case")>]
let ``First letter and ay are moved to the end of words that start with consonants`` (word) =
    translate word

[<Test>]
[<Ignore("Remove to run test")>]
let ``Ch is treated like a single consonant`` () =
    Assert.That(translate "chair", Is.EqualTo("airchay"))

[<Test>]
[<Ignore("Remove to run test")>]
let ``Qu is treated like a single consonant`` () =
    Assert.That(translate "queen", Is.EqualTo("eenquay"))

[<Test>]
[<Ignore("Remove to run test")>]
let ``Qu and a single preceding consonant are treated like a single consonant`` () =
    Assert.That(translate "square", Is.EqualTo("aresquay"))

[<Test>]
[<Ignore("Remove to run test")>]
let ``Th is treated like a single consonant`` () =
    Assert.That(translate "therapy", Is.EqualTo("erapythay"))

[<Test>]
[<Ignore("Remove to run test")>]
let ``Thr is treated like a single consonant`` () =
    Assert.That(translate "thrush", Is.EqualTo("ushthray"))

[<Test>]
[<Ignore("Remove to run test")>]
let ``Sch is treated like a single consonant`` () =
    Assert.That(translate "school", Is.EqualTo("oolschay"))

[<Test>]
[<Ignore("Remove to run test")>]
let ``Yt is treated like a single vowel`` () =
    Assert.That(translate "yttria", Is.EqualTo("yttriaay"))

[<Test>]
[<Ignore("Remove to run test")>]
let ``Xr is treated like a single vowel`` () =
    Assert.That(translate "xray", Is.EqualTo("xrayay"))

[<Test>]
[<Ignore("Remove to run test")>]
let ``Phrases are translated`` () =
    Assert.That(translate "quick fast run", Is.EqualTo("ickquay astfay unray"))