[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.6-29-g88644a
From: |
Mark H Weaver |
Subject: |
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.6-29-g88644a1 |
Date: |
Thu, 04 Oct 2012 11:58:15 +0000 |
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".
http://git.savannah.gnu.org/cgit/guile.git/commit/?id=88644a10d82045f429f66f20a47973e48715de1d
The branch, stable-2.0 has been updated
via 88644a10d82045f429f66f20a47973e48715de1d (commit)
from d6e1c8bfdb727f39352c7304c225c05545067f30 (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit 88644a10d82045f429f66f20a47973e48715de1d
Author: Mark H Weaver <address@hidden>
Date: Thu Oct 4 07:57:27 2012 -0400
Change inappropriate uses of expect-fail X to pass-if not X in chars.test
* test-suite/tests/chars.test (basic char handling): Change
inappropriate uses of 'expect-fail' to 'pass-if' with 'not' applied to
the test.
-----------------------------------------------------------------------
Summary of changes:
test-suite/tests/chars.test | 84 +++++++++++++++++++++---------------------
1 files changed, 42 insertions(+), 42 deletions(-)
diff --git a/test-suite/tests/chars.test b/test-suite/tests/chars.test
index bdc9bdb..98854f7 100644
--- a/test-suite/tests/chars.test
+++ b/test-suite/tests/chars.test
@@ -45,18 +45,18 @@
(pass-if "char=? #\\A #\\A"
(char=? #\A #\A))
- (expect-fail "char=? #\\A #\\a"
- (char=? #\A #\a))
+ (pass-if "char=? #\\A #\\a"
+ (not (char=? #\A #\a)))
- (expect-fail "char=? #\\A #\\B"
- (char=? #\A #\B))
+ (pass-if "char=? #\\A #\\B"
+ (not (char=? #\A #\B)))
- (expect-fail "char=? #\\B #\\A"
- (char=? #\A #\B))
+ (pass-if "char=? #\\B #\\A"
+ (not (char=? #\A #\B)))
;; char<?
- (expect-fail "char<? #\\A #\\A"
- (char<? #\A #\A))
+ (pass-if "char<? #\\A #\\A"
+ (not (char<? #\A #\A)))
(pass-if "char<? #\\A #\\a"
(char<? #\A #\a))
@@ -64,8 +64,8 @@
(pass-if "char<? #\\A #\\B"
(char<? #\A #\B))
- (expect-fail "char<? #\\B #\\A"
- (char<? #\B #\A))
+ (pass-if "char<? #\\B #\\A"
+ (not (char<? #\B #\A)))
;; char<=?
(pass-if "char<=? #\\A #\\A"
@@ -77,18 +77,18 @@
(pass-if "char<=? #\\A #\\B"
(char<=? #\A #\B))
- (expect-fail "char<=? #\\B #\\A"
- (char<=? #\B #\A))
+ (pass-if "char<=? #\\B #\\A"
+ (not (char<=? #\B #\A)))
;; char>?
- (expect-fail "char>? #\\A #\\A"
- (char>? #\A #\A))
+ (pass-if "char>? #\\A #\\A"
+ (not (char>? #\A #\A)))
- (expect-fail "char>? #\\A #\\a"
- (char>? #\A #\a))
+ (pass-if "char>? #\\A #\\a"
+ (not (char>? #\A #\a)))
- (expect-fail "char>? #\\A #\\B"
- (char>? #\A #\B))
+ (pass-if "char>? #\\A #\\B"
+ (not (char>? #\A #\B)))
(pass-if "char>? #\\B #\\A"
(char>? #\B #\A))
@@ -97,11 +97,11 @@
(pass-if "char>=? #\\A #\\A"
(char>=? #\A #\A))
- (expect-fail "char>=? #\\A #\\a"
- (char>=? #\A #\a))
+ (pass-if "char>=? #\\A #\\a"
+ (not (char>=? #\A #\a)))
- (expect-fail "char>=? #\\A #\\B"
- (char>=? #\A #\B))
+ (pass-if "char>=? #\\A #\\B"
+ (not (char>=? #\A #\B)))
(pass-if "char>=? #\\B #\\A"
(char>=? #\B #\A))
@@ -113,24 +113,24 @@
(pass-if "char-ci=? #\\A #\\a"
(char-ci=? #\A #\a))
- (expect-fail "char-ci=? #\\A #\\B"
- (char-ci=? #\A #\B))
+ (pass-if "char-ci=? #\\A #\\B"
+ (not (char-ci=? #\A #\B)))
- (expect-fail "char-ci=? #\\B #\\A"
- (char-ci=? #\A #\B))
+ (pass-if "char-ci=? #\\B #\\A"
+ (not (char-ci=? #\A #\B)))
;; char-ci<?
- (expect-fail "char-ci<? #\\A #\\A"
- (char-ci<? #\A #\A))
+ (pass-if "char-ci<? #\\A #\\A"
+ (not (char-ci<? #\A #\A)))
- (expect-fail "char-ci<? #\\A #\\a"
- (char-ci<? #\A #\a))
+ (pass-if "char-ci<? #\\A #\\a"
+ (not (char-ci<? #\A #\a)))
(pass-if "char-ci<? #\\A #\\B"
(char-ci<? #\A #\B))
- (expect-fail "char-ci<? #\\B #\\A"
- (char-ci<? #\B #\A))
+ (pass-if "char-ci<? #\\B #\\A"
+ (not (char-ci<? #\B #\A)))
;; char-ci<=?
(pass-if "char-ci<=? #\\A #\\A"
@@ -142,18 +142,18 @@
(pass-if "char-ci<=? #\\A #\\B"
(char-ci<=? #\A #\B))
- (expect-fail "char-ci<=? #\\B #\\A"
- (char-ci<=? #\B #\A))
+ (pass-if "char-ci<=? #\\B #\\A"
+ (not (char-ci<=? #\B #\A)))
;; char-ci>?
- (expect-fail "char-ci>? #\\A #\\A"
- (char-ci>? #\A #\A))
+ (pass-if "char-ci>? #\\A #\\A"
+ (not (char-ci>? #\A #\A)))
- (expect-fail "char-ci>? #\\A #\\a"
- (char-ci>? #\A #\a))
+ (pass-if "char-ci>? #\\A #\\a"
+ (not (char-ci>? #\A #\a)))
- (expect-fail "char-ci>? #\\A #\\B"
- (char-ci>? #\A #\B))
+ (pass-if "char-ci>? #\\A #\\B"
+ (not (char-ci>? #\A #\B)))
(pass-if "char-ci>? #\\B #\\A"
(char-ci>? #\B #\A))
@@ -165,8 +165,8 @@
(pass-if "char-ci>=? #\\A #\\a"
(char-ci>=? #\A #\a))
- (expect-fail "char-ci>=? #\\A #\\B"
- (char-ci>=? #\A #\B))
+ (pass-if "char-ci>=? #\\A #\\B"
+ (not (char-ci>=? #\A #\B)))
(pass-if "char-ci>=? #\\B #\\A"
(char-ci>=? #\B #\A)))
hooks/post-receive
--
GNU Guile
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.6-29-g88644a1,
Mark H Weaver <=