-;;;; srfi-35.test --- Test suite for SRFI-35 -*- Scheme -*-
-;;;; Ludovic Courtès <ludo@gnu.org>
+;;;; srfi-35.test --- SRFI-35. -*- mode: scheme; coding: utf-8; -*-
+;;;; Ludovic Courtès <ludo@gnu.org>
;;;;
-;;;; Copyright (C) 2007, 2008 Free Software Foundation, Inc.
+;;;; Copyright (C) 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
;;;;
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
(condition-type? &condition))
(pass-if "make-condition-type"
- (condition-type? (make-condition-type 'foo &condition '(a b)))))
+ (condition-type? (make-condition-type 'foo &condition '(a b))))
+
+ (pass-if "struct-vtable-name"
+ (let ((ct (make-condition-type 'chbouib &condition '(a b))))
+ (eq? 'chbouib (struct-vtable-name ct)))))
\f
(pass-if "condition-ref"
(let* ((ct (make-condition-type 'chbouib &condition '(a b)))
(c (make-condition ct 'b 1 'a 0)))
- (and (eq? (condition-ref c 'a) 0)
- (eq? (condition-ref c 'b) 1))))
+ (and (eqv? (condition-ref c 'a) 0)
+ (eqv? (condition-ref c 'b) 1))))
(pass-if "condition-ref with inheritance"
(let* ((top (make-condition-type 'foo &condition '(a b)))
(ct (make-condition-type 'bar top '(c d)))
(c (make-condition ct 'b 1 'a 0 'd 3 'c 2)))
- (and (eq? (condition-ref c 'a) 0)
- (eq? (condition-ref c 'b) 1)
- (eq? (condition-ref c 'c) 2)
- (eq? (condition-ref c 'd) 3))))
+ (and (eqv? (condition-ref c 'a) 0)
+ (eqv? (condition-ref c 'b) 1)
+ (eqv? (condition-ref c 'c) 2)
+ (eqv? (condition-ref c 'd) 3))))
(pass-if "extract-condition"
(let* ((ct (make-condition-type 'chbouib &condition '(a b)))
(let ((c (make-condition &chbouib 'one 1 'two 2)))
(and (condition? c)
(chbouib? c)
- (eq? (chbouib-one c) 1)
- (eq? (chbouib-two c) 2))))
+ (eqv? (chbouib-one c) 1)
+ (eqv? (chbouib-two c) 2))))
m)))
(pass-if "condition"
(pass-if "(c2-b v5)"
(equal? (c2-b v5) "b2")))
-
-
-;;; Local Variables:
-;;; coding: latin-1
-;;; End: