-
Notifications
You must be signed in to change notification settings - Fork 0
/
suite.lisp
37 lines (33 loc) · 1.55 KB
/
suite.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
;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; indent-tabs-mode: nil -*-
(in-package :Eos)
(def-suite Eos)
#+asdf
(defmethod asdf:perform ((op asdf:test-op) (system (eql (asdf:find-system :Eos-tests))))
(format t "~2&********************~@
** Starting tests **~@
********************~%")
(run! 'Eos)
(format t "~2&*****************************************~@
** Tests finished **~@
*****************************************~@
** If there were any failures on your **~@
** platform, please report them to me: **~@
** (munchking at gmail dot com) **~@
** or just file a bugreport on github: **~@
** github.com/adlai/Eos/issues **~@
*****************************************~%"))
#-asdf
(defun run-self-tests ()
(format t "~2&********************~@
** Starting tests **~@
********************~%")
(run! 'Eos)
(format t "~2&*****************************************~@
** Tests finished **~@
*****************************************~@
** If there were any failures on your **~@
** platform, please report them to me: **~@
** (munchking at gmail dot com) **~@
** or just file a bugreport on github: **~@
** github.com/adlai/Eos/issues **~@
*****************************************~%"))