Changeset 15130


Ignore:
Timestamp:
02/19/19 19:34:44 (3 years ago)
Author:
Mark Evenson
Message:

Use CL-USER for PROVE package test fragments

Location:
trunk/abcl/t
Files:
1 deleted
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/t/pathname.lisp

    r14987 r15130  
    1 (in-package abcl/test)
     1(in-package :cl-user)
    22
    3 (plan 1)
     3(prove:plan 1)
    44(let* ((uri #p"http://example.org/directory/name.version")
    55       (p (make-pathname :host nil :defaults uri)))
    6   (like (namestring p) "^/directory/name.version$"))
     6  (prove:like (namestring p) "^/directory/name.version$"))
    77
    8 (finalize)
     8(prove:finalize)
    99
    1010   
  • trunk/abcl/t/run-program.lisp

    r15041 r15130  
     1(in-package :cl-user)
     2
    13(prove:plan 2)
    24
    3 (prove:ok
    4  (uiop/run-program:run-program "ls" :output t))
     5(let ((program (if (uiop:os-unix-p)
     6                   "ls"
     7                   "dir")))
     8  (prove:is
     9   (uiop/run-program:run-program program :output t)
     10   nil)
    511
    6 (prove:ok
    7  (uiop/run-program:run-program "ls" :output :string))
     12  (prove:ok
     13   (uiop/run-program:run-program program :output :string)))
    814
    915(prove:finalize)
Note: See TracChangeset for help on using the changeset viewer.