tests/test-internal.lisp

   1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
   2 ;;;; *************************************************************************
   3 ;;;; FILE IDENTIFICATION
   4 ;;;;
   5 ;;;; Name:    test-internal.lisp
   6 ;;;; Purpose: Tests for internal clsql functions
   7 ;;;; Author:  Kevin M. Rosenberg
   8 ;;;; Created: May 2004
   9 ;;;;
  10 ;;;; $Id$
  11 ;;;;
  12 ;;;; This file, part of CLSQL, is Copyright (c) 2004 by Kevin M. Rosenberg
  13 ;;;;
  14 ;;;; CLSQL users are granted the rights to distribute and use this software
  15 ;;;; as governed by the terms of the Lisp Lesser GNU Public License
  16 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
  17 ;;;; *************************************************************************
  18
  19 (in-package #:clsql-tests)
  20
  21 (setq *rt-internal*
  22   '(
  23     (deftest :int/convert/1
  24         (clsql-sys::prepared-sql-to-postgresql-sql "SELECT FOO FROM BAR")
  25       "SELECT FOO FROM BAR")
  26
  27     (deftest :int/convert/2
  28         (clsql-sys::prepared-sql-to-postgresql-sql "SELECT FOO FROM BAR WHERE ID=?")
  29       "SELECT FOO FROM BAR WHERE ID=$1")
  30
  31     (deftest :int/convert/3
  32         (clsql-sys::prepared-sql-to-postgresql-sql "SELECT FOO FROM \"BAR\" WHERE ID=? AND CODE=?")
  33       "SELECT FOO FROM \"BAR\" WHERE ID=$1 AND CODE=$2")
  34
  35     (deftest :int/convert/4
  36         (clsql-sys::prepared-sql-to-postgresql-sql "SELECT FOO FROM BAR WHERE ID=\"Match?\" AND CODE=?")
  37       "SELECT FOO FROM BAR WHERE ID=\"Match?\" AND CODE=$1")
  38
  39     (deftest :int/convert/5
  40         (clsql-sys::prepared-sql-to-postgresql-sql "SELECT 'FOO' FROM BAR WHERE ID='Match?''?' AND CODE=?")
  41       "SELECT 'FOO' FROM BAR WHERE ID='Match?''?' AND CODE=$1")
  42
  43     ))
  44