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