(module log-test mzscheme
  
  (require
   (planet "test.ss" ("schematics" "schemeunit.plt" 2 0))
   (file "log.ss")
   )
  
  (provide 
   log-tests
   )

  (define log-tests
    (test-suite
     "log.ss"

     (test-case
       "log-generic produces a simple message"
       (let ([out (open-output-string)])
         (with-log-port out
           (log-generic 'X (list "a" "b" "c" 1 2 3 #t #f)))
         (check-equal?
          (get-output-string out)
          "X,\"a\",\"b\",\"c\",1,2,3,#t,#f\n")))

      (test-case
       "log-message produces a simple message"
       (let ([out (open-output-string)])
         (with-log-port out
           (log-message "a" "b" "c" 1 2 3 #t #f))
         (check-equal?
          (get-output-string out)
          "M,\"a\",\"b\",\"c\",1,2,3,#t,#f\n")))
      
      (test-case
       "log-warning produces a simple message"
       (let ([out (open-output-string)])
         (with-log-port out
           (log-warning "a" "b" "c" 1 2 3 #t #f))
         (check-equal?
          (get-output-string out)
          "W,\"a\",\"b\",\"c\",1,2,3,#t,#f\n")))
      
      (test-case
       "log-error produces a simple message"
       (let ([out (open-output-string)])
         (with-log-port out
           (log-error "a" "b" "c" 1 2 3 #t #f))
         (check-equal?
          (get-output-string out)
          "E,\"a\",\"b\",\"c\",1,2,3,#t,#f\n")))

      (test-case
       "setting current-log-preamble adds printout to the beginning of a message"
       (let ([out (open-output-string)])
         (with-log-preamble
             (lambda ()
               (list "x" "y" "z" 1 2 3 #t #f))
           (with-log-port out
             (log-message "a" "b" "c" 1 2 3 #t #f)))
         (check-equal?
          (get-output-string out)
          "M,\"x\",\"y\",\"z\",1,2,3,#t,#f,\"a\",\"b\",\"c\",1,2,3,#t,#f\n")))

    ))

  )