Coverage report: /development/source/library/org/datagraph/spocq-shard/src/odbc/sql/sql-patches.lisp

Kind	Covered	All	%
expression	0	27	0.0
branch	0	0	nil

Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

;;; -*- Mode: lisp; Syntax: ansi-common-lisp; Base: 10; Package: org.datagraph.spocq.implementation; -*-

2

3

(in-package :clsql-sys)

4

5

(fmakunbound 'database-acquire-from-conn-pool)

6

7

(defmethod database-acquire-from-conn-pool (database)

8

(database-acquire-from-conn-pool-by-type (database-underlying-type database) database))

9

10

(defgeneric database-acquire-from-conn-pool-by-type (type database)

11

(:method ((type (eql :postgresql)) database)

12

(database-execute-command "RESET ALL" database))

13

(:method ((type (eql :mysql)) database)

14

(database-query "SHOW ERRORS LIMIT 1" database nil nil))

15

(:method ((type (eql :mssql)) database)

16

;; rpc escape sequence since this can't be called as a normal sp.

17

;;http://msdn.microsoft.com/en-us/library/aa198358%28SQL.80%29.aspx

18

(database-execute-command "{rpc sp_reset_connection}" database))

19

(:method ((type (eql :oracle)) database)

20

(database-query "SELECT 1 FROM DUAL;" database '(integer) nil))

21

(:method ((type t) database)

22

(database-query "SELECT 1;" database '(integer) nil)))