Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

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

  • Loading branch information...
commit b4fad904ca5ddfc9180c57bab16406417e2ec9dc 1 parent 867ee31
@abeaumont abeaumont authored
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;
Please sign in to comment.
Something went wrong with that request. Please try again.