From d6693f96685c583fb9b37e84d284c30fce316013 Mon Sep 17 00:00:00 2001 From: AJ Rossini Date: Thu, 2 Apr 2009 16:23:01 +0200 Subject: [PATCH] use correct access function helpers; error fix. Signed-off-by: AJ Rossini --- TODO.lisp | 5 ++--- src/unittests/unittests-dataframe.lisp | 18 ++++++++++-------- 2 files changed, 12 insertions(+), 11 deletions(-) diff --git a/TODO.lisp b/TODO.lisp index e1efae9..027c517 100644 --- a/TODO.lisp +++ b/TODO.lisp @@ -1,6 +1,6 @@ ;;; -*- mode: lisp -*- -;;; Time-stamp: <2009-04-02 16:13:50 tony> +;;; Time-stamp: <2009-04-02 16:22:00 tony> ;;; Creation: <2008-09-08 08:06:30 tony> ;;; File: TODO.lisp ;;; Author: AJ Rossini @@ -22,7 +22,7 @@ (in-package :lisp-stat-unittests) -;; tests = 79, failures = 7, errors = 16 +;; tests = 79, failures = 7, errors = 15 (describe (run-tests :suite 'lisp-stat-ut)) (run-tests :suite 'lisp-stat-ut) @@ -38,7 +38,6 @@ (describe 'lisp-stat-ut) (in-package :ls-user) - (progn ;; dataframe (describe (lift::run-tests :suite 'lisp-stat-ut-dataframe)) diff --git a/src/unittests/unittests-dataframe.lisp b/src/unittests/unittests-dataframe.lisp index 28d014e..85eac23 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-02 15:59:43 tony> +;;; Time-stamp: <2009-04-02 16:21:09 tony> ;;; Creation: <2008-05-09 14:18:19 tony> @@ -155,16 +155,18 @@ (setf (varNames my-df-1) (list "a" "b")) ;; should error (setf (varNames my-df-1) old-varnames) (error "don't reach this point in badaccess14")))) - + + +;; NEED TO CONFIRM THERE IS AN ERROR. (addtest (lisp-stat-ut-dataframe) badAccess15 - (ensure - (let ((origCaseNames (caseNames my-df-1))) - (setf (caseNames my-df-1) (list "a" "b" "c" 4 5)) - (caseNames my-df-1) + (ensure-error + (let ((origCaseNames (caselabels my-df-1))) + (setf (caselabels my-df-1) (list "a" "b" "c" 4 5)) + (caselabels my-df-1) (ignore-errors - (setf (caseNames my-df-1) + (setf (caselabels my-df-1) (list "a" "b" 4 5))) - (setf (caseNames my-df-1) origCaseNames)))) + (setf (caselabels my-df-1) origCaseNames)))) ;;; ;; (run-tests) -- 2.11.4.GIT