Test.elm

module Tests exposing (..)

import Test exposing (..)
import Expect
import String
import Fuzz exposing (..)

all : Test
all =
    describe "Pair Fuzzer"
        [
         fuzz pairFuzzer "Pair Fuzzer"<|
             \(a,b) ->
             let
                 _ = Debug.log "State " (a,b)
             in
                 Expect.lessThan a b
        ]

pairFuzzer: Fuzzer (Int,Int)
pairFuzzer =
    let
        makePair : Int -> Fuzzer (Int, Int)
        makePair a =
            tuple(constant <| Debug.log "A" a
                 , intRange a (a + 500))
    in
        andThen makePair<| intRange -500 500