]>
Commit | Line | Data |
---|---|---|
f67539c2 TL |
1 | ;;;; Licensed under the Apache License, Version 2.0 (the "License"); |
2 | ;;;; you may not use this file except in compliance with the License. | |
3 | ;;;; You may obtain a copy of the License at | |
4 | ;;;; | |
5 | ;;;; http://www.apache.org/licenses/LICENSE-2.0 | |
6 | ;;;; | |
7 | ;;;; Unless required by applicable law or agreed to in writing, software | |
8 | ;;;; distributed under the License is distributed on an "AS IS" BASIS, | |
9 | ;;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. | |
10 | ;;;; See the License for the specific language governing permissions and | |
11 | ;;;; limitations under the License. | |
12 | ||
13 | ;;;; This file is used to build the binary that runs all self-tests. The | |
14 | ;;;; binary is then meant to be hooked up to Thrift's `make check` facility, | |
15 | ;;;; but can easily be run on its own as well. | |
16 | ||
17 | (in-package #:cl-user) | |
18 | ||
19 | (require "asdf") | |
20 | (load (merge-pathnames "../load-locally.lisp" *load-truename*)) | |
21 | (asdf:load-asd (merge-pathnames "../lib/de.setf.thrift-backport-update/test/thrift-test.asd" *load-truename*)) | |
22 | (asdf:load-system :thrift-test) | |
23 | (asdf:load-system :net.didierverna.clon) | |
24 | ||
25 | (net.didierverna.clon:nickname-package) | |
26 | ||
27 | (defun main () | |
28 | (let ((result (if (fiasco:run-tests 'thrift-test) 0 -1))) | |
29 | (clon:exit result))) | |
30 | ||
31 | (clon:dump "run-tests" main) |