trackler 2.0.6.28 → 2.0.6.29

data/tracks/erlang/exercises/zipper/test/zipper_tests.erl

@@ -0,0 +1,100 @@
+-module(zipper_tests).
+
+-include("exercism.hrl").
+-include_lib("eunit/include/eunit.hrl").
+
+-define(TESTED_MODULE, (sut(zipper))).
+
+%% Fixtures and helpers
+
+bt(V, L, R) -> ?TESTED_MODULE:new_tree(V, L, R).
+empty() -> ?TESTED_MODULE:empty().
+leaf(V) -> ?TESTED_MODULE:new_tree(V, empty(), empty()).
+
+
+t1() -> bt(1, bt(2, empty(), leaf(3)), leaf(4)).
+t2() -> bt(1, bt(5, empty(), leaf(3)), leaf(4)).
+t3() -> bt(1, bt(2, leaf(5), leaf(3)), leaf(4)).
+t4() -> bt(1, leaf(2),                 leaf(4)).
+t5() -> bt(1, bt(2, empty(), leaf(3)), bt(6, leaf(7), leaf(8))).
+t6() -> bt(1, bt(2, empty(), leaf(5)), leaf(4)).
+
+data_is_retained_test() ->
+    Exp = t1(),
+    ?assertMatch(Exp, ?TESTED_MODULE:to_tree(?TESTED_MODULE:from_tree(t1()))).
+
+left_right_and_value_test() ->
+    ?assertMatch(3, ?TESTED_MODULE:value(?TESTED_MODULE:right(?TESTED_MODULE:left(?TESTED_MODULE:from_tree(t1()))))).
+
+dead_end_test() ->
+    Exp = empty(),
+    ?assertMatch(Exp, ?TESTED_MODULE:left(?TESTED_MODULE:left(?TESTED_MODULE:from_tree(t1())))).
+
+tree_from_deep_focus_test() ->
+    Exp = t1(),
+    Zipper = ?TESTED_MODULE:right(?TESTED_MODULE:left(?TESTED_MODULE:from_tree(t1()))),
+    ?assertMatch(Exp, ?TESTED_MODULE:to_tree(Zipper)).
+
+traversing_up_from_top_test() ->
+    Exp = empty(),
+    ?assertMatch(Exp, ?TESTED_MODULE:up(?TESTED_MODULE:from_tree(t1()))).
+
+left_right_and_up_test() ->
+    Act0 = ?TESTED_MODULE:from_tree(t1()),
+    Act1 = ?TESTED_MODULE:left(Act0),
+    Act2 = ?TESTED_MODULE:up(Act1),
+    Act3 = ?TESTED_MODULE:right(Act2),
+    Act4 = ?TESTED_MODULE:up(Act3),
+    Act5 = ?TESTED_MODULE:left(Act4),
+    Act6 = ?TESTED_MODULE:right(Act5),
+    ?assertMatch(3, ?TESTED_MODULE:value(Act6)).
+
+set_value_test() ->
+    Exp  = t2(),
+    Act0 = ?TESTED_MODULE:from_tree(t1()),
+    Act1 = ?TESTED_MODULE:left(Act0),
+    Act2 = ?TESTED_MODULE:set_value(Act1, 5),
+    Act3 = ?TESTED_MODULE:to_tree(Act2),
+    ?assertMatch(Exp, Act3).
+
+set_value_after_traversiing_up_test() ->
+    Exp  = t2(),
+    Act0 = ?TESTED_MODULE:from_tree(t1()),
+    Act1 = ?TESTED_MODULE:left(Act0),
+    Act2 = ?TESTED_MODULE:right(Act1),
+    Act3 = ?TESTED_MODULE:up(Act2),
+    Act4 = ?TESTED_MODULE:set_value(Act3, 5),
+    Act5 = ?TESTED_MODULE:to_tree(Act4),
+    ?assertMatch(Exp, Act5).
+
+set_left_with_leaf_test() ->
+    Exp  = t3(),
+    Act0 = ?TESTED_MODULE:from_tree(t1()),
+    Act1 = ?TESTED_MODULE:left(Act0),
+    Act2 = ?TESTED_MODULE:set_left(Act1, leaf(5)),
+    Act3 = ?TESTED_MODULE:to_tree(Act2),
+    ?assertMatch(Exp, Act3).
+
+set_right_with_empty_test() ->
+    Exp  = t4(),
+    Act0 = ?TESTED_MODULE:from_tree(t1()),
+    Act1 = ?TESTED_MODULE:left(Act0),
+    Act2 = ?TESTED_MODULE:set_right(Act1, empty()),
+    Act3 = ?TESTED_MODULE:to_tree(Act2),
+    ?assertMatch(Exp, Act3).
+
+set_right_with_subtree_test() ->
+    Exp  = t5(),
+    Act0 = ?TESTED_MODULE:from_tree(t1()),
+    Act1 = ?TESTED_MODULE:set_right(Act0, bt(6, leaf(7), leaf(8))),
+    Act2 = ?TESTED_MODULE:to_tree(Act1),
+    ?assertMatch(Exp, Act2).
+
+set_value_from_deep_focus_test() ->
+    Exp  = t6(),
+    Act0 = ?TESTED_MODULE:from_tree(t1()),
+    Act1 = ?TESTED_MODULE:left(Act0),
+    Act2 = ?TESTED_MODULE:right(Act1),
+    Act3 = ?TESTED_MODULE:set_value(Act2, 5),
+    Act4 = ?TESTED_MODULE:to_tree(Act3),
+    ?assertMatch(Exp, Act4).

