{$MODE OBJFPC} { -*- delphi -*- }
{$INCLUDE settings.inc}
program test_game_roundtripping;
uses
   game, refgamebits, storable; {BOGUS Hint: Unit "refgamebits" not used in test_game_roundtripping}

var
   TheGame: TGame;
begin
   // just checking for no crashes and memory leaks
   TheGame := TGame.Create('tests/universe.$$$', 'tests/simpletech.tt');
   TheGame.Save();
   TheGame.Free();
   TheGame := ReadObjectFromFile('tests/universe.$$$') as TGame;
   TheGame.Free();
   // same, but with a more complicated tech tree
   TheGame := TGame.Create('tests/universe.$$$', 'tests/complextech.tt');
   TheGame.Save();
   TheGame.Free();
   TheGame := ReadObjectFromFile('tests/universe.$$$') as TGame;
   TheGame.Free();
   // same, but with the real tech tree
   TheGame := TGame.Create('tests/universe.$$$', 'development.tt');
   TheGame.Save();
   TheGame.Free();
   TheGame := ReadObjectFromFile('tests/universe.$$$') as TGame;
   TheGame.Free();
end.