diff options
author | Pierre Neidhardt <mail@ambrevar.xyz> | 2018-10-01 15:29:24 +0200 |
---|---|---|
committer | Pierre Neidhardt <mail@ambrevar.xyz> | 2018-10-19 17:54:12 +0200 |
commit | 5b8a801d164634e1b34eb49a29c96bc7a1d1fac4 (patch) | |
tree | 86e67f3eee05b78d43893669f821947a598b2d62 /gnu | |
parent | 9f3000cc11c0b0bb3c8da5dc5f4390243f1e0321 (diff) | |
download | guix-5b8a801d164634e1b34eb49a29c96bc7a1d1fac4.tar.gz |
gnu: Add lift.
* gnu/packages/lisp.scm (cl-lift, ecl-lift, sbcl-lift): New variables.
Diffstat (limited to 'gnu')
-rw-r--r-- | gnu/packages/lisp.scm | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/gnu/packages/lisp.scm b/gnu/packages/lisp.scm index 967b648506..e6dc798407 100644 --- a/gnu/packages/lisp.scm +++ b/gnu/packages/lisp.scm @@ -2364,6 +2364,49 @@ new fiends in addition to old friends like @command{aif} and (define-public ecl-anaphora (sbcl-package->ecl-package sbcl-anaphora)) +(define-public sbcl-lift + (let ((commit "7d49a66c62759535624037826891152223d4206c")) + (package + (name "sbcl-lift") + (version (git-version "0.0.0" "1" commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/gwkkwg/lift") + (commit commit))) + (sha256 + (base32 + "127v5avpz1i4m0lkaxqrq8hrl69rdazqaxf6s8awf0nd7wj2g4dp")) + (file-name (git-file-name "lift" version)))) + (build-system asdf-build-system/sbcl) + (arguments + ;; The tests require a debugger, but we run with the debugger disabled. + '(#:tests? #f + #:phases + (modify-phases %standard-phases + ;; Do this to ensure the 'reset-gzip-timestamps phase works. + (add-after 'unpack 'make-gzips-writeable + (lambda _ + (for-each (lambda (file) + (chmod file #o755)) + (find-files "." "\\.gz$"))))))) + (synopsis "LIsp Framework for Testing") + (description + "The LIsp Framework for Testing (LIFT) is a unit and system test tool for LISP. +Though inspired by SUnit and JUnit, it's built with Lisp in mind. In LIFT, +testcases are organized into hierarchical testsuites each of which can have +its own fixture. When run, a testcase can succeed, fail, or error. LIFT +supports randomized testing, benchmarking, profiling, and reporting.") + (home-page "https://github.com/gwkkwg/lift") + (license license:x11-style)))) + +(define-public cl-lift + (sbcl-package->cl-source-package sbcl-lift)) + +(define-public ecl-lift + (sbcl-package->ecl-package sbcl-lift)) + (define-public sbcl-ascii-strings (let ((revision "1") (changeset "5048480a61243e6f1b02884012c8f25cdbee6d97")) |