diff implementations/meredith/tests/import-raph-c-data.lisp @ 286:d22c67dac97d

add minimal backend for Dave Meredith's data

Ignore-this: 91608f727967a4c5709bd41634ab9ae2

darcs-hash:20090524193956-16a00-038e6f7cb235dea4e7efcc70c4d1a7bc7fd402a6.gz

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/implementations/meredith/tests/import-raph-c-data.lisp	Sun May 24 20:39:56 2009 +0100
@@ -0,0 +1,28 @@
+(cl:in-package #:amuse-meredith)
+
+(asdf:oos 'asdf:load-op 'amuse-meredith)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; 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*)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Retrieve compositions
+(defparameter *bach*
+  (get-composition (make-meredith-composition-identifier 1)))
+
+(defparameter *bach-dataset*
+  (get-dataset (make-amuse-dataset-identifier 1)))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Tidy up
+;;(drop-meredith-tables *amuse-database*)
+(disconnect-from-database)