data/tracks/go/config.json

@@ -106,14 +106,24 @@
       ]
     },
     {
-      "difficulty": 1,
+      "difficulty": 3,
       "slug": "triangle",
-      "topics": []
+      "topics": [
+        "Control-flow (conditionals)",
+        "Booleans",
+        "Logic"
+      ]
     },
     {
-      "difficulty": 1,
+      "difficulty": 4,
       "slug": "twelve-days",
-      "topics": []
+      "topics": [
+        "Strings",
+        "Sequences",
+        "Algorithms",
+        "Pattern recognition",
+        "Text formatting"
+      ]
     },
     {
       "difficulty": 1,

data/tracks/go/exercises/acronym/acronym_test.go

@@ -22,7 +22,7 @@ var stringTestCases = []testCase{
 
 func TestTestVersion(t *testing.T) {
 	if testVersion != targetTestVersion {
-		t.Errorf("Found testVersion = %v, want %v.", testVersion, targetTestVersion)
+		t.Fatalf("Found testVersion = %v, want %v.", testVersion, targetTestVersion)
 	}
 }
 

data/tracks/go/exercises/all-your-base/all_your_base_test.go

@@ -2,6 +2,8 @@ package allyourbase
 
 import "testing"
 
+const targetTestVersion = 1
+
 // Note: ConvertToBase should accept leading zeroes in its input,
 // but never emit leading zeroes in its output.
 // Exception: If the value of the output is zero, represent it with a single zero.
@@ -154,6 +156,12 @@ func digitsEqual(a, b []uint64) bool {
 	return true
 }
 
+func TestTestVersion(t *testing.T) {
+	if testVersion != targetTestVersion {
+		t.Fatalf("Found testVersion = %v, want %v.", testVersion, targetTestVersion)
+	}
+}
+
 func TestConvertToBase(t *testing.T) {
 	for _, c := range testCases {
 		output, err := ConvertToBase(c.inputBase, c.inputDigits, c.outputBase)
@@ -175,11 +183,3 @@ func TestConvertToBase(t *testing.T) {
 		}
 	}
 }
-
-const targetTestVersion = 1
-
-func TestTestVersion(t *testing.T) {
-	if testVersion != targetTestVersion {
-		t.Errorf("Found testVersion = %v, want %v.", testVersion, targetTestVersion)
-	}
-}

data/tracks/go/exercises/luhn/luhn_test.go

@@ -17,6 +17,12 @@ var testCases = []struct {
 	{"827a 1232 7352 0569", "strings that contain non-digits are not valid", false},
 }
 
+func TestTestVersion(t *testing.T) {
+	if testVersion != targetTestVersion {
+		t.Errorf("Found testVersion = %v, want %v", testVersion, targetTestVersion)
+	}
+}
+
 func TestValid(t *testing.T) {
 	for _, test := range testCases {
 		if ok := Valid(test.input); ok != test.ok {
@@ -30,9 +36,3 @@ func BenchmarkValid(b *testing.B) {
 		Valid("2323 2005 7766 3554")
 	}
 }
-
-func TestTestVersion(t *testing.T) {
-	if testVersion != targetTestVersion {
-		t.Errorf("Found testVersion = %v, want %v", testVersion, targetTestVersion)
-	}
-}

data/tracks/go/exercises/word-search/word_search_test.go

@@ -45,10 +45,13 @@ var positions = map[string][2][2]int{
 	"scheme":     {{0, 6}, {5, 6}},
 }
 
-func TestSolve(t *testing.T) {
+func TestTestVersion(t *testing.T) {
 	if testVersion != targetTestVersion {
 		t.Fatalf("Found testVersion = %v, want %v", testVersion, targetTestVersion)
 	}
+}
+
+func TestSolve(t *testing.T) {
 	actual, err := Solve(words, puzzle)
 	if err != nil {
 		var _ error = err

data/tracks/go/exercises/wordy/example.go

@@ -5,6 +5,8 @@ import (
 	"strings"
 )
 
+const testVersion = 1
+
 func Answer(q string) (a int, ok bool) {
 	w := strings.Fields(q)
 	if len(w) < 3 { // length check for first two words and last word

data/tracks/go/exercises/wordy/wordy_test.go

@@ -2,6 +2,8 @@ package wordy
 
 import "testing"
 
+const targetTestVersion = 1
+
 var tests = []struct {
 	q  string
 	a  int
@@ -25,6 +27,12 @@ var tests = []struct {
 	{"Who is the president of the United States?", 0, false},
 }
 
+func TestTestVersion(t *testing.T) {
+	if testVersion != targetTestVersion {
+		t.Fatalf("Found testVersion = %v, want %v", testVersion, targetTestVersion)
+	}
+}
+
 func TestAnswer(t *testing.T) {
 	for _, test := range tests {
 		switch a, ok := Answer(test.q); {

data/tracks/haskell/.travis.yml

@@ -39,64 +39,10 @@ script:
 
     # Explicit set exercises' resolver only if it's not the current one.
     if [ "${CURRENT}" != "YES" ]; then
-        SET_RESOLVER="--resolver ${RESOLVER}"
+        export SET_RESOLVER="--resolver ${RESOLVER}"
     fi
 
-    test_exercise () {
-        stack test ${SET_RESOLVER} `# Select the correct resolver. `\
-                   --install-ghc   `# Download GHC if not in cache.`\
-                   --no-terminal   `# Terminal detection is broken.`\
-                   --pedantic      `# Enable -Wall and -Werror.    `
-    }
-
     for exercise in ${TRAVIS_BUILD_DIR}/exercises/*/ ; do
-        exercisename=$(basename "$exercise")
-        pushd ${exercise}
-
-        examplename="stub"
-        buildfolder="${TRAVIS_BUILD_DIR}/build/${exercisename}/${examplename}"
-        mkdir -p "${buildfolder}"
-        cp -rL stack.yaml package.yaml src test "${buildfolder}"
-
-        pushd $buildfolder
-
-        examplecache="${HOME}/.foldercache/${exercisename}/${examplename}/.stack-work"
-        mkdir -p "$examplecache"
-        ln -f -s "$examplecache"
-
-        if [ -f "${exercise}/.meta/DONT-TEST-STUB" ]; then
-            echo "only building stub"
-            stack build ${SET_RESOLVER} --install-ghc --no-terminal
-        else
-            echo "testing stub"
-            stack test ${SET_RESOLVER} --install-ghc --no-terminal --no-run-tests
-        fi
-
-        popd
-
-        if ! stat -t examples/*/ > /dev/null 2>&1; then
-            echo "No examples for ${exercise}!"
-            exit 1
-        else
-            for example in examples/*/ ; do
-                examplename=$(basename "$example")
-
-                buildfolder="${TRAVIS_BUILD_DIR}/build/${exercisename}/${examplename}"
-                mkdir -p "${buildfolder}"
-                cp -rL stack.yaml test ${example}/* "${buildfolder}"
-
-                pushd $buildfolder
-
-                examplecache="${HOME}/.foldercache/${exercisename}/${examplename}/.stack-work"
-                mkdir -p "$examplecache"
-                ln -f -s "$examplecache"
-
-                echo "testing ${example}"
-                test_exercise
-
-                popd
-            done
-        fi
-
-        popd
+        bin/test-stub $exercise
+        bin/test-all-examples $exercise
     done

data/tracks/haskell/README.md

@@ -127,6 +127,14 @@ The first condition is always enforced and cannot be circumvented.
 ### Example solution
 The example solution could be inspiration for other language implementors. It doesn't need to be perfect or very elegant. But it should be efficient enough for the test suite to finish in only a few seconds.
 
+Examples are named `<type>-<name>`.
+There are three possible types of examples:
+
+* success: The example is expected to pass the tests.
+  There should be at least one of these per exercise.
+* fail: The example is expected to build, but fail the tests.
+* error: The example is expected to fail to build.
+
 ### Test suite
 The test suite should be derived from the respective `x-common/exercises/<exercise-name>/canonical-data.json` and comply to some formatting and coding standards (to get an idea you may look at some of the existing tests).
 
@@ -138,17 +146,12 @@ a few seconds.
 
 First you need to provide an [example solution](#example-solution).
 
-Running `stack test --pedantic` compiles and runs the tests with
-`-Wall -Werror`, but unfortunately it doesn't recompile unchanged
-source code already compiled with warnings.
-
-To be really sure that everything compiles correctly without
-warnings, your must first run `stack clean`.
+We provide three scripts in the `bin` directory of this repository to run the tests.
+These are the same scripts as those used by Travis CI.
 
-```bash
-stack clean
-stack test --pedantic
-```
+* `test-example path/to/example/dir` runs the tests on a single example.
+* `test-all-examples path/to/exercise/dir` runs the tests on all examples for an exercise.
+* `test-stub path/to/exercise/dir` checks that the stub for the given exercise compiles.
 
 ### Running HLint
 All code in this repository should be as idiomatic as possible, so we

data/tracks/haskell/bin/test-all-examples

@@ -0,0 +1,20 @@
+#!/bin/sh
+
+set -e
+
+if [ $# -eq 0 ]; then
+    echo "usage: $0 /path/to/exercise"
+    exit 1
+fi
+
+exercisedir=$1
+
+if ! stat -t ${exercisedir}/examples/*/ > /dev/null 2>&1; then
+    echo "No examples for ${exercisedir}!"
+    exit 1
+else
+    mydir=$(dirname $0)
+    for example in ${exercisedir}/examples/*/ ; do
+        $mydir/test-example $example
+    done
+fi

data/tracks/haskell/bin/test-example

@@ -0,0 +1,73 @@
+#!/bin/sh
+
+if [ $# -eq 0 ]; then
+    echo "usage: $0 /path/to/exercise/example"
+    exit 1
+fi
+
+exampledir=$(cd "$1" && pwd)
+
+examplename=$(basename "$exampledir")
+exercisedir=$(cd "$exampledir/../.." && pwd)
+exercisename=$(basename "$exercisedir")
+xhaskell=$(cd "$(dirname "$0")/.." && pwd)
+
+# We would ideally use a tmpdir here,
+# but stack will invalidate its cache if the path changes,
+# so the best alternative seems to be to put it in xhaskell.
+buildfolder="${xhaskell}/build/${exercisename}/${examplename}"
+mkdir -p "${buildfolder}"
+cleanup() {
+    rm -r "${xhaskell}/build"
+}
+trap cleanup EXIT INT TERM
+
+cp -R -L ${exercisedir}/stack.yaml ${exercisedir}/test ${exampledir}/* "${buildfolder}"
+
+cd $buildfolder
+
+if [ -n "$TRAVIS" ]; then
+    cachedir="$HOME"
+else
+    cachedir="$xhaskell"
+fi
+examplecache="${cachedir}/.foldercache/${exercisename}/${examplename}/.stack-work"
+mkdir -p "$examplecache"
+ln -f -s "$examplecache"
+
+exampletype=$(echo "$examplename" | cut -d- -f1)
+
+runstack () {
+    # SET_RESOLVER passed by .travis.yml - sets --resolver if not current.
+    stack "$@" ${SET_RESOLVER} `# Select the correct resolver. `\
+               --install-ghc   `# Download GHC if not in cache.`\
+               --no-terminal   `# Terminal detection is broken.`\
+               --pedantic      `# Enable -Wall and -Werror.    `
+}
+
+if [ "$exampletype" = "success" ]; then
+    echo "testing ${exampledir} - should succeed"
+    # Implicit exit value: this is last thing in this path,
+    # so the script's exit value = stack's exit value.
+    # If statements are reordered, please preserve this property.
+    runstack "test"
+elif [ "$exampletype" = "fail" ]; then
+    echo "testing ${exampledir} - should build, but fail tests"
+    if ! runstack "build"; then
+        echo "${exampledir} build failed unexpectedly"
+        exit 1
+    fi
+    if runstack "test"; then
+        echo "${exampledir} test succeeded unexpectedly"
+        exit 1
+    fi
+elif [ "$exampletype" = "error" ]; then
+    echo "testing ${exampledir} - should fail to build"
+    if runstack "test" "--no-run-tests"; then
+        echo "${exampledir} build succeeded unexpectedly"
+        exit 1
+    fi
+else
+    echo "unknown example type: ${exampledir}"
+    exit 1
+fi

data/tracks/haskell/bin/test-stub

@@ -0,0 +1,43 @@
+#!/bin/sh
+
+if [ $# -eq 0 ]; then
+    echo "usage: $0 /path/to/exercise"
+    exit 1
+fi
+
+exercisedir=$(cd "$1" && pwd)
+exercisename=$(basename "$exercisedir")
+examplename="stub"
+xhaskell=$(cd "$(dirname "$0")/.." && pwd)
+
+# We would ideally use a tmpdir here,
+# but stack will invalidate its cache if the path changes,
+# so the best alternative seems to be to put it in xhaskell.
+buildfolder="${xhaskell}/build/${exercisename}/${examplename}"
+mkdir -p "${buildfolder}"
+cleanup() {
+    rm -r "${xhaskell}/build"
+}
+trap cleanup EXIT INT TERM
+
+cp -R -L ${exercisedir}/stack.yaml ${exercisedir}/package.yaml ${exercisedir}/src ${exercisedir}/test "${buildfolder}"
+
+cd $buildfolder
+
+if [ -n "$TRAVIS" ]; then
+    cachedir="$HOME"
+else
+    cachedir="$xhaskell"
+fi
+examplecache="${cachedir}/.foldercache/${exercisename}/${examplename}/.stack-work"
+mkdir -p "$examplecache"
+ln -f -s "$examplecache"
+
+# SET_RESOLVER passed by .travis.yml - sets --resolver if not current.
+if [ -f "${exercisedir}/.meta/DONT-TEST-STUB" ]; then
+    echo "only building stub"
+    stack build ${SET_RESOLVER} --install-ghc --no-terminal
+else
+    echo "testing stub"
+    stack test ${SET_RESOLVER} --install-ghc --no-terminal --no-run-tests
+fi