Add tests and makefile; ignore test log

Author: livecodeali

.gitignore

@@ -0,0 +1 @@
+tests/_lcs_test_suite.log

tests/Makefile

@@ -0,0 +1,14 @@
+# This Makefile takes advantage of the fact that the LiveCode engine's
+# "tests/Makefile" already does pretty much everything required for
+# running a test suite.  Rather than duplicating it, it can
+# just be included with a few tweaks to its configuration.
+
+# Override the default value of top_srcdir so that it points to the
+# top of the engine repository.
+top_srcdir = ../livecode
+
+LCS_TESTS_DIR = test-scripts
+
+# Things have now been setup enough that the engine's test Makefile
+# can perform the tests without any further configuration.
+include $(top_srcdir)/tests/Makefile

tests/test-scripts/test.livecodescript

@@ -0,0 +1,77 @@
+script "TestCiphers"
+
+on TestSetup
+    local tSourceFile
+    put the filename of me into tSourceFile
+    set the itemdelimiter to slash
+    put "src/PuzzleTools.livecodescript" into item -3 to -1 of tSourceFile
+    start using stack tSourceFile
+end TestSetup
+
+private command TestAssertUserThrows pDesc, pHandler, pError
+    local tError
+    try
+        dispatch pHandler to me
+    catch tError
+    end try
+
+    TestDiagnostic tError
+
+    TestAssert pDesc, tError is pError
+end TestAssertUserThrows
+
+on LetterToNumberThrow
+    get toNumber("'")
+end LetterToNumberThrow
+
+on TestLetterToNumber
+    local tIndex
+    put 0 into tIndex
+    repeat for each char tChar in "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
+        add 1 to tIndex
+        TestAssert "uppercase letter" && tChar && "to number correct", \
+                toNumber(tChar) is tIndex
+    end repeat
+
+    put 0 into tIndex
+    repeat for each char tChar in "abcdefghijklmnopqrstuvwxyz"
+        add 1 to tIndex
+        TestAssert "lowercase letter" && tChar && "to number correct", \
+                toNumber(tChar) is tIndex
+    end repeat
+
+    TestAssertUserThrows "non alphabetic input to toNumber function throws", \
+            "LetterToNumberThrow", "char not alphabetical"
+end TestLetterToNumber
+
+on TestLetterFromNumber
+    local tIndex
+    put 0 into tIndex
+    repeat for each char tChar in "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
+        add 1 to tIndex
+        TestAssert "uppercase letter" && tChar && "from number correct", \
+                fromNumber(tIndex) is tChar
+    end repeat
+
+    put 0 into tIndex
+    repeat for each char tChar in "abcdefghijklmnopqrstuvwxyz"
+        add 1 to tIndex
+        TestAssert "lowercase letter" && tChar && "from number correct", \
+                fromNumber(tIndex) is tChar
+    end repeat
+end TestLetterFromNumber
+
+on TestCaesarCipher
+    TestAssert "abjurer <-> nowhere (13)", caesarShift("abjurer", 13) is "nowhere"
+    TestAssert "inkier <-> purply (7)", caesarShift("inkier", 7) is "purply"
+    TestAssert "fusion <-> layout (6)", caesarShift("fusion", 6) is "layout"
+    TestAssert "manful <-> thumbs (7)", caesarShift("manful", 7) is "thumbs"
+    TestAssert "primero <-> sulphur (3)", caesarShift("primero", 3) is "sulphur"
+    TestAssert "steeds <-> tuffet (1)", caesarShift("steeds", 1) is "tuffet"
+end TestCaesarCipher
+
+on TestVigenereCipher
+    TestAssert "LIVECODE encoded using vigenere cipher with key TEST is EMNXVSVX", \
+            vigenereShift("LIVECODE","TEST") is "EMNXVSVX"
+end TestVigenereCipher
+