Commit 916e99a8 authored by Daniel Kochmański's avatar Daniel Kochmański

tests: don't import symbols from mon

parent 8c74ad6c
;;; Ensure the package ;;; Ensure the package
(defpackage #:metering/test (defpackage #:metering/test
(:use #:cl #:5am #:mon)) (:use #:cl #:5am))
(in-package #:metering/test) (in-package #:metering/test)
;;; Ensure the suite ;;; Ensure the suite
...@@ -25,11 +25,12 @@ ...@@ -25,11 +25,12 @@
(test monitor-null (test monitor-null
"Check if adding non-existant function doesn't change the list of "Check if adding non-existant function doesn't change the list of
monitored functions" monitored functions"
(is (equal (monitor nil) (is (equal (mon:monitor nil)
(monitor xyz)))) (mon:monitor xyz))))
(test with-monitoring (test with-monitoring
"Monitor two functions" "Monitor two functions"
(finishes (with-monitoring (test-fun-1 test-fun-2) () (finishes (mon:with-monitoring (test-fun-1 test-fun-2) ()
(dotimes (v 1001)
(test-fun-1) (test-fun-1)
(test-fun-2 1)))) (test-fun-2 1)))))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment