Generator files for atbash-cipher, bank-account, beer-song, binary, and binary-search

exercises/practice/atbash-cipher/.meta/Generator.tpl

@@ -0,0 +1,10 @@
+Public Class {{ testClass }}
+    {{- for test in tests }}
+    {{ test.factAttribute }}
+    Public Sub {{ test.shortTestMethod }}()
+        Dim actual = {{ testedClass }}.{{ test.testedMethod }}({{ test.input.phrase | vb_string_literal }})
+        Dim expected = {{ test.expected | vb_string_literal }}
+        Assert.Equal(expected, actual)
+    End Sub
+    {{ end -}}
+End Class

exercises/practice/atbash-cipher/AtbashCipherTests.vb

@@ -1,71 +1,99 @@
 Public Class AtbashCipherTests
     <Fact>
-    Public Sub EncodeYes()
-        Assert.Equal("bvh", AtbashCipher.Encode("yes"))
+    Public Sub Encode_yes()
+        Dim actual = AtbashCipher.Encode("yes")
+        Dim expected = "bvh"
+        Assert.Equal(expected, actual)
     End Sub
 
     <Fact(Skip:="Remove this Skip property to run this test")>
-    Public Sub EncodeNo()
-        Assert.Equal("ml", AtbashCipher.Encode("no"))
+    Public Sub Encode_no()
+        Dim actual = AtbashCipher.Encode("no")
+        Dim expected = "ml"
+        Assert.Equal(expected, actual)
     End Sub
 
     <Fact(Skip:="Remove this Skip property to run this test")>
-    Public Sub EncodeOMG()
-        Assert.Equal("lnt", AtbashCipher.Encode("OMG"))
+    Public Sub Encode_omg()
+        Dim actual = AtbashCipher.Encode("OMG")
+        Dim expected = "lnt"
+        Assert.Equal(expected, actual)
     End Sub
 
     <Fact(Skip:="Remove this Skip property to run this test")>
-    Public Sub EncodeSpaces()
-        Assert.Equal("lnt", AtbashCipher.Encode("O M G"))
+    Public Sub Encode_spaces()
+        Dim actual = AtbashCipher.Encode("O M G")
+        Dim expected = "lnt"
+        Assert.Equal(expected, actual)
     End Sub
 
     <Fact(Skip:="Remove this Skip property to run this test")>
-    Public Sub EncodeMindblowingly()
-        Assert.Equal("nrmwy oldrm tob", AtbashCipher.Encode("mindblowingly"))
+    Public Sub Encode_mindblowingly()
+        Dim actual = AtbashCipher.Encode("mindblowingly")
+        Dim expected = "nrmwy oldrm tob"
+        Assert.Equal(expected, actual)
     End Sub
 
     <Fact(Skip:="Remove this Skip property to run this test")>
-    Public Sub EncodeNumbers()
-        Assert.Equal("gvhgr mt123 gvhgr mt", AtbashCipher.Encode("Testing,1 2 3, testing."))
+    Public Sub Encode_numbers()
+        Dim actual = AtbashCipher.Encode("Testing,1 2 3, testing.")
+        Dim expected = "gvhgr mt123 gvhgr mt"
+        Assert.Equal(expected, actual)
     End Sub
 
     <Fact(Skip:="Remove this Skip property to run this test")>
-    Public Sub EncodeDeepThought()
-        Assert.Equal("gifgs rhurx grlm", AtbashCipher.Encode("Truth is fiction."))
+    Public Sub Encode_deep_thought()
+        Dim actual = AtbashCipher.Encode("Truth is fiction.")
+        Dim expected = "gifgs rhurx grlm"
+        Assert.Equal(expected, actual)
     End Sub
 
     <Fact(Skip:="Remove this Skip property to run this test")>
-    Public Sub EncodeAllTheLetters()
-        Assert.Equal("gsvjf rxpyi ldmul cqfnk hlevi gsvoz abwlt", AtbashCipher.Encode("The quick brown fox jumps over the lazy dog."))
+    Public Sub Encode_all_the_letters()
+        Dim actual = AtbashCipher.Encode("The quick brown fox jumps over the lazy dog.")
+        Dim expected = "gsvjf rxpyi ldmul cqfnk hlevi gsvoz abwlt"
+        Assert.Equal(expected, actual)
     End Sub
 
     <Fact(Skip:="Remove this Skip property to run this test")>
-    Public Sub DecodeExercism()
-        Assert.Equal("exercism", AtbashCipher.Decode("vcvix rhn"))
+    Public Sub Decode_exercism()
+        Dim actual = AtbashCipher.Decode("vcvix rhn")
+        Dim expected = "exercism"
+        Assert.Equal(expected, actual)
     End Sub
 
     <Fact(Skip:="Remove this Skip property to run this test")>
