diff options
| author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-02-28 08:41:06 +0000 |
|---|---|---|
| committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-02-28 08:41:06 +0000 |
| commit | 5c96bc39a441306d1dc7bf8c069da2175afd6752 (patch) | |
| tree | cc12d8d8bf7493dce223504bdd047fc9a3af0d21 /test-suite/tests/guardians.test | |
| parent | ac6849ffee32ed6e568971bcb2e72a374efd8cc1 (diff) | |
| download | guile-5c96bc39a441306d1dc7bf8c069da2175afd6752.tar.gz | |
* Make sure that tests return a boolean value.
Diffstat (limited to 'test-suite/tests/guardians.test')
| -rw-r--r-- | test-suite/tests/guardians.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test-suite/tests/guardians.test b/test-suite/tests/guardians.test index 4d8eac678..8d5a6eb2b 100644 --- a/test-suite/tests/guardians.test +++ b/test-suite/tests/guardians.test @@ -59,7 +59,7 @@ (else (set! seen-something-else #t))) (loop))))) (pass-if "g3-garbage saved" seen-g3-garbage) - (pass-if "g2-saved" seen-g2) + (pass-if "g2-saved" (procedure? seen-g2)) (pass-if "nothing else saved" (not seen-something-else)) (pass-if "g2-garbage saved" (and (procedure? seen-g2) (equal? (seen-g2) '(g2-garbage))))) |