tests/test-connection.lisp

   1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
   2 ;;;; ======================================================================
   3 ;;;; File:    test-connection.lisp
   4 ;;;; Authors: Marcus Pearce <m.t.pearce@city.ac.uk>, Kevin Rosenberg
   5 ;;;; Created: 30/03/2004
   6 ;;;; Updated: $Id$
   7 ;;;; ======================================================================
   8 ;;;;
   9 ;;;; Description ==========================================================
  10 ;;;; ======================================================================
  11 ;;;;
  12 ;;;; Tests for CLSQL database connections.
  13 ;;;;
  14 ;;;; ======================================================================
  15
  16 (in-package #:clsql-tests)
  17
  18 (setq *rt-connection*
  19       '(
  20
  21 (deftest :connection/1
  22     (let ((database (clsql:find-database
  23                      (clsql:database-name clsql:*default-database*)
  24                      :db-type (clsql:database-type clsql:*default-database*))))
  25       (eql (clsql:database-type database) *test-database-type*))
  26   t)
  27
  28 (deftest :connection/2
  29     (clsql-base-sys::string-to-list-connection-spec
  30      "localhost/dbname/user/passwd")
  31   ("localhost" "dbname" "user" "passwd"))
  32
  33 (deftest :connection/3
  34     (clsql-base-sys::string-to-list-connection-spec
  35      "dbname/user@hostname")
  36   ("hostname" "dbname" "user"))
  37
  38 ))