From 8455a73329ce6e8ffbc336188acd38dc40312163 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Tue, 17 Feb 2009 00:07:57 +0100 Subject: [PATCH] Add new GOOPS tests for built-in types. * test-suite/tests/goops.test ("classes for built-in types"): New test prefix. --- test-suite/tests/goops.test | 20 +++++++++++++++++++- 1 file changed, 19 insertions(+), 1 deletion(-) diff --git a/test-suite/tests/goops.test b/test-suite/tests/goops.test index 713132a43..fa53fd216 100644 --- a/test-suite/tests/goops.test +++ b/test-suite/tests/goops.test @@ -1,6 +1,6 @@ ;;;; goops.test --- test suite for GOOPS -*- scheme -*- ;;;; -;;;; Copyright (C) 2001,2003,2004, 2006, 2008 Free Software Foundation, Inc. +;;;; Copyright (C) 2001,2003,2004, 2006, 2008, 2009 Free Software Foundation, Inc. ;;;; ;;;; This program is free software; you can redistribute it and/or modify ;;;; it under the terms of the GNU General Public License as published by @@ -125,6 +125,24 @@ table)))) ) +(with-test-prefix "classes for built-in types" + + (pass-if "subr" + (eq? (class-of fluid-ref) )) + + (pass-if "gsubr" + (eq? (class-of hashq-ref) )) + + (pass-if "car" + (eq? (class-of car) )) + + (pass-if "string" + (eq? (class-of "foo") )) + + (pass-if "port" + (is-a? (%make-void-port "w") ))) + + (with-test-prefix "defining classes" (with-test-prefix "define-class"