Commit 408d68f9 authored by Eric Timmons's avatar Eric Timmons
Browse files

Initial commit

parents
;;;; CLPM-Demo System Definition
;;;;
;;;; This software is part of CLPM. See README.org for more information. See
;;;; LICENSE for license information.
(defsystem #:clpm-demo-test
:version "0.1.0"
:description "CLPM Demo Test System"
:license "BSD-2-Clause"
:depends-on (#:clpm-demo)
:components
((:file "test")))
;;;; CLPM-Demo System Definition
;;;;
;;;; This software is part of CLPM. See README.org for more information. See
;;;; LICENSE for license information.
(defsystem #:clpm-demo
:version "0.1.0"
:description "CLPM Demo System"
:license "BSD-2-Clause"
:depends-on (#:alexandria)
:in-order-to ((test-op (load-op "clpm-demo-test")))
:perform (test-op (op c) (unless (symbol-call :fiveam :run! :clpm-demo)
(error "Test failure!")))
:components
((:file "demo")))
(uiop:define-package #:clpm-demo
(:use #:cl
#:alexandria)
(:export #:my-iota))
(in-package #:clpm-demo)
(defun my-iota (n)
(iota n :start 1))
(uiop:define-package #:clpm-demo-test
(:use #:cl
#:clpm-demo
#:fiveam))
(in-package #:clpm-demo-test)
(def-suite :clpm-demo)
(in-suite :clpm-demo)
(def-test my-iota-test ()
(is (equal '(1 2 3 4 5) (my-iota 5))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment