Fuzz tests hanging on Windows about node-test-runner HOT 35 CLOSED

module HtmlRunnerExample exposing (..)

{-| HOW TO RUN THIS EXAMPLE ?

************************* WARNING !!!!!!!  $ elm-reactor should be run from the tests directory !!!!*********************

Visit http://localhost:8000 and bring up this file.
-}


import Expect
import Test exposing (..)
import Test.Runner.Html
--import Fuzz exposing (..)

import Preprojectform exposing (..)
import Dict exposing (..)

import Fuzz exposing (list, int, tuple,intRange)

main : Program Never
main =
    [ all
    ]
        |> concat
        |> Test.Runner.Html.run

all : Test
all =
    describe "A Test Suite"
        [ test "My current number of points" <|
                \() ->
                    (List.sum <| Dict.values <| (fst Preprojectform.init).myScoreList)
                        |> Expect.greaterThan 0

        , fuzz (intRange 1 50) "Fuzz test for Integer" <|
            \myInt ->
                (myInt * 200) // 5
                      |> Expect.greaterThan 2000

        ]

module HtmlRunnerExample exposing (..)

{-| HOW TO RUN THIS EXAMPLE ?

************************* WARNING !!!!!!!  $ elm-reactor should be run from the tests directory !!!!*********************

Visit http://localhost:8000 and bring up this file.
-}


import Expect
import Test exposing (..)
import Test.Runner.Html
--import Fuzz exposing (..)

import Preprojectform exposing (..)
import Dict exposing (..)

import Fuzz exposing (list, int, tuple,intRange)

main : Program Never
main =
    [ all
    ]
        |> concat
        |> Test.Runner.Html.run

all : Test
all =
    describe "A Test Suite"
        [ test "Value of maxPointsPossible" <|
                \() ->
                    (fst Preprojectform.init).listOfQuestions
                        |> List.length
                        |> (*) 3
                        |> Expect.equal 6


        , fuzz (intRange 1 50) "Fuzz test for Integer" <|
            \myInt ->
                (myInt * 200) // 5
                      |> Expect.greaterThan 2000

        ]```

module HtmlRunnerExample exposing (..)

{-| HOW TO RUN THIS EXAMPLE

$ elm-reactor

Visit http://localhost:8000 and bring up this file.
-}


import Expect
import Test exposing (..)
import Test.Runner.Html
--import Fuzz exposing (..)

import Preprojectform exposing (..)
import Dict exposing (..)

import Fuzz exposing (list, int, tuple,intRange)

main : Program Never
main =
    [ all
    ]
        |> concat
        |> Test.Runner.Html.run

all : Test
all =
    describe "A Test Suite"
        [ test "Addition" <|
            \() ->
                Expect.equal (3 + 7) 10
        {-, test "This test should fail" <|
            \() ->
                Expect.fail "failed as expected!"-}

        , test "Length of listOfQuestions" <|
                \() ->
                    (fst Preprojectform.init).listOfQuestions
                        |> List.length
                        |> Expect.equal 2

        , test "Value of maxPointsPossible" <|
                \() ->
                    (fst Preprojectform.init).listOfQuestions
                        |> List.length
                        |> (*) 3
                        |> Expect.equal 6

        {-, test "My current number of points" <|
                \() ->
                    (List.sum <| Dict.values <| (fst Preprojectform.init).myScoreList)
                        |> Expect.greaterThan 0   -}

        {-, test "My current number of points" <|
                \() ->
                    let 
                        myScore =  
                            (fst Preprojectform.init).myScoreList
                        myCurrentNumberofPoints =  
                            List.sum <| Dict.values <| myScore
                    in
                         if isEmpty myScore then
                                myCurrentNumberofPoints |> Expect.equal 0   
                         else 
                                myCurrentNumberofPoints |> Expect.greaterThan 0-}

        , test "My scoreList" <|
                \() ->
                      (fst Preprojectform.init)
                         |> Preprojectform.update (Preprojectform.QuestionAnswered  1 3)
                         |> fst
                         |> Preprojectform.update (Preprojectform.QuestionAnswered  2 3)
                         |> fst
                         |> .myScoreList
                         |> Expect.equal  (Dict.fromList [(1,3), (2,3)])


        , test "My current number of points" <|
                \() ->
                      (fst Preprojectform.init)
                         |> Preprojectform.update (Preprojectform.QuestionAnswered  1 3)
                         |> fst
                         |> Preprojectform.update (Preprojectform.QuestionAnswered  2 3)
                         |> fst
                         |> Preprojectform.update (Preprojectform.Send 100)
                         |> fst
                         |> .scoreMessage
                         |> Expect.equal  "Your score is 100% Bravo"



       , fuzz (intRange 1 50) "Fuzz test for Integer" <|
            \myInt ->
                (myInt * 200) // 5
                      |> Expect.greaterThan 2000 

        ]

module Tests exposing (..)

import Test exposing (..)
import Expect
--import Dict exposing (..)
import Fuzz exposing (list, int, tuple,intRange)

import Preprojectform exposing (..)
import Dict exposing (..)


all : Test
all =
    describe "A Test Suite"
        [ fuzz (intRange -1 -50) "Fuzz test for Integer" <|
            \myInt ->
                (myInt * 200) // 5
                      |> Expect.greaterThan 2000 
        ]```

module HtmlRunnerExample exposing (..)



