;;; -*- mode: Lisp; Syntax: Common-Lisp; -*-
;;;
;;; Copyright (c) 2009 by the authors.
;;;
;;; See LICENCE for details.

(in-package :hu.dwim.remote-eval.test)

(def test test/simple (port expression &optional (message-processor #'eval))
  (bind ((server (startup-server port message-processor))
         (connection (connect-server "127.0.0.1" port)))
    (prog1
        (remote-eval connection expression)
      (disconnect-server connection)
      (shutdown-server server))))