mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-07 18:12:26 +02:00
Code Activity

Add new GOOPS tests for built-in types.

Browse source 
* test-suite/tests/goops.test ("classes for built-in types"): New test
  prefix.
This commit is contained in:
Ludovic Courtès 2009-02-17 00:07:57 +01:00
parent 1b131cf160
commit 8455a73329
1 changed files with 19 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

20
test-suite/tests/goops.test
View file

@ -1,6 +1,6 @@
;;;; goops.test --- test suite for GOOPS -*- scheme -*- ;;;; 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 ;;;; 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 ;;;; it under the terms of the GNU General Public License as published by
@ -125,6 +125,24 @@
table)))) table))))
) )
(with-test-prefix "classes for built-in types"
(pass-if "subr"
(eq? (class-of fluid-ref) <procedure>))
(pass-if "gsubr"
(eq? (class-of hashq-ref) <procedure>))
(pass-if "car"
(eq? (class-of car) <procedure>))
(pass-if "string"
(eq? (class-of "foo") <string>))
(pass-if "port"
(is-a? (%make-void-port "w") <port>)))
(with-test-prefix "defining classes" (with-test-prefix "defining classes"
(with-test-prefix "define-class" (with-test-prefix "define-class"