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

(in-package :hu.dwim.perec.test)

(def special-variable *oracle-database* (make-instance 'hu.dwim.rdbms.oracle:oracle
                                                       :transaction-mixin 'transaction-mixin
                                                       :default-result-type 'vector
                                                       :muffle-warnings #t
                                                       :connection-specification '(:datasource "(ADDRESS = (PROTOCOL = TCP)
                                                                                                           (HOST = localhost)
                                                                                                           (PORT = 1521))"
                                                                                   :user-name "hu.dwim.perec.test"
                                                                                   :password "engedjbe")))

(def test (test/oracle :in test) ()
  (with-database *oracle-database*
    (with-new-compiled-query-cache
      (test/backend))))