Allure-0.9.3.3: test/test.hs

{-# LANGUAGE PackageImports #-}
import Prelude ()

import Options.Applicative

import Game.LambdaHack.Client.UI.Frontend.Chosen
import Game.LambdaHack.Core.Prelude
import Game.LambdaHack.Server

-- For the case of flattened .cabal file, to avoid ambiguity.
import "Allure" TieKnot

main :: IO ()
main = do
  let args = words "--dbgMsgSer --logPriority 4 --newGame 1 --noAnim --maxFps 100000 --frontendNull --benchmark --stopAfterFrames 50 --automateAll --keepAutomated --gameMode crawl --setDungeonRng 0 --setMainRng 0"
  serverOptions <- handleParseResult $ execParserPure defaultPrefs serverOptionsPI args
  tieKnot serverOptions
  when (frontendName == "sdl") $ do
    -- The hacky log priority 0 tells SDL frontend to init and quit at once,
    -- for testing on CIs without graphics access.
    let args2 = words "--dbgMsgSer --logPriority 0 --newGame 3 --maxFps 100000 --benchmark --stopAfterFrames 50 --automateAll --keepAutomated --gameMode battle --setDungeonRng 7 --setMainRng 7"
    serverOptions2 <- handleParseResult $ execParserPure defaultPrefs serverOptionsPI args2
    tieKnot serverOptions2