Use CL-USER for PROVE package test fragments

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