(test-group "rat~"
  (test-matches "rational number" '() (rat~ 1 2) 1/2)
  (test-matches "integer" '() (rat~ 2 1) 2)
  (test-not-match "non-matching rational" (rat~ 1 2) 3/4))