test/pkgdcl.lisp

   1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-lisp; Base: 10; Package: CL-USER -*-
   2 ;;;; The above modeline is required for Genera. Do not change.
   3
   4 (defpackage :bordeaux-threads-2/test
   5   (:use :common-lisp :alexandria :bordeaux-threads-2 :fiveam)
   6   (:import-from :bordeaux-threads-2
   7                 #:mark-not-implemented #:*not-implemented*
   8                 #:implemented-p #:implemented-p*)
   9   (:shadow #:is))
  10
  11 (in-package :bordeaux-threads-2/test)
  12
  13 (def-suite :bordeaux-threads-2)
  14
  15 (defmacro is (test &rest reason-args)
  16   (with-gensyms (c)
  17     `(handler-case
  18          (5am:is ,test ,@reason-args)
  19        ((or bt2::operation-not-implemented
  20          bt2::keyarg-not-implemented) (,c)
  21          (declare (ignore ,c))
  22          (5am:skip "Skipping operations that are not implemented")))))