From 095a1be659e29a382976b76ed1862982bed43b76 Mon Sep 17 00:00:00 2001 From: Katherine Cox-Buday Date: Fri, 7 Jun 2019 16:09:25 -0500 Subject: [PATCH 12/15] gnu: Add symbol-munger, lisp-unit2. Please note that there is a cyclical dependency between these two packages. This is the reason I have placed them both in a single commit. * gnu/packages/lisp.scm (symbol-munger): New variable. * gnu/packages/lisp.scm (lisp-unit2): New variable. --- gnu/packages/lisp.scm | 140 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 140 insertions(+) diff --git a/gnu/packages/lisp.scm b/gnu/packages/lisp.scm index 5c3ebb6b57..d21ed5e8cc 100644 --- a/gnu/packages/lisp.scm +++ b/gnu/packages/lisp.scm @@ -5942,3 +5942,143 @@ doesn't support them.") (define-public ecl-cl-interpol (sbcl-package->ecl-package sbcl-cl-interpol)) + +;; See https://github.com/AccelerationNet/symbol-munger/issues/4 +(define-public sbcl-symbol-munger-boot0 + (let ((commit "cc2bb4b7acd454d756484aec81ba487648385fc3") + (revision "1")) + (package + (name "sbcl-symbol-munger-boot0") + (version (git-version "0.0.1" revision commit)) + (source + (origin + (method git-fetch) + (uri + (git-reference + (url + "https://github.com/AccelerationNet/symbol-munger.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0diav5ricqsybqvbp4bkxyj3bn3v9n7xb2pqqc4vg1algsw2pyjl")))) + (build-system asdf-build-system/sbcl) + (arguments + `(#:asd-file "symbol-munger.asd" + #:asd-system-name "symbol-munger")) + (inputs + `(("sbcl-iterate" ,sbcl-iterate) + ("sbcl-alexandria" ,sbcl-alexandria))) + (native-inputs + `(("sbcl-lisp-unit" ,sbcl-lisp-unit))) + (synopsis + "A common lisp library to help convert english and lisp-symbols +into each other and various formats.") + (description + "A common lisp library to help convert english and lisp-symbols +into each other and various formats.") + (home-page "https://github.com/AccelerationNet/symbol-munger") + ;; The package declares a BSD license, but all of the license + ;; text is MIT. See: + ;; https://github.com/AccelerationNet/symbol-munger/issues/5 + (license license:expat)))) + +(define-public sbcl-symbol-munger + (let ((commit "97598d4c3c53fd5da72ab78908fbd5d8c7a13416") + (revision "1")) + (package + (name "sbcl-symbol-munger") + (version (git-version "0.0.1" revision commit)) + (source + (origin + (method git-fetch) + (uri + (git-reference + (url + "https://github.com/AccelerationNet/symbol-munger.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0y8jywjy0ldyhp7bxf16fdvdd2qgqnd7nlhlqfpfnzxcqk4xy1km")))) + (build-system asdf-build-system/sbcl) + (inputs + `(("sbcl-iterate" ,sbcl-iterate) + ("sbcl-alexandria" ,sbcl-alexandria))) + (native-inputs + `(("sbcl-lisp-unit2-boot0" ,sbcl-lisp-unit2-boot0))) + (synopsis + "A common lisp library to help convert english and lisp-symbols +into each other and various formats.") + (description + "A common lisp library to help convert english and lisp-symbols +into each other and various formats.") + (home-page "https://github.com/AccelerationNet/symbol-munger") + ;; The package declares a BSD license, but all of the license + ;; text is MIT. See: + ;; https://github.com/AccelerationNet/symbol-munger/issues/5 + (license license:expat)))) + +(define-public cl-symbol-munger + (sbcl-package->cl-source-package sbcl-symbol-munger)) + +(define-public ecl-symbol-munger + (sbcl-package->ecl-package sbcl-symbol-munger)) + +;; See https://github.com/AccelerationNet/symbol-munger/issues/4 +(define-public sbcl-lisp-unit2-boot0 + (let ((commit "fb9721524d1e4e73abb223ee036d74ce14a5505c") + (revision "1")) + (package + (name "sbcl-lisp-unit2-boot0") + (version (git-version "0.2.0" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/AccelerationNet/lisp-unit2.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1rsqy8y0jqll6xn9a593848f5wvd5ribv4csry1ly0hmdhfnqzlp")))) + (build-system asdf-build-system/sbcl) + (arguments + `(#:asd-file "lisp-unit2.asd" + #:asd-system-name "lisp-unit2")) + (inputs + `(("sbcl-alexandria" ,sbcl-alexandria) + ("sbcl-cl-interpol" ,sbcl-cl-interpol) + ("sbcl-iterate" ,sbcl-iterate) + ("sbcl-symbol-munger-boot0" ,sbcl-symbol-munger-boot0))) + (synopsis + "A Test Framework for Common Lisp in the style of JUnit, +designed and implemented with simplicity of use in mind.") + (description + "lisp-unit2 is a Common Lisp library that supports unit +testing. It is a new version of a library of the lisp-unit library +written by Chris Riesbeck. There is a long history of testing packages +in Lisp, usually called \"regression\" testers. More recent packages +in Lisp and other languages have been inspired by JUnit for Java. +Recently longtime users at Acceleration.net felt motivated to refactor +significantly, attempting to make some broad improvements to the +library while maintaining its benefits and workflow") + (home-page "https://github.com/AccelerationNet/lisp-unit2") + ;; MIT License + (license license:expat)))) + +(define-public sbcl-lisp-unit2 + (package + (inherit sbcl-lisp-unit2-boot0) + (name "sbcl-lisp-unit2") + (inputs + `(("sbcl-alexandria" ,sbcl-alexandria) + ("sbcl-cl-interpol" ,sbcl-cl-interpol) + ("sbcl-iterate" ,sbcl-iterate) + ("sbcl-symbol-munger" ,sbcl-symbol-munger))))) + +(define-public cl-lisp-unit2 + (sbcl-package->cl-source-package sbcl-lisp-unit2)) + +(define-public ecl-lisp-unit2 + (sbcl-package->ecl-package sbcl-lisp-unit2)) -- 2.17.1