(use gauche.test)

(test-start "scmail.progress")
(use scmail.progress)

(test-module 'scmail.progress)

(test "progress" #t
      (lambda ()
        (let1 progress (make <progress> 
                         :total 100 
                         :port (current-output-port)
                         :title "test")
              (dotimes (i 100)
                       (sys-nanosleep 10000000)
                       (progress-inc! progress))
              (progress-finish! progress))
        #t))

(test-end)

