diff options
author | Eduardo Julian | 2021-08-13 04:18:57 -0400 |
---|---|---|
committer | Eduardo Julian | 2021-08-13 04:18:57 -0400 |
commit | e53c1a090eb9cfac3cb23d10d981648d02518ed1 (patch) | |
tree | 6c92c186525b6e73032ebea68765b791bcc27516 /stdlib/source/test/aedifex/package.lux | |
parent | 17629d66062b88b040a2397032f6c08361a5f3a7 (diff) |
Made program: specify its bindings the same way as syntax:.
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/aedifex/package.lux | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/source/test/aedifex/package.lux b/stdlib/source/test/aedifex/package.lux index e05dc712f..e05c1d753 100644 --- a/stdlib/source/test/aedifex/package.lux +++ b/stdlib/source/test/aedifex/package.lux @@ -80,7 +80,7 @@ _ false) (let [expected_sha1 (//hash.sha-1 expected_library) expected_md5 (//hash.md5 expected_library)] - (and (is? expected_library actual_library) + (and (same? expected_library actual_library) (case library_status (#//status.Verified actual_sha1 expected_md5) (and (//hash\= expected_sha1 actual_sha1) @@ -90,7 +90,7 @@ false))) (let [expected_sha1 (//hash.sha-1 binary_pom) expected_md5 (//hash.md5 binary_pom)] - (and (is? expected_pom actual_pom) + (and (same? expected_pom actual_pom) (|> (do try.monad [xml_pom (\ utf8.codec decode binary_pom) decoded_pom (\ xml.codec decode xml_pom)] |