Commits

Doug Burke committed a531f2b

runw3ctests: ensure space between file name and test result

Comments (0)

Files changed (3)

   Updated the upper bound on the semigroup dependency (thanks to Leif
   Warner).
 
-  Display library version when running the runw3ctests executable.
+  Display library version when running the runw3ctests executable
+  and ensure there is a space between file name and test result in the
+  screen output.
 
 0.9.0.7
 

app/RunW3CTests.hs

 nopass :: String -> IO (Maybe String)
 nopass e = putStrLn "[FAIL]" >> failedAction e
 
+-- Ensure that the string ends in a space; it may exceed
+-- 60 characters (ASCII) wide.
 ljust :: String -> IO ()
 ljust m =
-  putStr $ m ++ replicate (60 - length m) ' '
+  putStr $ m ++ replicate (59 - length m) ' ' ++ " "
 
 -- | Compare the two files.
 evalAction ::
   * Updated the upper bound on the semigroup dependency (thanks to 
   Leif Warner).
   .
-  * Display library version when running the @runw3ctests@ executable.
+  * Display library version when running the @runw3ctests@ executable
+  and ensure there is a space between file name and test result in the
+  screen output.
   .
   Changes in version @0.9.0.7@:
   .