awk/darts: 1st iteration

README.md

@@ -19,7 +19,7 @@ Exercism Workspace
 |   June        |  Summer-of-Sexps   |  Common-Lisp  (5/5)  |
 |   July        |  Jurassic          |  C            (5/5),  C++   (5/5),  Fortran  (0/5)  |
 |   August      |  Apps              |  Dart         (5/5),  Java  (0/5),  Kotlin   (0/5)  |
-|   September   |  Slimline          |  Awk          (1/5),  Bash\*  (5/5),  jq       (0/5),  Perl  (0/5)  |
+|   September   |  Slimline          |  Awk          (2/5),  Bash\*  (5/5),  jq       (0/5),  Perl  (0/5)  |
 |   October     |  Object-Oriented   |  |
 |   November    |  Nibbly            |  |
 |   December    |  Diversions        |  |

awk/README.md

@@ -18,3 +18,4 @@
 - [two-fer](./two-fer/README.md)
 - [reverse-string](./reverse-string/README.md)
 - [gigasecond](./gigasecond/README.md)
+- [darts](./darts/README.md)

awk/darts/README.md

@@ -35,4 +35,11 @@ Write a function that given a point in the target (defined by its [Cartesian coo
 
 ### Based on
 
-Inspired by an exercise created by a professor Della Paolera in Argentina
+Inspired by an exercise created by a professor Della Paolera in Argentina
+
+### My Solution
+
+- [my solution](./darts.awk)
+- [awkunit tests](./darts_test.awk)
+- [test cases](./test-cases.awk)
+- [run-tests](./run-tests-awk.txt)

awk/darts/awkunit.awk

@@ -0,0 +1 @@
+../.lib/awkunit.awk

awk/darts/darts_test.awk

@@ -0,0 +1,71 @@
+#!/usr/bin/gawk --lint --file
+
+@include "awkunit"
+@include "test-cases"
+@include "darts"
+
+passed = 0
+testCount = 0
+
+function _debugTestPre() {
+    printf "Test %s:\n", (passed + 1)
+    printf "     input -> [%s]\n", input
+}
+
+function _debugTestPost() {
+    passed = passed + 1
+    printf "    output -> [%s]\n", got
+    printf "    result -> passed\n\n"
+}
+
+function testDarts_zero() {
+    input = ""
+    want = ""
+
+    _debugTestPre()
+    got = darts(input)
+
+    assertEquals(want, got)
+    _debugTestPost()
+}
+
+function casesDarts() {
+    printf "Running %d test cases\n\n", length(cases)
+    caseNum = 0
+
+    # Associative arrays don't preserve insert order.
+    for (key in cases) {
+        input = key
+        want = cases[key]
+
+        _debugTestPre()
+        got = darts(input)
+
+        assertEquals(want, got)
+        _debugTestPost()
+    }
+}
+
+BEGIN {
+    exit 0
+}
+
+END {
+    cmd = "grep --no-filename --count ^function\\ test *_test.awk"
+    cmd | getline testCount
+
+    printf "\nRunning %d tests...\n\n", testCount
+
+    testCount = testCount + length(cases)
+
+    # running tests with a lot of duplication
+    testDarts_zero()
+
+    # running tests with reduced duplication
+    casesDarts()
+
+    print "\n" passed " out of " testCount " tests passed!"
+
+    # add exit here to keep it from looping
+    exit 0
+}

awk/darts/test-cases.awk

@@ -0,0 +1,12 @@
+#!/usr/bin/gawk --lint --file
+# test-cases.awk
+
+#   key: input
+# value: output
+
+BEGIN {
+    cases[""]="" # wow, this works with a warning
+
+    # add exit here to keep it from waiting for input
+    exit 0
+}