From e3a57e684bf265a8356f45a411355e6a730d4cf6 Mon Sep 17 00:00:00 2001 From: AJ Rossini Date: Mon, 24 Aug 2009 13:12:42 +0200 Subject: [PATCH] code to check the new xref approach. Signed-off-by: AJ Rossini --- TODO.lisp | 22 +++++++++++++++++++++- src/unittests/unittests-dataframe.lisp | 6 +++--- 2 files changed, 24 insertions(+), 4 deletions(-) diff --git a/TODO.lisp b/TODO.lisp index c6ae1ce..f2aa3f8 100644 --- a/TODO.lisp +++ b/TODO.lisp @@ -1,6 +1,6 @@ ;;; -*- mode: lisp -*- -;;; Time-stamp: <2009-07-27 08:38:00 tony> +;;; Time-stamp: <2009-08-20 07:53:48 tony> ;;; Creation: <2008-09-08 08:06:30 tony> ;;; File: TODO.lisp ;;; Author: AJ Rossini @@ -74,3 +74,23 @@ (with-data dataset ((dsvarname1 [usevarname1]) (dsvarname2 [usevarname2])) @body)) + + +(defparameter *df-test* + (make-instance 'dataframe-array + :storage #2A (('a "test0" 0) + ('b "test1" 1) + ('c "test2" 2) + ('d "test3" 3)) + :doc "test reality" + :case-labels (list "0" "1" "2" "3") + :var-labels (list "symbol" "string" "integer"))) + +*df-test* ; but with SBCL, ints become floats? + +(xref *df-test* 1 2) +(xref *df-test* 2 1) +(xref *df-test* 0 0) +(xref *df-test* 1 0) + +(xref *df-test* 1 '*) \ No newline at end of file diff --git a/src/unittests/unittests-dataframe.lisp b/src/unittests/unittests-dataframe.lisp index 101aefb..4513fcf 100644 --- a/src/unittests/unittests-dataframe.lisp +++ b/src/unittests/unittests-dataframe.lisp @@ -5,7 +5,7 @@ ;;; Copyright: (c)2008, AJ Rossini. BSD, LLGPL, or GPLv2, depending ;;; on how it arrives. ;;; Purpose: unittests for the dataframe package -;;; Time-stamp: <2009-04-20 18:59:02 tony> +;;; Time-stamp: <2009-08-20 07:46:30 tony> ;;; Creation: <2008-05-09 14:18:19 tony> @@ -17,14 +17,14 @@ (in-package :lisp-stat-unittests) (deftestsuite lisp-stat-ut-dataframe (lisp-stat-ut) - ((my-df-1 + ((my-df-1-good (make-instance 'dataframe-array :storage #2A((1 2 3 4 5) (10 20 30 40 50)) :doc "This is an interesting legal dataframe-array" :case-labels (list "x" "y") :var-labels (list "a" "b" "c" "d" "e"))) - (my-df-0 + (my-df-1-bad (make-instance 'dataframe-array :storage #2A((1 2 3 4 5) (10 20 30 40 50)) -- 2.11.4.GIT