{-# LANGUAGE OverloadedStrings #-}

{-# LANGUAGE TemplateHaskell #-}

module GitHub.OrganizationsSpec where

import GitHub (FetchCount (..), github)

import GitHub.Auth (Auth (..))

import GitHub.Data

(SimpleOrganization (..), SimpleOwner (..), SimpleTeam (..))

import GitHub.Endpoints.Organizations (publicOrganizationsForR)

import GitHub.Endpoints.Organizations.Members (membersOfR)

import Data.Aeson (eitherDecodeStrict)

import Data.Either.Compat (isRight)

import Data.FileEmbed (embedFile)

import Data.String (fromString)

import System.Environment (lookupEnv)

import Test.Hspec

(Spec, describe, it, pendingWith, shouldBe, shouldSatisfy)

fromRightS :: Show a => Either a b -> b

fromRightS (Right b) = b

fromRightS (Left a) = error $ "Expected a Right and got a Left" ++ show a

withAuth :: (Auth -> IO ()) -> IO ()

withAuth action = do

mtoken <- lookupEnv "GITHUB_TOKEN"

case mtoken of

Nothing -> pendingWith "no GITHUB_TOKEN"

Just token -> action (OAuth $ fromString token)

spec :: Spec

spec = do

describe "publicOrganizationsFor'" $ do

it "decodes simple organization json" $ do

let orgs = eitherDecodeStrict $(embedFile "fixtures/user-organizations.json")

simpleOrganizationLogin (head $ fromRightS orgs) `shouldBe` "github"

it "returns information about the user's organizations" $ withAuth $ \auth -> do

orgs <- github auth publicOrganizationsForR "mike-burns" FetchAll

orgs `shouldSatisfy` isRight

describe "teamsOf" $ do

it "parse" $ do

let ts = eitherDecodeStrict $(embedFile "fixtures/list-teams.json")

simpleTeamName (head $ fromRightS ts) `shouldBe` "Justice League"

describe "membersOf" $ do

it "parse" $ do

let ms = eitherDecodeStrict $(embedFile "fixtures/members-list.json")

simpleOwnerLogin (head $ fromRightS ms) `shouldBe` "octocat"

it "works" $ withAuth $ \auth -> do

ms <- github auth membersOfR "haskell" FetchAll

ms `shouldSatisfy` isRight