make clear that play command accept both GME and YAML file (#235)

* make clear that play command accept both GME and YAML file

* make succeed the tests on the global help with the new help text of the play command

* make succeed the tests on play command's help

* make succeed all the tests on play command's help

Author: exmackina

src/tttool.hs

@@ -318,9 +318,15 @@ playCmd :: Mod CommandFields (Conf -> IO ())
 playCmd =
     command "play" $
     info parser $
-    progDesc "interactively play a GME file"
+    progDesc "interactively play a GME or YAML file"
   where
-    parser = flip play <$> gmeFileParser
+    parser = flip play <$> gmeOrYamlFileParser
+
+    gmeOrYamlFileParser :: Parser FilePath
+    gmeOrYamlFileParser = strArgument $ mconcat
+        [ metavar "FILE"
+        , help "GME or YAML file to read"
+        ]
 
 
 rewriteCmd :: Mod CommandFields (Conf -> IO ())

testsuite/expected/help-play.txt

@@ -1,6 +1,6 @@
-Usage: tttool play GME
-  interactively play a GME file
+Usage: tttool play FILE
+  interactively play a GME or YAML file
 
 Available options:
-  GME                      GME file to read
+  FILE                     GME or YAML file to read
   -h,--help                Show this help text

testsuite/expected/help.txt

@@ -47,6 +47,6 @@ GME extraction commands:
   binaries                 dumps all binaries
 
 Simulation commands:
-  play                     interactively play a GME file
+  play                     interactively play a GME or YAML file
 
 Please run "tttool COMMAND --help" for information on the particular command.