(require 'asdf)
(require 'cffi)
(require 'verrazano-support)

(cffi:load-foreign-library "libvfun.so")
(load "testsuite/vfun/vfun-library.lisp")

(defpackage "TEST-VFUN"
  (:use "COMMON-LISP" "VFUN-LIBRARY"))

(in-package "TEST-VFUN")

(let ((pr (baser-new-1 3))
      (pb (base-new-1 5))
      (pd (derived-new-1 7)))
  (format t "~A ~A ~A~%" 
	  (baser-get-value pr)
	  (base-get-value pb)
	  (base-get-value pd)))