June 2018 Update

Task/Test-a-function/Julia/test-a-function.julia

@@ -0,0 +1,20 @@
+using Base.Test
+include("Palindrome_detection.jl")
+
+# Simple test
+@test palindrome("abcdcba")
+@test !palindrome("abd")
+
+# Test sets
+@testset "palindromes" begin
+    @test palindrome("aaaaa")
+    @test palindrome("abcba")
+    @test palindrome("1")
+    @test palindrome("12321")
+end
+
+@testset "non-palindromes" begin
+    @test !palindrome("abc")
+    @test !palindrome("a11")
+    @test !palindrome("012")
+end

Task/Test-a-function/Perl-6/test-a-function.pl6

@@ -1,5 +1,7 @@
 use Test;
 
+sub palin( Str $string) { so $string.lc.comb(/\w/) eq  $string.flip.lc.comb(/\w/) }
+
 my %tests =
     'A man, a plan, a canal: Panama.'           => True,
     'My dog has fleas'                          => False,

Task/Test-a-function/VBA/test-a-function.vba

@@ -0,0 +1,15 @@
+Option Explicit
+
+Sub Test_a_function()
+Dim a, i&
+    a = Array("abba", "mom", "dennis sinned", "Un roc lamina l animal cornu", "palindrome", "ba _ ab", "racecars", "racecar", "wombat", "in girum imus nocte et consumimur igni")
+    For i = 0 To UBound(a)
+        Debug.Print a(i) & " is a palidrome ? " & IsPalindrome(CStr(a(i)))
+    Next
+End Sub
+
+Function IsPalindrome(txt As String) As Boolean
+Dim tempTxt As String
+    tempTxt = LCase(Replace(txt, " ", ""))
+    IsPalindrome = (tempTxt = StrReverse(tempTxt))
+End Function