Browse files

[test] replace \==.complement by simpler \~==

  • Loading branch information...
1 parent 867ee31 commit b4fad904ca5ddfc9180c57bab16406417e2ec9dc @abeaumont abeaumont committed Apr 2, 2013
Showing with 2 additions and 2 deletions.
  1. +2 −2 sources/dylan/apple-dylan-test-suite/test-character.dylan
View
4 sources/dylan/apple-dylan-test-suite/test-character.dylan
@@ -31,9 +31,9 @@ define test as-character-stuff ()
concatenate(*lowercase-alphabet*, *lowercase-alphabet*,
*digit-characters*, *misc-characters*));
- check("as-uppercase(lowercase) ~= lowercase", every?, \==.complement,
+ check("as-uppercase(lowercase) ~= lowercase", every?, \~==,
map(as-uppercase, *lowercase-alphabet*), *lowercase-alphabet*);
- check("as-lowercase(uppercase) ~= uppercase", every?, \==.complement,
+ check("as-lowercase(uppercase) ~= uppercase", every?, \~==,
map(as-lowercase, *uppercase-alphabet*), *uppercase-alphabet*);
end test;

0 comments on commit b4fad90

Please sign in to comment.