aycan@fgt:~/haskell/snap-server/test$ ./runTestsAndCoverage.sh
Snap.Internal.Http.Parser.Tests:
  show: [OK]
  parseCookie: [OK]
  chunked transfer encoding: [OK, passed 1000 tests]
  chunk . unchunk == id: [OK, passed 1000 tests]
  testBothChunkedBuffered1: [Failed]
Falsifiable with seed 8872790038128987215, after 2 tests. Reason: Exception: 'control message: Just (Err "not enough bytes")'
  testBothChunkedBuffered2: [Failed]
Falsifiable with seed 932625037523277916, after 6 tests. Reason: Exception: 'control message: Just (Err "not enough bytes")'
  testBothChunkedPipelined: [Failed]
Falsifiable with seed 541339176753527045, after 4 tests. Reason: Exception: 'control message: Just (Err "not enough bytes")'
  testBothChunkedEmpty: [Failed]
ERROR: control message: Just (Err "not enough bytes")
  parserToIteratee: [OK]
  short parse: [OK]
  partial parse: [OK]
  iteratee error: [OK]
  iteratee error 2: [OK]
  parse error: [OK]
  formEncoded: [OK]
Snap.Internal.Http.Server.Tests:
  HttpRequest1: [OK]
  MultiRequest: [OK]
  HttpRequest2: [OK]
  HttpRequest3: [OK]
  HttpResponse1: [OK]
  HttpResponse2: [OK]
  HttpResponse3: [OK]
  http session: [OK]
  connection: close: [OK]
  Short: [OK]
  method parsing: [OK]
  startup/shutdown: [OK]
  transfer-encoding chunked: [OK]
  sendFile: [OK]

         Properties  Test Cases   Total
 Passed  2           23           25
 Failed  3           1            4
 Total   5           24           29