-    Public Sub DecodeASentence()
-        Assert.Equal("anobstacleisoftenasteppingstone", AtbashCipher.Decode("zmlyh gzxov rhlug vmzhg vkkrm thglm v"))
+    Public Sub Decode_a_sentence()
+        Dim actual = AtbashCipher.Decode("zmlyh gzxov rhlug vmzhg vkkrm thglm v")
+        Dim expected = "anobstacleisoftenasteppingstone"
+        Assert.Equal(expected, actual)
     End Sub
 
     <Fact(Skip:="Remove this Skip property to run this test")>
-    Public Sub DecodeNumbers()
-        Assert.Equal("testing123testing", AtbashCipher.Decode("gvhgr mt123 gvhgr mt"))
+    Public Sub Decode_numbers()
+        Dim actual = AtbashCipher.Decode("gvhgr mt123 gvhgr mt")
+        Dim expected = "testing123testing"
+        Assert.Equal(expected, actual)
     End Sub
 
     <Fact(Skip:="Remove this Skip property to run this test")>
-    Public Sub DecodeAllTheLetters()
-        Assert.Equal("thequickbrownfoxjumpsoverthelazydog", AtbashCipher.Decode("gsvjf rxpyi ldmul cqfnk hlevi gsvoz abwlt"))
+    Public Sub Decode_all_the_letters()
+        Dim actual = AtbashCipher.Decode("gsvjf rxpyi ldmul cqfnk hlevi gsvoz abwlt")
+        Dim expected = "thequickbrownfoxjumpsoverthelazydog"
+        Assert.Equal(expected, actual)
     End Sub
 
     <Fact(Skip:="Remove this Skip property to run this test")>
-    Public Sub DecodeWithTooManySpaces()
-        Assert.Equal("exercism", AtbashCipher.Decode("vc vix    r hn"))
+    Public Sub Decode_with_too_many_spaces()
+        Dim actual = AtbashCipher.Decode("vc vix    r hn")
+        Dim expected = "exercism"
+        Assert.Equal(expected, actual)
     End Sub
 
     <Fact(Skip:="Remove this Skip property to run this test")>
-    Public Sub DecodeWithNoSpaces()
-        Assert.Equal("anobstacleisoftenasteppingstone", AtbashCipher.Decode("zmlyhgzxovrhlugvmzhgvkkrmthglmv"))
+    Public Sub Decode_with_no_spaces()
+        Dim actual = AtbashCipher.Decode("zmlyhgzxovrhlugvmzhgvkkrmthglmv")
+        Dim expected = "anobstacleisoftenasteppingstone"
+        Assert.Equal(expected, actual)
     End Sub
 End Class

exercises/practice/bank-account/.meta/Generator.tpl

@@ -0,0 +1,54 @@
+{{ func call
+    if $0.operation == "balance"
+        ret "Balance"
+    end
+
+    if $0.amount != null
+        ret $"{pascalize $0.operation}({$0.amount}D)"
+    end
+
+    ret $"{pascalize $0.operation}()"
+end }}
+
+{{ func lambda_prefix
+    if $0.operation == "balance"
+        ret "Function()"
+    end
+
+    ret "Sub()"
+end }}
+
+Imports System.Threading.Tasks
+
+Public Class {{ testClass }}
+    {{- for test in tests }}
+    {{ test.factAttribute }}
+    Public Sub {{ test.testMethod }}()
+        Dim account = New {{ testedClass }}()
+        {{- for operation in test.input.operations }}
+        {{- if for.last }}
+        {{- if test.expected.error }}
+        Assert.Throws(Of InvalidOperationException)({{ operation | lambda_prefix }} account.{{ operation | call }})
+        {{- else }}
+        Dim actual = account.{{ operation | call }}
+        Dim expected = {{ test.expected }}D
+        Assert.Equal(expected, actual)
+        {{- end }}
+        {{- else if operation.operation == "concurrent" }}
+        Dim tasks As New List(Of Task)
+        For i = 1 To {{ operation.number }}
+            tasks.Add(Task.Run(
+                Sub()
+                    {{- for nested_operation in operation.operations }}
+                    account.{{ nested_operation | call }}
+                    {{- end }}
+                End Sub))
+        Next
+        Task.WaitAll(tasks.ToArray())
+        {{- else }}
+        account.{{ operation | call }}
+        {{- end }}
+        {{- end }}
+    End Sub
+    {{ end -}}
+End Class