diff --git a/exercises/practice/crypto-square/.meta/tests.toml b/exercises/practice/crypto-square/.meta/tests.toml index 054544573..94ef0819f 100644 --- a/exercises/practice/crypto-square/.meta/tests.toml +++ b/exercises/practice/crypto-square/.meta/tests.toml @@ -1,10 +1,20 @@ -# This is an auto-generated file. Regular comments will be removed when this -# file is regenerated. Regenerating will not touch any manually added keys, -# so comments can be added in a "comment" key. +# This is an auto-generated file. +# +# Regenerating this file via `configlet sync` will: +# - Recreate every `description` key/value pair +# - Recreate every `reimplements` key/value pair, where they exist in problem-specifications +# - Remove any `include = true` key/value pair (an omitted `include` key implies inclusion) +# - Preserve any other key/value pair +# +# As user-added comments (using the # character) will be removed when this file +# is regenerated, comments can be added via a `comment` key. [407c3837-9aa7-4111-ab63-ec54b58e8e9f] description = "empty plaintext results in an empty ciphertext" +[aad04a25-b8bb-4304-888b-581bea8e0040] +description = "normalization results in empty plaintext" + [64131d65-6fd9-4f58-bdd8-4a2370fb481d] description = "Lowercase" @@ -22,3 +32,8 @@ description = "8 character plaintext results in 3 chunks, the last one with a tr [fbcb0c6d-4c39-4a31-83f6-c473baa6af80] description = "54 character plaintext results in 7 chunks, the last two with trailing spaces" +include = false + +[33fd914e-fa44-445b-8f38-ff8fbc9fe6e6] +description = "54 character plaintext results in 8 chunks, the last two with trailing spaces" +reimplements = "fbcb0c6d-4c39-4a31-83f6-c473baa6af80" diff --git a/exercises/practice/crypto-square/CryptoSquareTests.fs b/exercises/practice/crypto-square/CryptoSquareTests.fs index 42271a7cc..1cfd9ffa5 100644 --- a/exercises/practice/crypto-square/CryptoSquareTests.fs +++ b/exercises/practice/crypto-square/CryptoSquareTests.fs @@ -9,6 +9,10 @@ open CryptoSquare let ``Empty plaintext results in an empty ciphertext`` () = ciphertext "" |> should equal "" +[] +let ``Normalization results in empty plaintext`` () = + ciphertext "... --- ..." |> should equal "" + [] let ``Lowercase`` () = ciphertext "A" |> should equal "a" @@ -30,6 +34,6 @@ let ``8 character plaintext results in 3 chunks, the last one with a trailing sp ciphertext "Chill out." |> should equal "clu hlt io " [] -let ``54 character plaintext results in 7 chunks, the last two with trailing spaces`` () = +let ``54 character plaintext results in 8 chunks, the last two with trailing spaces`` () = ciphertext "If man was meant to stay on the ground, god would have given us roots." |> should equal "imtgdvs fearwer mayoogo anouuio ntnnlvt wttddes aohghn sseoau "