r9443: * test/test-fdml.lisp: String table names are now case sensitive,...
authorKevin M. Rosenberg <kevin@rosenberg.net>
Sun, 23 May 2004 05:44:21 +0000 (05:44 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Sun, 23 May 2004 05:44:21 +0000 (05:44 +0000)
        default db case for FDML/SELECT/25

ChangeLog
sql/package.lisp
sql/utils.lisp
tests/test-fdml.lisp

index abf4547..7cc79de 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -3,6 +3,10 @@
        * sql/classes.lisp: honor case of string tables when outputting queries 
        * sql/objects.lisp: Add database type to default database-get-type-specifier method
        * sql/sql.lisp:  Add database type to default database-abort-transaction method
+       * sql/utils.lisp: Add GETENV function which will be used to get ORACLE_HOME
+       from environment
+       * test/test-fdml.lisp: String table names are now case sensitive, so convert to
+       default db case for FDML/SELECT/25
 
 22 May 2004 Kevin Rosenberg
        * Version 2.10.20 released: Oracle backend now fails 6 out of 200 tests
index 77100e5..20555d6 100644 (file)
      #:symbol-name-default-case
      #:convert-to-db-default-case
      #:ensure-keyword
-
+     #:getenv
+     
      #:*loaded-database-types*
      #:reload-database-types
      #:*connect-if-exists*
index 8763216..a23a820 100644 (file)
@@ -315,6 +315,17 @@ list of characters and replacement strings."
          (incf dpos))))))
 
 
+(defun getenv (var)
+  "Return the value of the environment variable."
+  #+allegro (sys::getenv (string var))
+  #+clisp (ext:getenv (string var))
+  #+(or cmu scl)
+  (cdr (assoc (string var) ext:*environment-list* :test #'equalp
+              :key #'string))
+  #+lispworks (lw:environment-variable (string var))
+  #+mcl (ccl::getenv var)
+  #+sbcl (sb-ext:posix-getenv var))
+
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (when (char= #\a (schar (symbol-name '#:a) 0))
     (pushnew :clsql-lowercase-reader *features*)))
@@ -334,7 +345,6 @@ list of characters and replacement strings."
     ;; Default CommonSQL behavior is to upcase strings
     (string-upcase str)))
            
-
 (defun ensure-keyword (name)
   "Returns keyword for a name"
   (etypecase name
@@ -344,3 +354,4 @@ list of characters and replacement strings."
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (setq cl:*features* (delete :clsql-lowercase-reader cl:*features*)))
+
index 812894d..be35f5b 100644 (file)
   "Yuri"))
 
 (deftest :fdml/select/25
- (clsql:select [first-name] :from "employee" :flatp t :distinct t
-                            :field-names nil 
-                            :result-types nil 
-                            :order-by [first-name])
+ (clsql:select [first-name] :from (clsql-sys:convert-to-db-default-case "employee" *default-database*)
+  :flatp t :distinct t
+  :field-names nil 
+  :result-types nil 
+  :order-by [first-name])
  ("Boris" "Josef" "Konstantin" "Leon" "Leonid" "Mikhail" "Nikita" "Vladamir"
   "Yuri"))