elm-pages 3.0.0-beta.13 → 3.0.0-beta.14

package/generator/dead-code-review/node_modules/elm-test/elm/src/Test/Runner/Node.elm

@@ -1,440 +0,0 @@
-port module Test.Runner.Node exposing (check, run, TestProgram)
-
-{-|
-
-
-# Node Runner
-
-Runs a test and outputs its results to the console. Exit code is 0 if tests
-passed and 2 if any failed. Returns 1 if something went wrong.
-
-@docs check, run, TestProgram
-
--}
-
-import Dict exposing (Dict)
-import Json.Decode as Decode
-import Json.Encode as Encode
-import Platform
-import Random
-import Task
-import Test exposing (Test)
-import Test.Reporter.Reporter exposing (Report, RunInfo, TestReporter, createReporter)
-import Test.Reporter.TestResults exposing (Outcome, TestResult, isFailure, outcomesFromExpectations)
-import Test.Runner exposing (Runner, SeededRunners(..))
-import Test.Runner.JsMessage as JsMessage exposing (JsMessage(..))
-import Time exposing (Posix)
-
-
-
--- TYPES
-
-
-type alias TestId =
-    Int
-
-
-type alias InitArgs =
-    { initialSeed : Int
-    , processes : Int
-    , globs : List String
-    , paths : List String
-    , fuzzRuns : Int
-    , runners : SeededRunners
-    , report : Report
-    }
-
-
-type alias RunnerOptions =
-    { seed : Int
-    , runs : Int
-    , report : Report
-    , globs : List String
-    , paths : List String
-    , processes : Int
-    }
-
-
-type alias Model =
-    { available : Dict TestId Runner
-    , runInfo : RunInfo
-    , testReporter : TestReporter
-    , results : List ( TestId, TestResult )
-    , processes : Int
-    , nextTestToRun : TestId
-    , autoFail : Maybe String
-    }
-
-
-{-| A program which will run tests and report their results.
--}
-type alias TestProgram =
-    Platform.Program Int Model Msg
-
-
-type Msg
-    = Receive Decode.Value
-    | Dispatch Posix
-    | Complete (List String) (List Outcome) Posix Posix
-
-
-{-| The port names are prefixed to reduce the likelihood of the project
-having a port with the same name, which is a compile error.
--}
-port elmTestPort__send : String -> Cmd msg
-
-
-port elmTestPort__receive : (Decode.Value -> msg) -> Sub msg
-
-
-dispatch : Model -> Posix -> Cmd Msg
-dispatch model startTime =
-    case Dict.get model.nextTestToRun model.available of
-        Nothing ->
-            -- We're finished! Nothing left to run.
-            sendResults True model.testReporter model.results
-
-        Just config ->
-            let
-                outcomes =
-                    outcomesFromExpectations (config.run ())
-            in
-            Time.now
-                |> Task.perform (Complete config.labels outcomes startTime)
-
-
-update : Msg -> Model -> ( Model, Cmd Msg )
-update msg ({ testReporter } as model) =
-    case msg of
-        Receive val ->
-            case Decode.decodeValue JsMessage.decoder val of
-                Ok (Summary duration failed todos) ->
-                    let
-                        testCount =
-                            model.runInfo.testCount
-
-                        summaryInfo =
-                            { testCount = testCount
-                            , passed = testCount - failed - List.length todos
-                            , failed = failed
-                            , todos = todos
-                            , duration = duration
-                            }
-
-                        summary =
-                            testReporter.reportSummary summaryInfo model.autoFail
-
-                        exitCode =
-                            if failed > 0 then
-                                2
-
-                            else if model.autoFail == Nothing && List.isEmpty todos then
-                                0
-
-                            else
-                                3
-
-                        cmd =
-                            Encode.object
-                                [ ( "type", Encode.string "SUMMARY" )
-                                , ( "exitCode", Encode.int exitCode )
-                                , ( "message", summary )
-                                ]
-                                |> Encode.encode 0
-                                |> elmTestPort__send
-                    in
-                    ( model, cmd )
-
-                Ok (Test index) ->
-                    let
-                        cmd =
-                            Task.perform Dispatch Time.now
-                    in
-                    if index == -1 then
-                        ( { model | nextTestToRun = index + model.processes }
-                        , Cmd.batch [ cmd, sendBegin model ]
-                        )
-
-                    else
-                        ( { model | nextTestToRun = index }, cmd )
-
-                Err err ->
-                    let
-                        cmd =
-                            Encode.object
-                                [ ( "type", Encode.string "ERROR" )
-                                , ( "message", Encode.string (Decode.errorToString err) )
-                                ]
-                                |> Encode.encode 0
-                                |> elmTestPort__send
-                    in
-                    ( model, cmd )
-
-        Dispatch startTime ->
-            ( model, dispatch model startTime )
-
-        Complete labels outcomes startTime endTime ->
-            let
-                duration =
-                    Time.posixToMillis endTime - Time.posixToMillis startTime
-
-                prependOutcome outcome rest =
-                    ( model.nextTestToRun
-                    , { labels = labels, outcome = outcome, duration = duration }
-                    )
-                        :: rest
-
-                results =
-                    List.foldl prependOutcome model.results outcomes
-
-                nextTestToRun =
-                    model.nextTestToRun + model.processes
-
-                isFinished =
-                    nextTestToRun >= model.runInfo.testCount
-            in
-            if isFinished || List.any isFailure outcomes then
-                let
-                    cmd =
-                        sendResults isFinished testReporter results
-                in
-                if isFinished then
-                    -- Don't bother updating the model, since we're done
-                    ( model, cmd )
-
-                else
-                    -- Clear out the results, now that we've flushed them.
-                    ( { model | nextTestToRun = nextTestToRun, results = [] }
-                    , Cmd.batch
-                        [ cmd
-                        , Task.perform Dispatch Time.now
-                        ]
-                    )
-
-            else
-                ( { model | nextTestToRun = nextTestToRun, results = results }
-                , Task.perform Dispatch Time.now
-                )
-
-
-sendResults : Bool -> TestReporter -> List ( TestId, TestResult ) -> Cmd msg
-sendResults isFinished testReporter results =
-    let
-        typeStr =
-            if isFinished then
-                "FINISHED"
-
-            else
-                "RESULTS"
-
-        addToKeyValues ( testId, result ) list =
-            -- These are coming in in reverse order. Doing a foldl with ::
-            -- means we reverse the list again, while also doing the conversion!
-            ( String.fromInt testId, testReporter.reportComplete result ) :: list
-    in
-    Encode.object
-        [ ( "type", Encode.string typeStr )
-        , ( "results"
-          , results
-                |> List.foldl addToKeyValues []
-                |> Encode.object
-          )
-        ]
-        |> Encode.encode 0
-        |> elmTestPort__send
-
-
-sendBegin : Model -> Cmd msg
-sendBegin model =
-    let
-        baseFields =
-            [ ( "type", Encode.string "BEGIN" )
-            , ( "testCount", Encode.int model.runInfo.testCount )
-            ]
-
-        extraFields =
-            case model.testReporter.reportBegin model.runInfo of
-                Just report ->
-                    [ ( "message", report ) ]
-
-                Nothing ->
-                    []
-    in
-    Encode.object (baseFields ++ extraFields)
-        |> Encode.encode 0
-        |> elmTestPort__send
-
-
-init : InitArgs -> Int -> ( Model, Cmd Msg )
-init { processes, globs, paths, fuzzRuns, initialSeed, report, runners } _ =
-    let
-        { indexedRunners, autoFail } =
-            case runners of
-                Plain runnerList ->
-                    { indexedRunners = List.indexedMap (\a b -> ( a, b )) runnerList
-                    , autoFail = Nothing
-                    }
-
-                Only runnerList ->
-                    { indexedRunners = List.indexedMap (\a b -> ( a, b )) runnerList
-                    , autoFail = Just "Test.only was used"
-                    }
-
-                Skipping runnerList ->
-                    { indexedRunners = List.indexedMap (\a b -> ( a, b )) runnerList
-                    , autoFail = Just "Test.skip was used"
-                    }
-
-                Invalid str ->
-                    { indexedRunners = []
-                    , autoFail = Just str
-                    }
-
-        testCount =
-            List.length indexedRunners
-
-        testReporter =
-            createReporter report
-
-        model =
-            { available = Dict.fromList indexedRunners
-            , runInfo =
-                { testCount = testCount
-                , globs = globs
-                , paths = paths
-                , fuzzRuns = fuzzRuns
-                , initialSeed = initialSeed
-                }
-            , processes = processes
-            , nextTestToRun = 0
-            , results = []
-            , testReporter = testReporter
-            , autoFail = autoFail
-            }
-    in
-    ( model, Cmd.none )
-
-
-failInit : String -> Report -> Int -> ( Model, Cmd Msg )
-failInit message report _ =
-    let
-        model =
-            { available = Dict.empty
-            , runInfo =
-                { testCount = 0
-                , globs = []
-                , paths = []
-                , fuzzRuns = 0
-                , initialSeed = 0
-                }
-            , processes = 0
-            , nextTestToRun = 0
-            , results = []
-            , testReporter = createReporter report
-            , autoFail = Nothing
-            }
-
-        cmd =
-            Encode.object
-                [ ( "type", Encode.string "SUMMARY" )
-                , ( "exitCode", Encode.int 1 )
-                , ( "message", Encode.string message )
-                ]
-                |> Encode.encode 0
-                |> elmTestPort__send
-    in
-    ( model, cmd )
-
-
-{-| The implementation of this function will be replaced in the generated JS
-with a version that returns `Just value` if `value` is a `Test`, otherwise `Nothing`.
-
-If you rename or change this function you also need to update the regex that looks for it.
-
--}
-check : a -> Maybe Test
-check =
-    checkHelperReplaceMe___
-
-
-checkHelperReplaceMe___ : a -> b
-checkHelperReplaceMe___ _ =
-    Debug.todo "The regex for replacing this Debug.todo with some real code must have failed since you see this message!\n\nPlease report this bug: https://github.com/rtfeldman/node-test-runner/issues/new\n"
-
-
-{-| Run the tests.
--}
-run : RunnerOptions -> List ( String, List (Maybe Test) ) -> Program Int Model Msg
-run { runs, seed, report, globs, paths, processes } possiblyTests =
-    let
-        tests =
-            possiblyTests
-                |> List.filterMap
-                    (\( moduleName, maybeModuleTests ) ->
-                        let
-                            moduleTests =
-                                List.filterMap identity maybeModuleTests
-                        in
-                        if List.isEmpty moduleTests then
-                            Nothing
-
-                        else
-                            Just (Test.describe moduleName moduleTests)
-                    )
-    in
-    if List.isEmpty tests then
-        Platform.worker
-            { init = failInit (noTestsFoundError globs) report
-            , update = \_ model -> ( model, Cmd.none )
-            , subscriptions = \_ -> Sub.none
-            }
-
-    else
-        let
-            runners =
-                Test.Runner.fromTest runs (Random.initialSeed seed) (Test.concat tests)
-
-            wrappedInit =
-                init
-                    { initialSeed = seed
-                    , processes = processes
-                    , globs = globs
-                    , paths = paths
-                    , fuzzRuns = runs
-                    , runners = runners
-                    , report = report
-                    }
-        in
-        Platform.worker
-            { init = wrappedInit
-            , update = update
-            , subscriptions = \_ -> elmTestPort__receive Receive
-            }
-
-
-noTestsFoundError : List String -> String
-noTestsFoundError globs =
-    if List.isEmpty globs then
-        """
-No exposed values of type Test found in the tests/ directory.
-
-Are there tests in any .elm file in the tests/ directory?
-If not – add some!
-If there are – are they exposed?
-        """
-            |> String.trim
-
-    else
-        """
-No exposed values of type Test found in files matching:
-
-%globs
-
-Are the above patterns correct? Maybe try running elm-test with no arguments?
-
-Are there tests in any of the matched files?
-If not – add some!
-If there are – are they exposed?
-        """
-            |> String.trim
-            |> String.replace "%globs" (String.join "\n" globs)

