-
Notifications
You must be signed in to change notification settings - Fork 0
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
initial ci and view test cases commit
- Loading branch information
flober
committed
Jul 1, 2024
1 parent
31cdcf4
commit a8191f8
Showing
6 changed files
with
200 additions
and
12 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,40 @@ | ||
| name: Haskell CI | ||
|
|
||
| on: | ||
| push: | ||
| branches: | ||
| - main | ||
| pull_request: | ||
| branches: | ||
| - main | ||
| jobs: | ||
| build: | ||
| runs-on: ubuntu-latest | ||
|
|
||
| steps: | ||
| - name: Checkout code | ||
| uses: actions/checkout@v2 | ||
|
|
||
| - name: Set up Stack | ||
| uses: actions/setup-haskell@v1 | ||
| with: | ||
| stack-version: '2.15.5' | ||
| ghc-version: '9.6.5' | ||
|
|
||
| - name: Cache Stack dependencies | ||
| uses: actions/cache@v2 | ||
| with: | ||
| path: | | ||
| ~/.stack | ||
| .stack-work | ||
| # Cache invalidated if package.yaml changes. | ||
| key: ${{ runner.os }}-stack-${{ hashFiles('package.yaml') }} | ||
|
|
||
| - name: Install dependencies | ||
| run: stack setup | ||
|
|
||
| - name: Build | ||
| run: stack build --fast | ||
|
|
||
| - name: Run tests | ||
| run: stack test |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -1,2 +1,5 @@ | ||
| import Terminal.View (viewTestGroup) | ||
| import Test.Tasty (defaultMain, testGroup) | ||
|
|
||
| main :: IO () | ||
| main = putStrLn "Test suite not yet implemented" | ||
| main = defaultMain $ testGroup "Unit Tests" [viewTestGroup] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,136 @@ | ||
| -- View tests are regressive (ensure that new changes do not inadvertently regress the existing UI). | ||
| module Terminal.View (viewTestGroup) where | ||
|
|
||
| import Card | ||
| import Data.List (intercalate) | ||
| import Data.Map (empty, fromList) | ||
| import Data.Maybe (fromJust) | ||
| import Data.UUID (UUID, fromString) | ||
| import Model (CardInstance (..), OppInfo (..), Phase (..), PlayerState (..)) | ||
| import Test.Tasty (TestTree, testGroup) | ||
| import Test.Tasty.HUnit (assertEqual, testCase) | ||
| import View.Terminal (render) | ||
|
|
||
| viewTestGroup :: TestTree | ||
| viewTestGroup = | ||
| testGroup | ||
| "View Tests" | ||
| [ testBlankRecruitView, | ||
| testRecruitViewWithMaxItems, | ||
| testRecruitViewWithAbbrevs | ||
| ] | ||
|
|
||
| testBlankRecruitView :: TestTree | ||
| testBlankRecruitView = | ||
| testCase "Test view of blank shop, board, hand. Other hard coded stats can test stat renderings." $ | ||
| assertEqual "view should be eq" (render blankPlayerState) $ | ||
| intercalate | ||
| "\n" | ||
| [ "+--------------------------------------------------------------------------------------------------------------------------------------------+", | ||
| "| Recruit |", | ||
| "+--------------------------------------------------------------------------------------------------------------------------------------------+", | ||
| "| Shop: |", | ||
| "+--------------------------------------------------------------------------------------------------------------------------------------------+", | ||
| "| Board: |", | ||
| "+--------------------------------------------------------------------------------------------------------------------------------------------+", | ||
| "| Hand: |", | ||
| "+--------------------------------------------------------------------------------------------------------------------------------------------+", | ||
| "| Tavern: Upgrade Cost: 5 | Freeze: Yes | Reroll Cost: 2 |", | ||
| "+--------------------------------------------------------------------------------------------------------------------------------------------+", | ||
| "| Player: Health: 30 | Armor: 5 | Gold: 7/10 |", | ||
| "+--------------------------------------------------------------------------------------------------------------------------------------------+", | ||
| "| Opps HP: |", | ||
| "+--------------------------------------------------------------------------------------------------------------------------------------------+" | ||
| ] | ||
|
|
||
| testRecruitViewWithMaxItems :: TestTree | ||
| testRecruitViewWithMaxItems = | ||
| testCase "Test view of filled shop, board, hand and max opps." $ | ||
| assertEqual "view should be eq" (render maxItemsPlayerState) $ | ||
| intercalate | ||
| "\n" | ||
| [ "+--------------------------------------------------------------------------------------------------------------------------------------------+", | ||
| "| Recruit |", | ||
| "+--------------------------------------------------------------------------------------------------------------------------------------------+", | ||
| "| Shop: Dummy | Dumber | TriDummy | Dumbo | BigDumbo | KingDumbo |", | ||
| "+--------------------------------------------------------------------------------------------------------------------------------------------+", | ||
| "| Board: Dummy | Dumber | TriDummy | Dumbo | BigDumbo | KingDumbo |", | ||
| "+--------------------------------------------------------------------------------------------------------------------------------------------+", | ||
| "| Hand: Dummy | Dumber | TriDummy | Dumbo | BigDumbo | KingDumbo | KingDumbo |", | ||
| "| KingDumbo | KingDumbo | KingDumbo |", | ||
| "+--------------------------------------------------------------------------------------------------------------------------------------------+", | ||
| "| Tavern: Upgrade Cost: 5 | Freeze: Yes | Reroll Cost: 2 |", | ||
| "+--------------------------------------------------------------------------------------------------------------------------------------------+", | ||
| "| Player: Health: 30 | Armor: 5 | Gold: 7/10 |", | ||
| "+--------------------------------------------------------------------------------------------------------------------------------------------+", | ||
| "| Opps HP: opp1: 30 + 5 | opp2: 30 + 5 | opp3: 30 + 5 | opp4: 30 + 5 |", | ||
| "| opp5: 30 + 5 | opp6: 30 + 5 | opp7: 30 + 5 |", | ||
| "+--------------------------------------------------------------------------------------------------------------------------------------------+" | ||
| ] | ||
|
|
||
| testRecruitViewWithAbbrevs :: TestTree | ||
| testRecruitViewWithAbbrevs = | ||
| testCase "Test view of filled shop, board, hand and max opps. All names chosen to exceed limit (and hence should be abbreviated)." $ | ||
| assertEqual "view should be eq" (render maxItemsWithAbbrevNamesPlayerState) $ | ||
| intercalate | ||
| "\n" | ||
| [ "+--------------------------------------------------------------------------------------------------------------------------------------------+", | ||
| "| Recruit |", | ||
| "+--------------------------------------------------------------------------------------------------------------------------------------------+", | ||
| "| Shop: DummyWithALon.. | DummyWithALon.. | DummyWithALon.. | DummyWithALon.. | DummyWithALon.. | DummyWithALon.. | DummyWithALon.. |", | ||
| "+--------------------------------------------------------------------------------------------------------------------------------------------+", | ||
| "| Board: DummyWithALon.. | DummyWithALon.. | DummyWithALon.. | DummyWithALon.. | DummyWithALon.. | DummyWithALon.. | DummyWithALon.. |", | ||
| "+--------------------------------------------------------------------------------------------------------------------------------------------+", | ||
| "| Hand: DummyWithALon.. | DummyWithALon.. | DummyWithALon.. | DummyWithALon.. | DummyWithALon.. | DummyWithALon.. | DummyWithALon.. |", | ||
| "| DummyWithALon.. | DummyWithALon.. | DummyWithALon.. |", | ||
| "+--------------------------------------------------------------------------------------------------------------------------------------------+", | ||
| "| Tavern: Upgrade Cost: 5 | Freeze: Yes | Reroll Cost: 2 |", | ||
| "+--------------------------------------------------------------------------------------------------------------------------------------------+", | ||
| "| Player: Health: 30 | Armor: 5 | Gold: 7/10 |", | ||
| "+--------------------------------------------------------------------------------------------------------------------------------------------+", | ||
| "| Opps HP: aVeryLongName..: 15 + 15 | aVeryLongName..: 15 + 15 | aVeryLongName..: 15 + 15 | aVeryLongName..: 15 + 15 |", | ||
| "| aVeryLongName..: 15 + 15 | aVeryLongName..: 15 + 15 | aVeryLongName..: 15 + 15 |", | ||
| "+--------------------------------------------------------------------------------------------------------------------------------------------+" | ||
| ] | ||
|
|
||
| dummyUUID :: UUID | ||
| dummyUUID = fromJust $ fromString "c2cc10e1-57d6-4b6f-9899-38d972112d8c" | ||
|
|
||
| blankPlayerState :: PlayerState | ||
| blankPlayerState = | ||
| PlayerState | ||
| { shop = [], | ||
| board = [], | ||
| hand = [], | ||
| frozen = True, | ||
| rerollCost = 2, | ||
| tierUpCost = 5, | ||
| hp = 30, | ||
| armor = 5, | ||
| curGold = 7, | ||
| maxGold = 10, | ||
| opponentInformation = empty, | ||
| tier = 5, | ||
| phase = Recruit, | ||
| alive = True | ||
| } | ||
|
|
||
| maxItemsPlayerState :: PlayerState | ||
| maxItemsPlayerState = | ||
| blankPlayerState | ||
| { shop = [CardInstance dummyUUID dummy, CardInstance dummyUUID dumber, CardInstance dummyUUID triDummy, CardInstance dummyUUID dumbo, CardInstance dummyUUID bigDumbo, CardInstance dummyUUID kingDumbo], | ||
| board = [CardInstance dummyUUID dummy, CardInstance dummyUUID dumber, CardInstance dummyUUID triDummy, CardInstance dummyUUID dumbo, CardInstance dummyUUID bigDumbo, CardInstance dummyUUID kingDumbo], | ||
| hand = [CardInstance dummyUUID dummy, CardInstance dummyUUID dumber, CardInstance dummyUUID triDummy, CardInstance dummyUUID dumbo, CardInstance dummyUUID bigDumbo, CardInstance dummyUUID kingDumbo, CardInstance dummyUUID kingDumbo, CardInstance dummyUUID kingDumbo, CardInstance dummyUUID kingDumbo, CardInstance dummyUUID kingDumbo], | ||
| opponentInformation = fromList [("opp1", OppInfo 30 5), ("opp2", OppInfo 30 5), ("opp3", OppInfo 30 5), ("opp4", OppInfo 30 5), ("opp5", OppInfo 30 5), ("opp6", OppInfo 30 5), ("opp7", OppInfo 30 5)] | ||
| } | ||
|
|
||
| maxItemsWithAbbrevNamesPlayerState :: PlayerState | ||
| maxItemsWithAbbrevNamesPlayerState = | ||
| blankPlayerState | ||
| { shop = replicate 7 $ CardInstance dummyUUID dummyWithALongNameItKeepsGoing, | ||
| board = replicate 7 $ CardInstance dummyUUID dummyWithALongNameItKeepsGoing, | ||
| hand = replicate 10 $ CardInstance dummyUUID dummyWithALongNameItKeepsGoing, | ||
| opponentInformation = fromList $ [(longOppName ++ show i, OppInfo 15 15) | i <- [1 :: Integer .. 7]] | ||
| } | ||
| where | ||
| longOppName = "aVeryLongNameBlahBlah" |