;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- ;;;; ************************************************************************* ;;;; FILE IDENTIFICATION ;;;; ;;;; Name: kmrcl-tests.lisp ;;;; Purpose: kmrcl tests file ;;;; Author: Kevin M. Rosenberg ;;;; Date Started: Apr 2003 ;;;; ;;;; $Id: tests.lisp,v 1.1 2003/04/28 21:12:27 kevin Exp $ ;;;; ;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg ;;;; ;;;; ************************************************************************* (defpackage #:kmrcl-tests (:use #:kmrcl #:cl #:rtest)) (in-package #:kmrcl-tests) (deftest p1 t t) #+kmrcl-mop (progn (defclass credit-rating () ((level :attributes (date-set time-set)) (id :attributes (person-setting))) (:metaclass kmrcl:attributes-class)) (defparameter cr (make-instance 'credit-rating)) (format t "~&date-set: ~a" (slot-attribute cr 'level 'date-set)) (setf (slot-attribute cr 'level 'date-set) "12/15/1990") (format t "~&date-set: ~a" (slot-attribute cr 'level 'date-set)) (defclass monitored-credit-rating (credit-rating) ((level :attributes (last-checked interval date-set)) (cc :initarg :cc) (id :attributes (verified)) ) (:metaclass attributes-class)) (defparameter mcr (make-instance 'monitored-credit-rating)) (setf (slot-attribute mcr 'level 'date-set) "01/05/2002") (format t "~&date-set for mcr: ~a" (slot-attribute mcr 'level 'date-set)) ) ;; kmrcl-mop