[elephant-cvs] CVS elephant/src/contrib/eslick/db-lisp

[ieslick]

Update of /project/elephant/cvsroot/elephant/src/contrib/eslick/db-lisp
In directory clnet:/tmp/cvs-serv23445/src/contrib/eslick/db-lisp

Added Files:
	tests.lisp 
Log Message:
Missing files for in-development backends


--- /project/elephant/cvsroot/elephant/src/contrib/eslick/db-lisp/tests.lisp	2007/02/14 17:42:23	NONE
+++ /project/elephant/cvsroot/elephant/src/contrib/eslick/db-lisp/tests.lisp	2007/02/14 17:42:23	1.1
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;
;;; test.lisp -- Internal tests for elephant lisp backend
;;; 
;;; part of
;;;
;;; Elephant Object Oriented Database: Common Lisp Backend
;;;
;;; Copyright (c) 2007 by Ian Eslick
;;; <ieslick at common-lisp.net>
;;;
;;; Elephant Lisp Backend 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.

(in-package :db-lisp)

(defparameter *btree-file* "btree-test-file.db")

(defvar btree nil)
(defvar root nil)
(defvar idx1 nil)
(defvar idx2 nil)
(defvar leaf1 nil)
(defvar leaf2 nil)

(defun initialize-btree-tests ()
  (setf btree (open-lisp-btree *btree-file* :if-exists :overwrite))
  (setf root (btree-root btree))
  btree)

(defun cleanup-btree-tests ()
  (close-lisp-btree btree)
  (setf root nil
	idx1 nil
	idx2 nil
	leaf1 nil
	leaf2 nil))

(defun dump-keys (page)
  (with-buffer-streams (k)
    (scan-page-keys (k pointer position btree page)
      (format t "k: ~A  ptr: ~A  pos: ~A~%" 
	      (elephant-serializer2::deserialize k nil)
	      pointer position))))

(defmacro with-key ((bs num) &body body)
  `(with-buffer-stream (,bs)
     (elephant-serializer2::serialize ,num ,bs)
     , at body))