Just a quick sanity check that sinks and sources basically work.

<<sinks>>=
(def-test-fixture sinkfix ()
    ((asource :accessor asource)
     (asink :accessor asink)

    )
)
(defmethod setup ((sf sinkfix))
    (setf (asource sf) (make-function-source get-true))
    (setf (asink sf) (make-sink (addr-value *boolean-type*) (asource sf)))
)

(defmethod test-make-sink ((sf sinkfix))
    (unless (addr-equal (function-apply *switchboard* (asink sf))
                (asource sf))
            (failure "Sink-source wasn't the source we put in")
    )
)

(add-test
    (make-test-suite "Evaluation Test Suite" "Test eval module"
        ("TEST-SINK" 'sinkfix :test-thunk 'test-make-sink)
    )
    max-test-suite
)

;; results in a count of  5 tests added to the suite, not 1??
;; (possible bug in test suite)
;(add-test (make-test-case 'test-sink 'sinkfix :test-thunk 'test-make-sink)
;    max-test-suite
;)

@