More logger specs

spec/logger_spec.cr

@@ -1,6 +1,11 @@
 require "./spec_helper"
 
 describe "Logger" do
+  it "creates a handler" do
+    logger = Kemal::Logger.new
+    logger.handler.should_not be nil
+  end
+
   it "creates a STDOUT handler by default" do
     config = Kemal.config
     logger = Kemal::Logger.new
@@ -13,4 +18,15 @@ describe "Logger" do
     logger = Kemal::Logger.new
     logger.handler.should be_a File
   end
+
+  it "writes to a file in production" do
+    config = Kemal.config
+    config.env = "production"
+    logger = Kemal::Logger.new
+    request = HTTP::Request.new("GET", "/?message=world&time=now")
+    logger.call request
+    str = File.read("kemal.log")
+    File.delete("kemal.log")
+    str.includes?("GET /?message=world&time=now").should eq true
+  end
 end

src/kemal/logger.cr

@@ -4,7 +4,7 @@ class Kemal::Logger < HTTP::Handler
   def initialize
     @env = Kemal.config.env
     @handler = if @env == "production"
-      File.new("kemal.log", "a+")
+                 File.new("kemal.log", "a")
                else
                  STDOUT
                end
@@ -35,7 +35,7 @@ class Kemal::Logger < HTTP::Handler
 
   def write(message)
     if @env == "production"
-      @handler.write message.to_slice
+      File.write "kemal.log", message
     else
       @handler.print message
     end