test-version.script 641 Bytes
Newer Older
1
;;; -*- Lisp -*-
2
(load "script-support.lisp")
3
(load-asdf)
4

5
(with-test ()
6
 (def-test-system :versioned-system-1
7
   :pathname #.*test-directory*
8
   :version "1.0")
9

10
 (def-test-system :versioned-system-2
11
   :pathname #.*test-directory*
12
   :version "1.1")
13

14
 (def-test-system :versioned-system-3
15
   :pathname #.*test-directory*
16
   :version "1.2")
17

18
 (flet ((test (name v &optional (true t))
19
          (or (eq true (version-satisfies (find-system name) v))
20
              (error "no satisfaction: ~S version ~A not ~A" name v true))))
21 22
   (test :versioned-system-1 "1.0")
   (test :versioned-system-2 "1.0")
23
   (test :versioned-system-3 "2.0" nil)))