From ef67ff35371b51d3a03b363b0b8931e44fa2d2dc Mon Sep 17 00:00:00 2001 From: Richard Feldman Date: Fri, 2 Sep 2016 22:38:46 -0700 Subject: [PATCH] Remove tests --- part10/tests/Auth.elm | 7 ---- part10/tests/HtmlRunner.elm | 16 --------- part10/tests/Main.elm | 18 ---------- part10/tests/Tests.elm | 64 ----------------------------------- part10/tests/elm-package.json | 21 ------------ part11/tests/Auth.elm | 7 ---- part11/tests/HtmlRunner.elm | 16 --------- part11/tests/Main.elm | 18 ---------- part11/tests/Tests.elm | 64 ----------------------------------- part11/tests/elm-package.json | 21 ------------ 10 files changed, 252 deletions(-) delete mode 100644 part10/tests/Auth.elm delete mode 100644 part10/tests/HtmlRunner.elm delete mode 100644 part10/tests/Main.elm delete mode 100644 part10/tests/Tests.elm delete mode 100644 part10/tests/elm-package.json delete mode 100644 part11/tests/Auth.elm delete mode 100644 part11/tests/HtmlRunner.elm delete mode 100644 part11/tests/Main.elm delete mode 100644 part11/tests/Tests.elm delete mode 100644 part11/tests/elm-package.json diff --git a/part10/tests/Auth.elm b/part10/tests/Auth.elm deleted file mode 100644 index c59f16a..0000000 --- a/part10/tests/Auth.elm +++ /dev/null @@ -1,7 +0,0 @@ -module Auth exposing (token) - - -token : String -token = - -- Tests don't need a real token. - "" diff --git a/part10/tests/HtmlRunner.elm b/part10/tests/HtmlRunner.elm deleted file mode 100644 index 24ba2cb..0000000 --- a/part10/tests/HtmlRunner.elm +++ /dev/null @@ -1,16 +0,0 @@ -module HtmlRunner exposing (..) - -import Tests -import Test.Runner.Html as Runner - - --- To run this: --- --- cd into part8/test --- elm-reactor --- navigate to HtmlRunner.elm - - -main : Program Never -main = - Runner.run Tests.all diff --git a/part10/tests/Main.elm b/part10/tests/Main.elm deleted file mode 100644 index 80906ca..0000000 --- a/part10/tests/Main.elm +++ /dev/null @@ -1,18 +0,0 @@ -port module Main exposing (..) - -import Tests -import Test.Runner.Node as Runner -import Json.Decode exposing (Value) - - --- To run this: --- --- elm-test - - -main : Program Value -main = - Runner.run emit Tests.all - - -port emit : ( String, Value ) -> Cmd msg diff --git a/part10/tests/Tests.elm b/part10/tests/Tests.elm deleted file mode 100644 index 1dedfc6..0000000 --- a/part10/tests/Tests.elm +++ /dev/null @@ -1,64 +0,0 @@ -module Tests exposing (..) - -import Test exposing (..) -import Fuzz exposing (..) -import Expect exposing (Expectation) -import ElmHub exposing (responseDecoder) -import Json.Decode exposing (decodeString, Value) -import String - - -all : Test -all = - describe "GitHub Response Decoder" - [ test "it results in an Err for invalid JSON" <| - \() -> - let - json = - """{ "pizza": [] }""" - - isErrorResult result = - case result of - Err _ -> - True - - Ok _ -> - False - in - json - |> decodeString responseDecoder - |> isErrorResult - |> Expect.true "Expected decoding an invalid response to return an Err." - , test "it successfully decodes a valid response" <| - \() -> - """{ "items": [ - { "id": 5, "full_name": "foo", "stargazers_count": 42 }, - { "id": 3, "full_name": "bar", "stargazers_count": 77 } - ] }""" - |> decodeString responseDecoder - |> Expect.equal - (Ok - [ { id = 5, name = "foo", stars = 42 } - , { id = 3, name = "bar", stars = 77 } - ] - ) - , fuzz (list int) "it decodes one SearchResult for each 'item' in the JSON" <| - \ids -> - let - jsonFromId id = - """{"id": """ ++ toString id ++ """, "full_name": "foo", "stargazers_count": 42}""" - - jsonItems = - String.join ", " (List.map jsonFromId ids) - - json = - """{ "items": [""" ++ jsonItems ++ """] }""" - in - case decodeString responseDecoder json of - Ok results -> - List.length results - |> Expect.equal (List.length ids) - - Err err -> - Expect.fail ("JSON decoding failed unexpectedly: " ++ err) - ] diff --git a/part10/tests/elm-package.json b/part10/tests/elm-package.json deleted file mode 100644 index 460cf01..0000000 --- a/part10/tests/elm-package.json +++ /dev/null @@ -1,21 +0,0 @@ -{ - "version": "1.0.0", - "summary": "Like GitHub, but for Elm stuff.", - "repository": "https://github.com/rtfeldman/elm-workshop.git", - "license": "BSD-3-Clause", - "source-directories": [ - ".", - ".." - ], - "exposed-modules": [], - "dependencies": { - "NoRedInk/elm-decode-pipeline": "1.1.2 <= v < 2.0.0", - "elm-community/elm-test": "2.0.1 <= v < 3.0.0", - "elm-lang/core": "4.0.1 <= v < 5.0.0", - "elm-lang/html": "1.0.0 <= v < 2.0.0", - "evancz/elm-http": "3.0.1 <= v < 4.0.0", - "rtfeldman/html-test-runner": "1.0.0 <= v < 2.0.0", - "rtfeldman/node-test-runner": "2.0.0 <= v < 3.0.0" - }, - "elm-version": "0.17.0 <= v < 0.18.0" -} diff --git a/part11/tests/Auth.elm b/part11/tests/Auth.elm deleted file mode 100644 index c59f16a..0000000 --- a/part11/tests/Auth.elm +++ /dev/null @@ -1,7 +0,0 @@ -module Auth exposing (token) - - -token : String -token = - -- Tests don't need a real token. - "" diff --git a/part11/tests/HtmlRunner.elm b/part11/tests/HtmlRunner.elm deleted file mode 100644 index 24ba2cb..0000000 --- a/part11/tests/HtmlRunner.elm +++ /dev/null @@ -1,16 +0,0 @@ -module HtmlRunner exposing (..) - -import Tests -import Test.Runner.Html as Runner - - --- To run this: --- --- cd into part8/test --- elm-reactor --- navigate to HtmlRunner.elm - - -main : Program Never -main = - Runner.run Tests.all diff --git a/part11/tests/Main.elm b/part11/tests/Main.elm deleted file mode 100644 index 80906ca..0000000 --- a/part11/tests/Main.elm +++ /dev/null @@ -1,18 +0,0 @@ -port module Main exposing (..) - -import Tests -import Test.Runner.Node as Runner -import Json.Decode exposing (Value) - - --- To run this: --- --- elm-test - - -main : Program Value -main = - Runner.run emit Tests.all - - -port emit : ( String, Value ) -> Cmd msg diff --git a/part11/tests/Tests.elm b/part11/tests/Tests.elm deleted file mode 100644 index 1dedfc6..0000000 --- a/part11/tests/Tests.elm +++ /dev/null @@ -1,64 +0,0 @@ -module Tests exposing (..) - -import Test exposing (..) -import Fuzz exposing (..) -import Expect exposing (Expectation) -import ElmHub exposing (responseDecoder) -import Json.Decode exposing (decodeString, Value) -import String - - -all : Test -all = - describe "GitHub Response Decoder" - [ test "it results in an Err for invalid JSON" <| - \() -> - let - json = - """{ "pizza": [] }""" - - isErrorResult result = - case result of - Err _ -> - True - - Ok _ -> - False - in - json - |> decodeString responseDecoder - |> isErrorResult - |> Expect.true "Expected decoding an invalid response to return an Err." - , test "it successfully decodes a valid response" <| - \() -> - """{ "items": [ - { "id": 5, "full_name": "foo", "stargazers_count": 42 }, - { "id": 3, "full_name": "bar", "stargazers_count": 77 } - ] }""" - |> decodeString responseDecoder - |> Expect.equal - (Ok - [ { id = 5, name = "foo", stars = 42 } - , { id = 3, name = "bar", stars = 77 } - ] - ) - , fuzz (list int) "it decodes one SearchResult for each 'item' in the JSON" <| - \ids -> - let - jsonFromId id = - """{"id": """ ++ toString id ++ """, "full_name": "foo", "stargazers_count": 42}""" - - jsonItems = - String.join ", " (List.map jsonFromId ids) - - json = - """{ "items": [""" ++ jsonItems ++ """] }""" - in - case decodeString responseDecoder json of - Ok results -> - List.length results - |> Expect.equal (List.length ids) - - Err err -> - Expect.fail ("JSON decoding failed unexpectedly: " ++ err) - ] diff --git a/part11/tests/elm-package.json b/part11/tests/elm-package.json deleted file mode 100644 index 460cf01..0000000 --- a/part11/tests/elm-package.json +++ /dev/null @@ -1,21 +0,0 @@ -{ - "version": "1.0.0", - "summary": "Like GitHub, but for Elm stuff.", - "repository": "https://github.com/rtfeldman/elm-workshop.git", - "license": "BSD-3-Clause", - "source-directories": [ - ".", - ".." - ], - "exposed-modules": [], - "dependencies": { - "NoRedInk/elm-decode-pipeline": "1.1.2 <= v < 2.0.0", - "elm-community/elm-test": "2.0.1 <= v < 3.0.0", - "elm-lang/core": "4.0.1 <= v < 5.0.0", - "elm-lang/html": "1.0.0 <= v < 2.0.0", - "evancz/elm-http": "3.0.1 <= v < 4.0.0", - "rtfeldman/html-test-runner": "1.0.0 <= v < 2.0.0", - "rtfeldman/node-test-runner": "2.0.0 <= v < 3.0.0" - }, - "elm-version": "0.17.0 <= v < 0.18.0" -}