test-examples.cl

   1 (mk:load-system :uffi)
   2
   3 (pushnew :test-uffi cl:*features*)
   4
   5 (flet ((load-test (name)
   6          (load (merge-pathnames
   7                 (make-pathname :name name
   8                                :type "cl"
   9                                :directory '(:relative "examples"))
  10                 *load-truename*))))
  11
  12   (load-test "strtol")
  13   (load-test "gettime")
  14   (load-test "getenv")
  15   (load-test "gethostname")
  16   (load-test "getshells")
  17   (load-test "compress"))
  18
  19 (setq cl:*features* (remove :test-uffi cl:*features*))
  20
  21
  22