[elephant-cvs] CVS elephant/tests

[rread]

Update of /project/elephant/cvsroot/elephant/tests
In directory common-lisp:/tmp/cvs-serv1957

Added Files:
	BerkeleyDB-tests.lisp MigrationTests.lisp RUNTEST.lisp 
	SQLDB-tests.lisp 
Log Message:
Moving these test files into the tests directory for clarity



--- /project/elephant/cvsroot/elephant/tests/BerkeleyDB-tests.lisp	2006/02/05 23:46:41	NONE
+++ /project/elephant/cvsroot/elephant/tests/BerkeleyDB-tests.lisp	2006/02/05 23:46:41	1.1
;;; Copyright (c) 2006 by Robert L. Read
;;; <rread at common-lisp.net> 

;;; Elephant users are granted the rights to distribute and use this software
;;; as governed by the terms of the Lisp Lesser GNU Public License
;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.

(asdf:operate 'asdf:load-op :elephant)
(asdf:operate 'asdf:load-op :ele-bdb)
(asdf:operate 'asdf:load-op :elephant-tests)

(in-package "ELEPHANT-TESTS")

;; The primary and secondary test-paths are 
;; use for the migration tests.
;; 
(setq *test-path-primary* *testdb-path*)
(setq *test-path-secondary* nil)

(do-all-tests-spec *test-path-primary*)

--- /project/elephant/cvsroot/elephant/tests/MigrationTests.lisp	2006/02/05 23:46:41	NONE
+++ /project/elephant/cvsroot/elephant/tests/MigrationTests.lisp	2006/02/05 23:46:41	1.1
;;; MigrationTests.lisp
;;;
;;; part of
;;;
;;; Elephant: an object-oriented database for Common Lisp
;;;
;;; Copyright (c) 2005,2006 by Robert L. Read
;;; <rread at common-lisp.net>
;;;
;;; Elephant users are granted the rights to distribute and use this software
;;; as governed by the terms of the Lisp Lesser GNU Public License
;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.


;; This file is an example of how to perform the 
;; migration tests.  You will have to modify it 
;; slightly depending on the systems that want to test...
;; You can test migration even between two BDB respositories if you wish
(asdf:operate 'asdf:load-op :elephant)
(asdf:operate 'asdf:load-op :ele-clsql)
(asdf:operate 'asdf:load-op :clsql-postgresql-socket)
(asdf:operate 'asdf:load-op :ele-bdb)
(asdf:operate 'asdf:load-op :elephant-tests)


;; For sqlite-3..
;; (asdf:operate 'asdf:load-op :ele-sqlite3)


(in-package "ELEPHANT-TESTS")


;; The primary and secondary test-paths are 
;; use for the migration tests.

;; This this configuration for testing between BDB and SQL....
(setq *test-path-primary* *testpg-path*)
;; (setq *test-path-primary* *testsqlite3-path*)
(setq *test-path-secondary* *testdb-path*)


;; This this configuration for testing from one BDB repository to another...
(setq *test-path-primary* *testdb-path*)
;; (setq *test-path-primary* *testsqlite3-path*)
(setq *test-path-secondary* *testdb-path2*)

(do-migrate-test-spec *test-path-primary*)
--- /project/elephant/cvsroot/elephant/tests/RUNTEST.lisp	2006/02/05 23:46:41	NONE
+++ /project/elephant/cvsroot/elephant/tests/RUNTEST.lisp	2006/02/05 23:46:41	1.1
;;; RUNTEST.lisp
;;;
;;; part of
;;;
;;; Elephant: an object-oriented database for Common Lisp
;;;
;;; Copyright (c) 2005,2006 by Robert L. Read
;;; <rread at common-lisp.net>
;;;
;;; Elephant users are granted the rights to distribute and use this software
;;; as governed by the terms of the Lisp Lesser GNU Public License
;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.



;; This file is now obsolete...
;; Please use SQLDB-test.lisp or BerkeleyDB-tests.lisp

(asdf:operate 'asdf:load-op :elephant)
(asdf:operate 'asdf:load-op :ele-clsql)
(asdf:oos 'asdf:load-op :clsql-postgresql-socket)
(asdf:operate 'asdf:load-op :ele-bdb)
(asdf:operate 'asdf:load-op :elephant-tests)

(asdf:operate 'asdf:load-op :ele-sqlite3)


(in-package "ELEPHANT-TESTS")
(do-all-tests)
(do-all-tests-spec *testpg-path*)
(do-migrate-test-spec *testpg-path*)
(do-all-tests-spec *testdb-path*)
(do-all-tests-spec *testsqlite3-path*)

;; The primary and secondary test-paths are 
;; use for the migration tests.
(setq *test-path-primary* *testpg-path*)
(setq *test-path-primary* *testsqlite3-path*)
(setq *test-path-secondary* *testdb-path*)

(setq *test-path-primary* *testdb-path*)
(setq *test-path-secondary* nil)

(do-all-tests-spec *test-path-primary*)


(use-package :sb-profile)

(profile "CLSQL")
(profile "POSTGRESQL-SOCKET")
(profile "ELEPHANT")

(use-package "SB-PROFILE")

(open-store *testpg-path*)
(open-store *testdb-path*)
(add-to-root "x1" "y1")
(get-from-root "x1")


(add-to-root "x2" '(a 4 "spud"))
(get-from-root "x2")




--- /project/elephant/cvsroot/elephant/tests/SQLDB-tests.lisp	2006/02/05 23:46:41	NONE
+++ /project/elephant/cvsroot/elephant/tests/SQLDB-tests.lisp	2006/02/05 23:46:41	1.1
;;; SQLDB-tests.lisp
;;;
;;; part of
;;;
;;; Elephant: an object-oriented database for Common Lisp
;;;
;;; Copyright (c) 2005,2006 by Robert L. Read
;;; <rread at common-lisp.net>
;;;
;;; Elephant users are granted the rights to distribute and use this software
;;; as governed by the terms of the Lisp Lesser GNU Public License
;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.

(asdf:operate 'asdf:load-op :elephant)
(asdf:operate 'asdf:load-op :ele-clsql)
(asdf:operate 'asdf:load-op :elephant-tests)

;; For postgres use this...
(asdf:oos 'asdf:load-op :clsql-postgresql-socket)
;; For sqllite3... use this...
;; (asdf:operate 'asdf:load-op :ele-sqlite3)

(in-package "ELEPHANT-TESTS")

;; The primary and secondary test-paths are 
;; use for the migration tests.
;; You may have to change these from the defaults set in
;; elephant-tests.lisp to point to your database.
(setq *test-path-primary* *testpg-path*)

;; This is an alternative
;; (setq *test-path-primary* *testsqlite3-path*)

(setq *test-path-secondary* nil)

(do-all-tests-spec *test-path-primary*)