Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
21 changes: 18 additions & 3 deletions exercises/practice/crypto-square/.meta/tests.toml
Original file line number Diff line number Diff line change
@@ -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"

Expand All @@ -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"
6 changes: 5 additions & 1 deletion exercises/practice/crypto-square/CryptoSquareTests.fs
Original file line number Diff line number Diff line change
Expand Up @@ -9,6 +9,10 @@ open CryptoSquare
let ``Empty plaintext results in an empty ciphertext`` () =
ciphertext "" |> should equal ""

[<Fact(Skip = "Remove this Skip property to run this test")>]
let ``Normalization results in empty plaintext`` () =
ciphertext "... --- ..." |> should equal ""

[<Fact(Skip = "Remove this Skip property to run this test")>]
let ``Lowercase`` () =
ciphertext "A" |> should equal "a"
Expand All @@ -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 "

[<Fact(Skip = "Remove this Skip property to run this test")>]
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 "