Mercurial > hg > amuse
diff implementations/meredith/tests/import-raph-c-data.lisp @ 229:c9573d61b1b9
twiddle meredith import functions
Ignore-this: e28a31418c8e60420bd84047d9110a13
darcs-hash:20090918124512-16a00-6354c6e9942caba1496caaac990d1f6985bfa17b.gz
committer: Jamie Forth <j.forth@gold.ac.uk>
| author | j.forth <j.forth@gold.ac.uk> |
|---|---|
| date | Thu, 24 Feb 2011 11:23:18 +0000 |
| parents | 4eceac78e7c6 |
| children | 6a3adca16910 |
line wrap: on
line diff
--- a/implementations/meredith/tests/import-raph-c-data.lisp Thu Feb 24 11:23:18 2011 +0000 +++ b/implementations/meredith/tests/import-raph-c-data.lisp Thu Feb 24 11:23:18 2011 +0000 @@ -2,17 +2,16 @@ (asdf:oos 'asdf:load-op 'amuse-meredith) -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +(connect-to-database :database-name "test") + ;; Tell the database about the new implementation. (amuse-database-admin:register-new-implementation *package*) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Add the datasets to the database -(connect-to-database :database-name "test") - (create-meredith-tables *amuse-database*) -(import-bach-inv+sin *amuse-database*) +(import-bach-inv+sin *amuse-database*) ; FIXME: return an identifier. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Retrieve compositions