reloadAndTest :: String -> String -> String -> Repl ()
reloadAndTest cmd exp err = do
  reload
  replCommand cmd
  line <- replGetLine
  unless (exp `isSuffixOf` line) $ error err
reloadAndTest :: String -> String -> String -> Repl ()
reloadAndTest cmd exp err = do
  reload
  replCommand cmd
  line <- replGetLine
  unless (exp `isSuffixOf` line) $ error err
reloadAndTest cmd exp err = do
  reload
  replCommand cmd
  line <- replGetLine
  unless (exp `isSuffixOf` line) $ error err