examples/test-all-examples.cl

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