1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
2 ;;;; *************************************************************************
3 ;;;; FILE IDENTIFICATION
5 ;;;; Name: kmrcl-tests.lisp
6 ;;;; Purpose: kmrcl tests file
7 ;;;; Author: Kevin M. Rosenberg
8 ;;;; Date Started: Apr 2003
10 ;;;; $Id: tests.lisp,v 1.1 2003/04/28 21:12:27 kevin Exp $
12 ;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
14 ;;;; *************************************************************************
16 (defpackage #:kmrcl-tests
17 (:use #:kmrcl #:cl #:rtest))
18 (in-package #:kmrcl-tests)
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))
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))
34 (defclass monitored-credit-rating (credit-rating)
35 ((level :attributes (last-checked interval date-set))
37 (id :attributes (verified))
39 (:metaclass attributes-class))
40 (defparameter mcr (make-instance 'monitored-credit-rating))
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))