diff --git a/rs.rkt b/rs.rkt
index 71174f1..2d42879 100644
--- a/rs.rkt
+++ b/rs.rkt
@@ -168,7 +168,9 @@
     (test-case "rs->ht-str-triples"
       (define rs (hash 'a (make-reaction '(x) '(y) '(z))
                        'b (make-reaction '(x y) '() '(t))))
-      (rs->ht-str-triples rs)))
+      (check-equal? (rs->ht-str-triples rs)
+                    (hash 'a (list "x" "y" "z")
+                          'b (list "x y" "" "t")))))
 
   (struct state ([result : (Setof Species)]
                  [rest-contexts : (Listof (Setof Species))])