package/generator/dead-code-review/node_modules/elm-test/lib/Compile.js

@@ -1,110 +0,0 @@
-//@flow
-
-const { supportsColor } = require('chalk');
-const spawn = require('cross-spawn');
-const ElmCompiler = require('./ElmCompiler');
-const Report = require('./Report');
-
-function compile(
-  cwd /*: string */,
-  testFile /*: string */,
-  dest /*: string */,
-  pathToElmBinary /*: string */,
-  report /*: typeof Report.Report */
-) /*: Promise<void> */ {
-  return new Promise((resolve, reject) => {
-    const compileProcess = ElmCompiler.compile([testFile], {
-      output: dest,
-      spawn: spawnCompiler({ ignoreStdout: true, cwd }),
-      pathToElm: pathToElmBinary,
-      processOpts: processOptsForReporter(report),
-    });
-
-    compileProcess.on('close', function (exitCode) {
-      if (exitCode !== 0) {
-        reject(new Error(`\`elm make\` failed with exit code ${exitCode}.`));
-      } else {
-        resolve();
-      }
-    });
-  });
-}
-
-function compileSources(
-  testFilePaths /*: Array<string> */,
-  projectRootDir /*: string */,
-  pathToElmBinary /*: string */,
-  report /*: typeof Report.Report */
-) /*: Promise<void> */ {
-  return new Promise((resolve, reject) => {
-    const compilerReport = report === 'json' ? report : undefined;
-
-    const compileProcess = ElmCompiler.compile(testFilePaths, {
-      output: '/dev/null',
-      cwd: projectRootDir,
-      spawn: spawnCompiler({ ignoreStdout: false, cwd: projectRootDir }),
-      pathToElm: pathToElmBinary,
-      report: compilerReport,
-      processOpts: processOptsForReporter(report),
-    });
-
-    compileProcess.on('close', function (exitCode) {
-      if (exitCode === 0) {
-        resolve();
-      } else {
-        reject(new Error(`\`elm make\` failed with exit code ${exitCode}.`));
-      }
-    });
-  });
-}
-
-function spawnCompiler({ ignoreStdout, cwd }) {
-  return (
-    pathToElm /*: string */,
-    processArgs /*: Array<string> */,
-    processOpts /*: child_process$spawnOpts */
-  ) => {
-    // It might seem useless to specify 'pipe' and then just write all data to
-    // `process.stdout`/`process.stderr`, but it does make a difference: The Elm
-    // compiler turns off colors when it’s used in a pipe. In summary:
-    //
-    // 'inherit' -> Colors, automatically written to stdout/stderr
-    // 'pipe' -> No colors, we need to explicitly write to stdout/stderr
-    const stdout = ignoreStdout ? 'ignore' : supportsColor ? 'inherit' : 'pipe';
-    const stderr = supportsColor ? 'inherit' : 'pipe';
-
-    const finalOpts = {
-      env: process.env,
-      ...processOpts,
-      cwd,
-      stdio: ['inherit', stdout, stderr],
-    };
-
-    const child = spawn(pathToElm, processArgs, finalOpts);
-
-    if (stdout === 'pipe') {
-      child.stdout.on('data', (data) => process.stdout.write(data));
-    }
-
-    if (stderr === 'pipe') {
-      child.stderr.on('data', (data) => process.stderr.write(data));
-    }
-
-    return child;
-  };
-}
-
-function processOptsForReporter(
-  report /*: typeof Report.Report */
-) /*: child_process$spawnOpts */ {
-  if (Report.isMachineReadable(report)) {
-    return { env: process.env, stdio: ['ignore', 'ignore', process.stderr] };
-  } else {
-    return { env: process.env };
-  }
-}
-
-module.exports = {
-  compile,
-  compileSources,
-};