rattletrap-13.0.1: src/test/Main.hs
import qualified Control.Monad as Monad
import qualified Data.ByteString as ByteString
import qualified GHC.Clock as Clock
import qualified Rattletrap
import qualified System.FilePath as FilePath
import qualified Text.Printf as Printf
main :: IO ()
main = do
let directory = "output"
generateSchema directory
mapM_ (testReplay directory) replays
generateSchema :: FilePath -> IO ()
generateSchema directory =
Rattletrap.rattletrap
""
["--schema", "--output", FilePath.combine directory "schema.json"]
testReplay :: FilePath -> (FilePath, String) -> IO ()
testReplay directory (uuid, name) = do
let inputFile = FilePath.combine "replays" $ uuid <> ".replay"
input <- ByteString.readFile inputFile
let mb = fromIntegral (ByteString.length input) / (1024 * 1024 :: Double)
Printf.printf "- replay: %s %s (%.3f mb)\n" uuid name mb
let jsonFile = FilePath.combine directory $ uuid <> ".json"
do
(s, ()) <- withDuration $ decode inputFile jsonFile
Printf.printf " decode: %.3f s @ %.3f mb/s\n" s (mb / s)
let outputFile = FilePath.combine directory $ uuid <> ".replay"
do
(s, ()) <- withDuration $ encode jsonFile outputFile
Printf.printf " encode: %.3f s @ %.3f mb/s\n" s (mb / s)
output <- ByteString.readFile outputFile
Monad.when (output /= input) $ fail "output does not match input"
withDuration :: IO a -> IO (Double, a)
withDuration action = do
before <- Clock.getMonotonicTime
result <- action
after <- Clock.getMonotonicTime
pure (after - before, result)
decode :: FilePath -> FilePath -> IO ()
decode input output =
Rattletrap.rattletrap "" ["--compact", "--input", input, "--output", output]
encode :: FilePath -> FilePath -> IO ()
encode input output =
Rattletrap.rattletrap "" ["--input", input, "--output", output]
replays :: [(String, String)]
replays =
[ ("0008", "a flip time"), -- https://github.com/tfausak/rattletrap/commit/ee7afa0
("000b", "nintendo switch"), -- https://github.com/tfausak/rattletrap/pull/60
("0121", "RLCS 2"), -- https://github.com/nickbabcock/boxcars/pull/120
("0416", "v1.78 demolition"), -- https://github.com/tfausak/rattletrap/pull/164
("07e9", "a game mode before Neo Tokyo"), -- https://github.com/tfausak/rattletrap/commit/b806f9b
("0ad2", "some Latin-1 text"), -- https://github.com/tfausak/rattletrap/commit/13a8b2d
("0ae9", "fte"), -- https://github.com/jjbott/RocketLeagueReplayParser/issues/50
("0ca5", "with QQ remote ID"), -- https://github.com/nickbabcock/boxcars/pull/69
("0e76", "v1.95 rumble"), -- https://github.com/tfausak/rattletrap/pull/237
("1205", "rumble mode"), -- https://github.com/tfausak/rattletrap/commit/5256500
("160c", "a dedicated server IP"), -- https://github.com/tfausak/rattletrap/commit/5c64a6d
("16d5", "new property types"), -- https://github.com/tfausak/rattletrap/pull/41
("18d6", "an online loadout attribute"), -- https://github.com/tfausak/rattletrap/commit/a9900e7
("1a12", "overtime"), -- https://github.com/tfausak/rattletrap/commit/ada6053
("1ae4", "a game time"), -- https://github.com/tfausak/rattletrap/commit/d08176e
("1bc2", "no padding after the frames"), -- https://github.com/tfausak/rattletrap/commit/c9a2dd8
("1d1d", "a camera pitch"), -- https://github.com/tfausak/rattletrap/commit/ee7afa0
("1d25", "bumblebee"), -- https://github.com/tfausak/rattletrap/issues/280
("1ec9", "a V1.63 match"), -- https://github.com/tfausak/rattletrap/pull/132
("1ef9", "a private hoops match"), -- https://github.com/tfausak/rattletrap/commit/5570839
("1f37", "splitscreen players"), -- https://github.com/tfausak/rattletrap/commit/c4d2f32
("2066", "replicated boost"), -- https://github.com/tfausak/rattletrap/issues/296
("2114", "a match save"), -- https://github.com/tfausak/rattletrap/commit/ee7afa0
("21a8", "v1.66"), -- https://github.com/tfausak/rattletrap/pull/142
("2266", "dropshot"), -- https://github.com/tfausak/rattletrap/pull/36
("22ba", "a vote to forfeit"), -- https://github.com/tfausak/rattletrap/commit/86656bb
("27b6", "some UTF-16 text"), -- https://github.com/tfausak/rattletrap/commit/c4d2f32
("29f5", "frames"), -- https://github.com/tfausak/rattletrap/commit/bf4b6af
("2cf8", "demo v2.01"), -- https://github.com/tfausak/rattletrap/pull/243
("2cfe", "a new playstation id"), -- https://github.com/tfausak/rattletrap/issues/51
("3381", "patch 1.37"), -- https://github.com/tfausak/rattletrap/pull/48
("35f6", "heatseeker v2.01"), -- https://github.com/tfausak/rattletrap/commit/57d86c2
("372d", "a camera yaw attribute"), -- https://github.com/tfausak/rattletrap/commit/9c1516c
("383e", "older unknown content field"), -- https://github.com/tfausak/rattletrap/pull/123
("387f", "a frozen attribute"), -- https://github.com/tfausak/rattletrap/commit/93ce196
("3abd", "rlcs"), -- https://github.com/tfausak/rattletrap/pull/86
("3ea1", "a custom team name"), -- https://github.com/tfausak/rattletrap/commit/cf4d145
("4050", "v2.08 dodge impulse"), -- https://github.com/tfausak/rattletrap/issues/247
("4126", "a game mode after Neo Tokyo"), -- https://github.com/tfausak/rattletrap/commit/a1cf21e
("419a", "a club match"), -- https://github.com/tfausak/rattletrap/commit/8e35043
("42f0", "reservations after Neo Tokyo"), -- https://github.com/tfausak/rattletrap/commit/163684f
("42f2", "anniversary ball"), -- https://github.com/tfausak/rattletrap/issues/147
("43a9", "tutorial"), -- https://github.com/nickbabcock/boxcars/pull/70
("4bc3", "with timed out attribute"), -- https://github.com/tfausak/rattletrap/pull/98
("504e", "some messages"), -- https://github.com/tfausak/rattletrap/commit/1d4a538
("5123", "rep stat title"), -- https://github.com/nickbabcock/boxcars/pull/78
("520e", "no pickup attribute"), -- https://github.com/tfausak/rattletrap/pull/38
("524f", "quat edge case"), -- https://github.com/tfausak/rattletrap/pull/87
("52aa", "a match-ending attribute"), -- https://github.com/tfausak/rattletrap/commit/5c64a6d
("540d", "a demolish attribute"), -- https://github.com/tfausak/rattletrap/commit/65ce033
("54ae", "replicated car scale"), -- https://github.com/nickbabcock/boxcars/pull/79
("551c", "private match settings"), -- https://github.com/tfausak/rattletrap/commit/5c9ebfc
("59d3", "v2.23"), -- https://github.com/tfausak/rattletrap/issues/274
("5a06", "esports items"), -- https://github.com/tfausak/rattletrap/pull/114
("5e0b", "max channels"), -- https://github.com/tfausak/rattletrap/issues/254
("6210", "different player history key"), -- https://github.com/tfausak/rattletrap/pull/63
("6320", "a forfeit attribute"), -- https://github.com/tfausak/rattletrap/pull/20
("6688", "a malformed byte property"), -- https://github.com/tfausak/rattletrap/commit/b1ec18b
("6b0d", "patch 1.37"), -- https://github.com/tfausak/rattletrap/pull/48
("6d1b", "a flip right"), -- https://github.com/tfausak/rattletrap/commit/ee7afa0
("6f7c", "a map with numbers"), -- https://github.com/tfausak/rattletrap/commit/2629511
("7083", "weird basketball capitalization"), -- https://github.com/tfausak/rattletrap/pull/63
("7109", "a boost modifier"), -- https://github.com/tfausak/rattletrap/commit/ee7afa0
("7256", "special edition"), -- https://github.com/tfausak/rattletrap/pull/103
("7588", "another malformed byte property"), -- https://github.com/nickbabcock/boxcars/pull/68
("75ce", "primary and secondary titles"), -- https://github.com/tfausak/rattletrap/pull/69
("79ae", "voice update replay"), -- https://github.com/tfausak/rattletrap/pull/265
("7bf6", "an online loadouts attribute"), -- https://github.com/tfausak/rattletrap/commit/89d02f7
("81d1", "gridiron"), -- https://github.com/tfausak/rattletrap/pull/180
("89cb", "remote user data"), -- https://github.com/tfausak/rattletrap/commit/163684f
("8ae5", "new painted items"), -- https://github.com/tfausak/rattletrap/pull/43
("92a6", "with server performance state"), -- https://github.com/tfausak/rattletrap/pull/93
("946f", "patch 1.43"), -- https://github.com/tfausak/rattletrap/pull/69
("9704", "a batarang"), -- https://github.com/tfausak/rattletrap/commit/5958e5c
("98e5", "a player using behind view"), -- https://github.com/tfausak/rattletrap/commit/163684f
("9a2c", "ghost hunt"), -- https://github.com/tfausak/rattletrap/pull/160
("9e35", "spike rush"), -- https://github.com/tfausak/rattletrap/pull/160
("9eaa", "newer replay without trailing bytes"), -- https://github.com/tfausak/rattletrap/pull/126
("a09e", "a tournament"), -- https://github.com/tfausak/rattletrap/pull/69
("a128", "a round count down"), -- https://github.com/tfausak/rattletrap/commit/8bb778d
("a184", "max score"), -- https://github.com/tfausak/rattletrap/pull/158
("a1c0", "epic system id"), -- https://github.com/tfausak/rattletrap/pull/167
("a52f", "some more mutators"), -- https://github.com/tfausak/rattletrap/commit/ee7afa0
("a558", "extended explosion data"), -- https://github.com/tfausak/rattletrap/pull/44
("a671", "a waiting player"), -- https://github.com/tfausak/rattletrap/commit/163684f
("a676", "new user color"), -- https://github.com/tfausak/rattletrap/pull/93
("a7f0", "a ready attribute"), -- https://github.com/tfausak/rattletrap/commit/78af1fd
("a9df", "salty shores patch 1.45"), -- https://github.com/tfausak/rattletrap/pull/78
("aa70", "patch 1.50 - TitleID attribute"), -- https://github.com/tfausak/rattletrap/pull/93
("ae46", "mvp"), -- https://github.com/nickbabcock/boxcars/pull/80
("afb1", "patch 1.37"), -- https://github.com/tfausak/rattletrap/pull/48
("b9f9", "a party leader"), -- https://github.com/tfausak/rattletrap/commit/bba2cfd
("c14f", "some mutators"), -- https://github.com/tfausak/rattletrap/commit/bba2cfd
("c23b", "new psynet id"), -- https://github.com/tfausak/rattletrap/pull/118
("c62c", "more boolean attributes"), -- https://github.com/nickbabcock/boxcars/pull/77
("c837", "a spectator"), -- https://github.com/tfausak/rattletrap/commit/bba2cfd
("cc4c", "after Starbase ARC"), -- https://github.com/tfausak/rattletrap/pull/20
("d044", "hoops mutators"), -- https://github.com/tfausak/rattletrap/pull/34
("d1d5", "v1.68"), -- https://github.com/tfausak/rattletrap/pull/146
("d236", "rlcs s2"), -- https://github.com/tfausak/rattletrap/pull/88
("d428", "a private hockey match"), -- https://github.com/tfausak/rattletrap/commit/4c104b2
("d44c", "ranked tournament"), -- https://github.com/tfausak/rattletrap/pull/167
("d52e", "psynet system id"), -- https://github.com/tfausak/rattletrap/pull/99
("d5d6", "health max"), -- https://github.com/nickbabcock/boxcars/pull/80
("d7fb", "an explosion attribute"), -- https://github.com/tfausak/rattletrap/commit/c554e3e
("d818", "heatseeker"), -- https://github.com/tfausak/rattletrap/pull/160
("db70", "new lag indicator"), -- https://github.com/tfausak/rattletrap/pull/69
("dcab", "weird ball attribute value"), -- https://github.com/tfausak/rattletrap/issues/149
("dcb3", "a pawn type attribute"), -- https://github.com/tfausak/rattletrap/commit/7d7f438
("dd14", "v1.88"), -- https://github.com/tfausak/rattletrap/pull/170
("de56", "a problematic product attribute"), -- https://github.com/tfausak/rattletrap/issues/51
("e2f9", "bTearOff"), -- https://github.com/nickbabcock/boxcars/pull/76
("e80d", "unlimited time"), -- https://github.com/tfausak/rattletrap/pull/76
("e978", "distracted"), -- https://github.com/tfausak/rattletrap/issues/156
("eae3", "an actor/object ID collision"), -- https://github.com/tfausak/rattletrap/commit/d8fad06
("eae8", "custom team colors"), -- https://github.com/tfausak/rattletrap/commit/809240f
("ecd5", "new match guid attribute"), -- https://github.com/tfausak/rattletrap/issues/270
("edbb", "remote role"), -- https://github.com/tfausak/rattletrap/pull/106
("f08e", "post game lobby"), -- https://github.com/jjbott/RocketLeagueReplayParser/issues/46
("f299", "a location attribute"), -- https://github.com/tfausak/rattletrap/commit/21b09c5
("f7b9", "a hockey game event"), -- https://github.com/tfausak/rattletrap/commit/3e16d7f
("f811", "no frames"), -- https://github.com/tfausak/rattletrap/commit/bf4b6af
("fdc7", "an MVP"), -- https://github.com/tfausak/rattletrap/commit/65019d2
("ffb7", "with difficulty") -- https://github.com/tfausak/rattletrap/pull/167
]