Alternative tests scripts based on a package

Author: mpizenberg

core-tests/.gitignore

@@ -0,0 +1 @@
+.elm

core-tests/elm.json

@@ -0,0 +1,18 @@
+{
+    "type": "package",
+    "name": "elm/core-tests",
+    "summary": "Elm's standard libraries",
+    "license": "BSD-3-Clause",
+    "version": "1.0.5",
+    "elm-version": "0.19.0 <= v < 0.20.0",
+    "exposed-modules": [
+        "EmptyPlaceholderModule"
+    ],
+    "dependencies": {
+        "elm/core": "1.0.0 <= v < 2.0.0"
+    },
+    "test-dependencies": {
+        "elm/json": "1.1.3 <= v < 2.0.0",
+        "elm-explorations/test": "1.2.2 <= v < 2.0.0"
+    }
+}

core-tests/run-tests.sh

@@ -0,0 +1,38 @@
+#!/usr/bin/env bash
+
+set -o errexit;
+set -o nounset;
+
+# Let the caller supply an ELM_TEST binary if desired.
+if [ -z "${ELM_TEST:-}" ]; then
+    ELM_TEST=elm-test;
+fi
+
+# Since elm/core is treated specially by the compiler (it's always
+# inserted as a dependency even when not declared explicitly), we use
+# a bit of a hack to make the tests run against the local source code
+# rather than the elm/core source fetched from package.elm-lang.org.
+
+# Create a local directory where the compiler will look for the
+# elm/core source code:
+
+export ELM_HOME="$PWD/.elm";
+rm -rf "$ELM_HOME" && mkdir -p "$ELM_HOME";
+rm -rf elm-stuff;
+
+# Create a link to the git package
+CORE_LINK="${ELM_HOME}/0.19.1/packages/elm/core/1.0.5"
+CORE_GIT_DIR="$(dirname $PWD)"
+echo;
+echo "Linking $CORE_LINK to $CORE_GIT_DIR"
+echo;
+mkdir -p "$(dirname $CORE_LINK)"
+ln -sv "${CORE_LINK}" "${CORE_GIT_DIR}"
+rm -vf "${CORE_GIT_DIR}"/*.dat "${CORE_GIT_DIR}"/doc*.json
+
+# Now we can run the tests against the symlinked source code for real.
+echo;
+echo "running tests ...";
+echo;
+
+"${ELM_TEST}" "$@";

tests/tests/Main.elm renamed to core-tests/tests/Main.elm

@@ -1,20 +1,15 @@
-module Main exposing (..)
+module Main exposing (tests)
 
-import Basics exposing (..)
-import Task exposing (..)
-import Test exposing (..)
-import Platform.Cmd exposing (Cmd)
-import Json.Decode exposing (Value)
-import Test.Runner.Node exposing (run, TestProgram)
+import Test exposing (Test)
 import Test.Array as Array
 import Test.Basics as Basics
 import Test.Bitwise as Bitwise
 import Test.Char as Char
 import Test.CodeGen as CodeGen
 import Test.Dict as Dict
-import Test.Maybe as Maybe
 import Test.Equality as Equality
 import Test.List as List
+import Test.Maybe as Maybe
 import Test.Result as Result
 import Test.Set as Set
 import Test.String as String
@@ -23,7 +18,7 @@ import Test.Tuple as Tuple
 
 tests : Test
 tests =
-    describe "Elm Standard Library Tests"
+    Test.describe "Elm Standard Library Tests"
         [ Array.tests
         , Basics.tests
         , Bitwise.tests