tests.lisp

   1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
   2 ;;;; *************************************************************************
   3 ;;;; FILE IDENTIFICATION
   4 ;;;;
   5 ;;;; Name:          kmrcl-tests.lisp
   6 ;;;; Purpose:       kmrcl tests file
   7 ;;;; Author:        Kevin M. Rosenberg
   8 ;;;; Date Started:  Apr 2003
   9 ;;;;
  10 ;;;; $Id: tests.lisp,v 1.1 2003/04/28 21:12:27 kevin Exp $
  11 ;;;;
  12 ;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
  13 ;;;;
  14 ;;;; *************************************************************************
  15
  16 (defpackage #:kmrcl-tests
  17   (:use #:kmrcl #:cl #:rtest))
  18 (in-package #:kmrcl-tests)
  19
  20 (deftest p1 t t)
  21
  22 #+kmrcl-mop
  23 (progn
  24   (defclass credit-rating ()
  25     ((level :attributes (date-set time-set))
  26      (id :attributes (person-setting)))
  27     (:metaclass kmrcl:attributes-class))
  28   (defparameter cr (make-instance 'credit-rating))
  29
  30   (format t "~&date-set: ~a" (slot-attribute cr 'level 'date-set))
  31   (setf (slot-attribute cr 'level 'date-set) "12/15/1990")
  32 (format t "~&date-set: ~a" (slot-attribute cr 'level 'date-set))
  33
  34 (defclass monitored-credit-rating (credit-rating)
  35   ((level :attributes (last-checked interval date-set))
  36    (cc :initarg :cc)
  37    (id :attributes (verified))
  38    )
  39   (:metaclass attributes-class))
  40 (defparameter mcr (make-instance 'monitored-credit-rating))
  41
  42 (setf (slot-attribute mcr 'level 'date-set) "01/05/2002")
  43 (format t "~&date-set for mcr: ~a" (slot-attribute mcr 'level 'date-set))
  44 )   ;; kmrcl-mop
  45