Use CL-USER for PROVE package test fragments

parent a923e43b
(defpackage abcl/test/t
(:use :cl :prove)
(:export
#:install))
(defpackage abcl/test
(:use :cl :prove))
(defpackage abcl/test/t/maven
(:use :cl))
(in-package abcl/test)
(in-package :cl-user)
(plan 1)
(prove:plan 1)
(let* ((uri #p"http://example.org/directory/name.version")
(p (make-pathname :host nil :defaults uri)))
(like (namestring p) "^/directory/name.version$"))
(prove:like (namestring p) "^/directory/name.version$"))
(finalize)
(prove:finalize)
(in-package :cl-user)
(prove:plan 2)
(prove:ok
(uiop/run-program:run-program "ls" :output t))
(let ((program (if (uiop:os-unix-p)
"ls"
"dir")))
(prove:is
(uiop/run-program:run-program program :output t)
nil)
(prove:ok
(uiop/run-program:run-program "ls" :output :string))
(prove:ok
(uiop/run-program:run-program program :output :string)))
(prove:finalize)
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