git.iko.soy/rowtype-yoga/purescript-graphql-fundeps
on main help sign in
rowtype-yoga/purescript-graphql-fundeps/test/Main.purs
71 lines 1.9 kB history raw
1module Test.Main where
3import Prelude
5import Affjax.Node as AffjaxNode
6import Data.Foldable (for_)
7import Data.Maybe (Maybe(..))
8import Effect (Effect)
9import Effect.Aff (Milliseconds(..), launchAff_)
10import Effect.Class.Console as Log
11import GraphQL.FunDeps (class GraphQLReqRes, Gql(..), GraphQL, GraphQLClientAff, graphQL)
12import Test.Spec (describe, it)
13import Test.Spec.Reporter.Console (consoleReporter)
14import Test.Spec.Runner (defaultConfig, runSpec')
16endpoint = "https://api.react-finland.fi/graphql" :: String
18foreign import data ReactFinlandConferences :: GraphQL
20instance graphqlReactFinlandConferences ::
21 GraphQLReqRes ReactFinlandConferences """query {
22 conferences {
23 name
24 id
25 }
27""" () ( conferences :: Array { name :: String, id :: String } )
29foreign import data ReactFinlandConference :: GraphQL
31instance graphqlReactFinlandConference ::
32 GraphQLReqRes ReactFinlandConference """query($id:ID!) {
33 conference(id:$id) {
34 year
35 websiteUrl
36 speakers {
37 firstName
38 lastName
39 }
40 }
42""" ( id :: String ) ( conference ::
43 { year :: String
44 , websiteUrl :: String
45 , speakers ::
46 Array
47 { firstName :: String
48 , lastName :: String
49 }
50 }
51 )
53client :: GraphQLClientAff
54client = graphQL "https://api.react-finland.fi/graphql" [] AffjaxNode.driver
56main ∷ Effect Unit
57main =
58 launchAff_
59 $ runSpec'
60 ( defaultConfig
61 { timeout = Just (Milliseconds 10000.0)
62 }
63 )
64 [ consoleReporter ] do
65 describe "GraphQL Fundeps" do
66 it "Works" do
67 { conferences } <- client (Gql :: Gql ReactFinlandConferences) {}
68 for_ conferences \{ id } -> do
69 { conference: { websiteUrl, speakers } } <- client (Gql :: Gql ReactFinlandConference) { id }
70 Log.info websiteUrl
71 Log.info $ show speakers