mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 06:20:23 +02:00
Code Activity

* tests/goops.test: Wrap tests in module (test-suite

Browse source 
test-<file-name without .test>).  Remove calls to deprecated macro
	`undefine'.
This commit is contained in:
Dirk Herrmann 2004-05-24 04:01:06 +00:00
parent 26ecfa393d
commit 62ed3710b7
2 changed files with 23 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test-suite/ChangeLog
View file

@ -1,3 +1,9 @@
2004-05-24 Dirk Herrmann <dirk@dirk-herrmanns-seiten.de>
* tests/goops.test: Wrap tests in module (test-suite
test-<file-name without .test>). Remove calls to deprecated macro
`undefine'.
2004-05-10 Marius Vollmer <mvo@zagadka.de>
* tests/numbers.test (number->string): Added tests for

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

@ -1,6 +1,6 @@
;;;; goops.test --- test suite for GOOPS -*- scheme -*-
;;;;
;;;; Copyright (C) 2001, 2003 Free Software Foundation, Inc.
;;;; Copyright (C) 2001,2003,2004 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
@ -17,7 +17,8 @@
;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
;;;; Boston, MA 02111-1307 USA
(use-modules (test-suite lib))
(define-module (test-suite test-goops)
#:use-module (test-suite lib))
(pass-if "GOOPS loads"
(false-if-exception
@ -128,10 +129,10 @@
(with-test-prefix "define-class"
(pass-if "creating a new binding"
(eval '(define <foo> #f) (current-module))
(eval '(undefine <foo>) (current-module))
(eval '(define-class <foo> ()) (current-module))
(eval '(is-a? <foo> <class>) (current-module)))
(if (eval '(defined? '<foo-0>) (current-module))
(throw 'unresolved))
(eval '(define-class <foo-0> ()) (current-module))
(eval '(is-a? <foo-0> <class>) (current-module)))
(pass-if "overwriting a binding to a non-class"
(eval '(define <foo> #f) (current-module))
@ -154,11 +155,11 @@
(with-test-prefix "define-generic"
(pass-if "creating a new top-level binding"
(eval '(define foo #f) (current-module))
(eval '(undefine foo) (current-module))
(eval '(define-generic foo) (current-module))
(eval '(and (is-a? foo <generic>)
(null? (generic-function-methods foo)))
(if (eval '(defined? 'foo-0) (current-module))
(throw 'unresolved))
(eval '(define-generic foo-0) (current-module))
(eval '(and (is-a? foo-0 <generic>)
(null? (generic-function-methods foo-0)))
(current-module)))
(pass-if "overwriting a top-level binding to a non-generic"
@ -181,11 +182,11 @@
(with-test-prefix "define-accessor"
(pass-if "creating a new top-level binding"
(eval '(define foo #f) (current-module))
(eval '(undefine foo) (current-module))
(eval '(define-accessor foo) (current-module))
(eval '(and (is-a? foo <generic-with-setter>)
(null? (generic-function-methods foo)))
(if (eval '(defined? 'foo-1) (current-module))
(throw 'unresolved))
(eval '(define-accessor foo-1) (current-module))
(eval '(and (is-a? foo-1 <generic-with-setter>)
(null? (generic-function-methods foo-1)))
(current-module)))
(pass-if "overwriting a top-level binding to a non-accessor"