clean up newline handling for cli mode output

diff --git a/lib/Web/Simple/Application.pm b/lib/Web/Simple/Application.pm
index fdf8369..9272b91 100644 (file)
--- a/lib/Web/Simple/Application.pm
+++ b/lib/Web/Simple/Application.pm
@@ -102,7 +102,9 @@ sub _run_test_request {
   );
   print STDERR $response->status_line."\n";
   print STDERR $response->headers_as_string("\n")."\n";
-  print STDOUT $response->content."\n";
+  my $content = $response->content;
+  $content .= "\n" if length($content) and $content !~ /\n\z/;
+  print STDOUT $content if $content;
 }
 
 sub _run_cli {