;; (C) 2006,2007,2008,2009 Matthew Welland matt@kiatoa.com
;;  
;;   License GPL.

(use test srfi-69 regex-literals)

(include "logprocessor.scm")

(define regexs (list (regexp "^hello$")(regexp "\\s+goodbye\\s+")))

(test "misc:line-match-regexs" "hello" (misc:line-match-regexs "hello" regexs))

(define *sections* '())

(test "add trigger"      1 (begin (trigger "Trigger1" (regexp "Test patt1"))
				  (length *triggers*)))

(test "register a section" 1 (begin (section "Nada" "Start" "End")
				  (length *sections*)))

(test "add an expect" 1 (begin (expect in "Nada" < 1 "Error 1" (regexp "foo"))
			       (length (hash-table-keys *expects*))))

(test "load a command file" #t (begin (load "example.logpro") #t))

;; (use trace)
;; (trace analyze-logfile)
;; (trace adj-active-sections)
;; (trace filter)
;; (trace sort)

(test "analyze loaded logfile" #t (with-input-from-file "example.log"
				    (lambda ()
				      (analyze-logfile) #t)))