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.3 2003/04/29 00:23:21 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)
23 (when (find-package '#:kmr-mop)
24 (pushnew :kmrtest-mop cl:*features*))
28 (deftest str.0 (substitute-chars-strings "" nil) "")
29 (deftest str.1 (substitute-chars-strings "abcd" nil) "abcd")
30 (deftest str.2 (substitute-chars-strings "abcd" nil) "abcd")
31 (deftest str.3 (substitute-chars-strings "abcd" '((#\j . "ef"))) "abcd")
32 (deftest str.4 (substitute-chars-strings "abcd" '((#\a . "ef"))) "efbcd")
34 (substitute-chars-strings "abcd" '((#\a . "ef") (#\j . "ghi")))
37 (substitute-chars-strings "abcd" '((#\a . "ef") (#\d . "ghi")))
40 (deftest str.7 (escape-xml-string "") "")
41 (deftest str.8 (escape-xml-string "abcd") "abcd")
42 (deftest str.9 (escape-xml-string "ab&cd") "ab&cd")
43 (deftest str.10 (escape-xml-string "ab&cd<") "ab&cd<")
44 (deftest str.11 (escape-xml-string "ab&c><") "ab&c><")
48 (defclass credit-rating ()
49 ((level :attributes (date-set time-set))
50 (id :attributes (person-setting)))
51 (:metaclass attributes-class))
54 (defclass monitored-credit-rating (credit-rating)
55 ((level :attributes (last-checked interval date-set))
57 (id :attributes (verified)))
58 (:metaclass attributes-class))
59 (defparameter mcr (make-instance 'monitored-credit-rating))
63 (setq cr (make-instance 'credit-rating))
64 (slot-attribute cr 'level 'date-set))
69 (setq cr (make-instance 'credit-rating))
70 (setf (slot-attribute cr 'level 'date-set) "12/15/1990")
71 (slot-attribute cr 'level 'date-set))
76 (setq mcr (make-instance 'monitored-credit-rating))
77 (setf (slot-attribute mcr 'level 'date-set) "01/05/2002")
78 (slot-attribute mcr 'level 'date-set))
84 (setq cl:*features* (delete :kmrtest-mop cl:*features*))