[elephant-cvs] CVS elephant/tests

[rread]

Update of /project/elephant/cvsroot/elephant/tests
In directory clnet:/tmp/cvs-serv27892

Modified Files:
	RUNTEST.lisp 
Log Message:
Modernization of this file.


--- /project/elephant/cvsroot/elephant/tests/RUNTEST.lisp	2006/02/05 23:46:41	1.1
+++ /project/elephant/cvsroot/elephant/tests/RUNTEST.lisp	2007/04/01 23:28:35	1.2
@@ -4,60 +4,44 @@
 ;;;
 ;;; Elephant: an object-oriented database for Common Lisp
 ;;;
-;;; Copyright (c) 2005,2006 by Robert L. Read
+;;; Copyright (c) 2005,2006,2007 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
-
+;; If you are only using one back-end, you may prefer:
+;; 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)
 
+(asdf:operate 'asdf:load-op :elephant-tests)
 
 (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*)
+;; Test Postgres backend
+(setq *default-spec* *testpg-spec*)
+(do-backend-tests)
+
+;; Test BDB backend
+(setq *default-spec* *testbdb-spec*)
+(do-backend-tests)
+
+;; Test SQLite 3
+(setq *default-spec* *testsqlite3-spec*)
+(do-backend-tests)
 
-(setq *test-path-primary* *testdb-path*)
-(setq *test-path-secondary* nil)
+;; Test a Migration of data from BDB to postgres
+(do-migration-tests *testbdb-spec* *testpg-spec*)
 
-(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*)
+;; An example usage.
+(open-store *testpg-spec*)
 (add-to-root "x1" "y1")
 (get-from-root "x1")
 
-
 (add-to-root "x2" '(a 4 "spud"))
 (get-from-root "x2")