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@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")