;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; This file is part of "NOVA":  NOVA = search + COCOMO tools
; Copyright, 2008, Tim Menzies tim@menzies.us
;
; NOVA is free software: you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation, either version 3 of the License, or
; (at your option) any later version.
;
; NOVA is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
; GNU General Public License for more details.
; You should have received a copy of the GNU General Public License
; a long with NOVA.  If not, see <http://www.gnu.org/licenses/>.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(in-package :xomo-test.model)

(deftestsuite effort-model-xomo-test-suite (fresh-default-xomo-db-test-suite-mixin xomo-tests) ())

(addtest check-effort
  (ensure-no-warning (effort))
  (ensure (numberp (effort))))

(addtest demo-effort
  (ensure-no-warning
    (let (out)
      (format t "~&Effort estimates, sorted~%")
      (format t "~a"
              (dotimes (i 10 (sort out #'<))
                (zaps)
                (push (effort) out))))))

(addtest demo-effort-distogram
  (ensure-no-warning
    (let ((d (make-dist :fuzz 20000)))
      (dotimes (i 1000)
        (zaps)
        (dist-add (effort) d))
      (format t "~&Effort estimates, rounded to the nearest 20000~%")
      (distogram d :shrink 20 :lwidth 10 :rwidth 6))))