-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathcacau-examples-timeout.lisp
45 lines (36 loc) · 1.27 KB
/
cacau-examples-timeout.lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
(defpackage #:cacau-examples-timeout
(:use #:common-lisp
#:assert-p
#:cacau))
(in-package #:cacau-examples-timeout)
;;; timeout-in-suites
(defsuite :suite-1 ((:timeout 0))
(deftest "Test-1" () (t-p t)) ;; Timeout Error: Time(0) extrapolated!
(deftest "Test-2" () (t-p t))) ;; Timeout Error: Time(0) extrapolated!
(run :colorful t
:reporter :full)
(format t "~%")
;;; timeout-in-hooks
(defsuite :suite-1 ()
(defbefore-all "Before-all" ((:timeout 0))) ;; Timeout Error: Time(0) extrapolated!
(deftest "Test-1" () (t-p t))
(deftest "Test-2" () (t-p t)))
(run :colorful t
:reporter :full)
(format t "~%")
;;; timeout-in-tests
(defsuite :suite-1 ()
(deftest "Test-1" ((:timeout 0)) (t-p t)) ;; Timeout Error: Time(0) extrapolated!
(deftest "Test-2" () (t-p t)))
(run :colorful t
:reporter :full)
(format t "~%")
;;; timeout-in-tests-with-suites-timeout-configured
(defsuite :suite-1 ((:timeout 0))
(deftest "Test-1" () (t-p t)) ;; Timeout Error: Time(0) extrapolated!
(deftest "Test-2" () (t-p t)) ;; Timeout Error: Time(0) extrapolated!
(defsuite :suite-2 ((:timeout 50000))
(deftest "Test-1" ((:timeout 0)) (t-p t)) ;; Timeout Error: Time(0) extrapolated!
(deftest "Test-2" () (t-p t))))
(run :colorful t
:reporter :full)