;;; -*- mode: Lisp; Syntax: Common-Lisp; -*-
;;;
;;; Copyright (c) 2009 by the authors.
;;;
;;; See LICENCE for details.

(in-package :hu.dwim.dises.test)

(defun one-day ()
  (bind ((time (simulation-time-of *simulator*)))
    (format t "~%~A" time)
    (schedule-delayed +seconds-per-day+ 'one-day)))

(deftest test/wall-time/non-synchronized ()
  (with-simulator (make-instance 'simulator :simulation-time (parse-timestring "2007-01-01"))
    (schedule-now 'one-day)
    (pause-at (parse-timestring "2008-01-01"))
    (run-simulator)))

(deftest test/wall-time/synchronized ()
  (with-simulator (make-instance 'synchronized-simulator
                                 :simulation-time (parse-timestring "2007-01-01")
                                 :simulation-time-to-wall-time-ratio (* 10 +seconds-per-day+))
    (schedule-now 'one-day)
    (pause-at (parse-timestring "2008-01-01"))
    (run-simulator)))