{-| HOW TO RUN THIS EXAMPLE ?



************************* WARNING !!!!!!!  $ elm-reactor should be run from the tests directory !!!!*********************



Visit http://localhost:8000 and bring up this file.

-}





import Expect

import Test exposing (..)

import Test.Runner.Html

--import Fuzz exposing (..)



import Preprojectform exposing (..)

import Dict exposing (..)



import Fuzz exposing (list, int, tuple,intRange)



main : Program Never

main =

    [ all

    ]

        |> concat

        |> Test.Runner.Html.run



all : Test

all =

    describe "A Test Suite"

        [ test "One addition" <|

            \() ->

                Expect.equal (3 + 7) 10

         , test "My current number of points" <|

                \() ->

                      (fst Preprojectform.init)

                         |> Preprojectform.update (Preprojectform.QuestionAnswered  1 3)

                         |> fst

                         |> Preprojectform.update (Preprojectform.QuestionAnswered  2 3)

                         |> fst

                         |> Preprojectform.update (Preprojectform.Send 100)

                         |> fst

                         |> .scoreMessage

                         |> Expect.equal  "Your score is 100% Bravo"

         , fuzz (intRange 1 50) "Fuzz test for Integer" <|

            \myInt ->

                (myInt * 200) // 5

                      |> Expect.greaterThan 2000



        ]

module Preprojectform exposing (Model,init,view,update,Msg(..))

import Html exposing (..)
import Html.Attributes exposing (..)
import Html.App as Html
import Html.Events exposing (onClick, onCheck)
import Dict exposing (..)
import Debug
-- import Debug




main : Program Never
main =
  Html.program
    { init = init
    , view = view
    , subscriptions = subscriptions
    , update = update
    }


  -- MODEL


type alias Model =
  { myScoreList : Dict Int Int
    ,listOfAnswers : List { myText: String, myValue: Int}
    ,listOfQuestions : List { questionId: Int, questionText : String }
    ,scoreMessage : String
    ,errrorMessage : String
  }


init :  (Model, Cmd Msg)
init =
  (Model Dict.empty [{myText = "Fully agree", myValue = 3}, {myText = "Agree", myValue = 2}, {myText = "Neutral", myValue = 1}, {myText = "Disagree", myValue=0}]  [{questionId = 1, questionText = "Is the business co-located with the developers?"}, {questionId = 2, questionText = "Is the scope flexible?"}] "" "", Cmd.none)

--MESSAGES
type Msg = 
    QuestionAnswered Int Int
    | Send Int

--VIEW
view
    : Model
    -> Html Msg

view model =
  let
    displayListOfQuestions = List.concatMap  (\question ->  text question.questionText :: List.map (createAnswerButtons question.questionId) model.listOfAnswers) model.listOfQuestions

    maxPointsPossible : Int
    maxPointsPossible = List.length model.listOfQuestions * 3

    myCurrentNumberofPoints = List.sum <| Dict.values <| model.myScoreList

    myTotalScore : Int
    myTotalScore = (myCurrentNumberofPoints * 100) // maxPointsPossible


  in
    div []
    <|displayListOfQuestions ++
      [ br [] []
      , button [onClick (Send myTotalScore) ] [text "Send"]
      , br [] []
      , br [] []
      , text model.scoreMessage
      , text model.errrorMessage
      ] 

createAnswerButtons : Int -> { a | myText : String, myValue : Int } -> Html Msg
createAnswerButtons questionId answersPair = 
    div[]
    [ text (answersPair.myText)
    , input [ type' "radio", name ("myChoice" ++ toString questionId), onCheck (\_ -> QuestionAnswered questionId answersPair.myValue)] []
    ]
--UPDATE
update
    : Msg
    -> Model
    -> ( Model, Cmd b)

update msg model = 
    case msg of 
        QuestionAnswered  questionId answersId ->
          let 
            newScoreList = Dict.insert questionId answersId model.myScoreList

          in 
          ({ model |  myScoreList = Debug.log "myscorelist" newScoreList }, Cmd.none )
        Send myTotalScore ->
            let 
            myAnsweredQuestions = List.length <| Dict.values <| model.myScoreList
            newScoreMessage =
                if  (myAnsweredQuestions == 2 && myTotalScore  >= 75) then 
                    "Your score is " ++ toString myTotalScore ++ "% " ++ "Bravo"
                else 
                    if (myAnsweredQuestions == 2 && myTotalScore  < 75) then
                     "Your score is " ++ toString myTotalScore ++ "% " ++  "Not so bad"
                else ""
            newErrorMessage = 
                if ((List.length <| Dict.values <| model.myScoreList) < 2) then
                    "You must answer all questions!"
                else
                    ""
            in 
            ({ model | scoreMessage = newScoreMessage , errrorMessage = newErrorMessage }, Cmd.none )


--SUBSCRIPTIONS
subscriptions : Model -> Sub Msg
subscriptions model = 
    Sub.none


`

all : Test
all =
    describe "A Test Suite"
        [ test "Addition" <|
            \() ->
                Expect.equal (3 + 7) 10
                    |> Debug.log "--------- Addition test complete ---------"
        , fuzz Fuzz.int "variable addition" <|
            \a ->
                Expect.equal (3 + a + 2) (a + 6)
                    |> Debug.log (toString a)
        , test "This test should fail" <|
            \() ->
                Expect.fail "failed as expected!"
                    |> Debug.log "--------- Failed test complete ---------"
        ]