wgaffa/deck-delta - Change 6W7NP33P535S4ZTVGFZG7YDRYRNLMXG5WNK24U3CKTZEVVPIRRRQC

Add golden tests for some formats

Created by wgaffa on May 4, 2024

6W7NP33P535S4ZTVGFZG7YDRYRNLMXG5WNK24U3CKTZEVVPIRRRQC

Dependencies

In channels

main

Change contents

File addition: golden (d--x------)
[3.16]
File addition: simple.diff (----------)
[0.18]
```
>> "Harsh Mentor"
  1 "Mainboard"
```

File addition: simple.decklist.new (----------)

[0.18]

2 Harsh Mentor
3 Lightning Bolt
1 Lightning Bolt
2 Grim Haruspex

File addition: simple.decklist (----------)

[0.18]

1 Harsh Mentor
3 Lightning Bolt
1 Lightning Bolt
2 Grim Haruspex

File addition: simple-x.diff (----------)

[0.18]


>> "Lightning Bolt"
  M 1 "Sideboard" "Mainboard"

File addition: simple-x.decklist.new (----------)
[0.18]
```
1x Harsh Mentor
4x Lightning Bolt
1x Grim Haruspex
```

File addition: simple-x.decklist (----------)

[0.18]

1x Harsh Mentor
3x Lightning Bolt
1x Lightning Bolt
1x Grim Haruspex

File addition: simple-sb.diff (----------)
[0.18]
```
>> "Grim Haruspex"
  -1 "Sideboard"
```

File addition: simple-sb.decklist.new (----------)

[0.18]

1 Harsh Mentor
3 Lightning Bolt
1 Lightning Bolt
1 Grim Haruspex

File addition: simple-sb.decklist (----------)

[0.18]

1 Harsh Mentor
3 Lightning Bolt
1 Lightning Bolt
2 Grim Haruspex

File addition: no-sideboard.diff (----------)
[0.18]
```
D "Grim Haruspex"
```
File addition: no-sideboard.decklist.new (----------)
[0.18]
```
1 Harsh Mentor
3 Lightning Bolt
```
File addition: no-sideboard.decklist (----------)
[0.18]
```
1 Harsh Mentor
3 Lightning Bolt
2 Grim Haruspex
```
Insertion in test/Main.hs at line 2 [3.50]
[3.76]
[3.76]
```
import Data.Either.Extra
```

Replacement in test/Main.hs at line 5 [3.50]

B:BD[3.77] → [3.77:141]

main :: IO ()
main = putStrLn "Test suite not yet implemented."

[3.77]

import qualified Data.ByteString.Char8 as BS
import qualified Data.Text as T
import Test.Tasty (TestTree, defaultMain, testGroup)
import Test.Tasty.Golden (findByExtension, goldenVsString)
import System.FilePath (replaceExtension, takeBaseName, (<.>))
import Parser
import Deck.Diff
import Repr.DiffRep
main = defaultMain =<< goldenTests
goldenTests :: IO TestTree
goldenTests = do
    deckfiles <- findByExtension [".decklist"] "test/golden"
    return $ testGroup "Decklist to diff patch" $ do
        deckPath <- deckfiles
        let diffPath = replaceExtension deckPath ".diff"
        return $
            goldenVsString
            (takeBaseName deckPath)
            diffPath
            ( do
                diffContent <- readDiffFiles deckPath (deckPath <.> "new")
                let result = view . eval . uncurry diff <$> diffContent
                    diffAction = BS.fromStrict . BS.pack . T.unpack . fromRight' $ result
                return diffAction
            )

Insertion in mtg.cabal at line 22 [3.249]
[2.907]
[4.1841]
```
        Repr.InvDiff,
```
Insertion in mtg.cabal at line 24 [3.249]
[4.1855]
[5.97]
```
        Deckvine.Patch.Prim,
```

Replacement in mtg.cabal at line 84 [3.249]

B:BD[3.1047] → [3.1047:1059]

mtg

[3.1047]

        mtg,
        tasty,
        tasty-golden,
        bytestring,
        text,
        filepath,
        extra,

Add golden tests for some formats

Dependencies

In channels

Change contents

File addition: golden (d--x------)

File addition: simple.diff (----------)

File addition: simple.decklist.new (----------)

File addition: simple.decklist (----------)

File addition: simple-x.diff (----------)

File addition: simple-x.decklist.new (----------)

File addition: simple-x.decklist (----------)

File addition: simple-sb.diff (----------)

File addition: simple-sb.decklist.new (----------)

File addition: simple-sb.decklist (----------)

File addition: no-sideboard.diff (----------)

File addition: no-sideboard.decklist.new (----------)

File addition: no-sideboard.decklist (----------)

Insertion in test/Main.hs at line 2 [3.50]

Replacement in test/Main.hs at line 5 [3.50]

Insertion in mtg.cabal at line 22 [3.249]

Insertion in mtg.cabal at line 24 [3.249]

Replacement in mtg.cabal at line 84 [3.249]