From 4e3baaab17d4fa5f52f2917118fa2d86bced616b Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Sun, 28 Oct 2018 15:01:48 -0700
Subject: [PATCH] improve test

---
 txexpr/test/tests.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/txexpr/test/tests.rkt b/txexpr/test/tests.rkt
index c6a2b31..4c1fd4e 100644
--- a/txexpr/test/tests.rkt
+++ b/txexpr/test/tests.rkt
@@ -130,8 +130,8 @@
  (check-equal? (attrs->hash '((foo "bar")) '(foo "fraw") 'foo "dog") '#hasheq((foo . "bar")))
  (check-exn exn:fail:contract? (λ _ (attrs->hash 'foo "bar" 'zam)))
  
- (check-equal? (apply set (hash->attrs '#hash((foo . "bar")(hee . "haw"))))
-               (apply set '((foo "bar")(hee "haw"))))
+ (check-equal? (sort (hash->attrs '#hash((foo . "bar")(hee . "haw"))) string<? #:key cadr)
+               (sort '((foo "bar")(hee "haw")) string<? #:key second))
  
  (check-equal? (attr-ref '(p ((foo "bar"))) 'foo) "bar")
  (check-exn exn:fail? (λ _ (attr-ref '(p ((foo "bar"))) 'zam)))