Skip to content

Commit

Permalink
hide another test
Browse files Browse the repository at this point in the history
  • Loading branch information
bennn committed Jul 23, 2020
1 parent a4b4462 commit f0be2e4
Showing 1 changed file with 14 additions and 13 deletions.
27 changes: 14 additions & 13 deletions ipoe/private/db.rkt
Original file line number Diff line number Diff line change
Expand Up @@ -1695,17 +1695,18 @@
;; -- TODO test resolve, never suggest words not-in-database

;; Should scrape internet for syllables
(with-handlers ((exn:fail:network? (lambda (ex) (log-ipoe-db-warning "network error, skipping test"))))
(parameterize ([*interactive?* #f] [*online?* #t])
(check-apply* (lambda (w) (resolve-syllables w #f))
["hour" == 1]
["never" == 2]
["mississippi" == 4]
["continuity" == 5]
["asbferufvzfjuvfds" == #f]
)
;; Should trust the user input
(check-apply* (lambda (w) (resolve-syllables w 99))
["hour" == 99]
)))
(unless CI?
(with-handlers ((exn:fail:network? (lambda (ex) (log-ipoe-db-warning "network error, skipping test"))))
(parameterize ([*interactive?* #f] [*online?* #t])
(check-apply* (lambda (w) (resolve-syllables w #f))
["hour" == 1]
["never" == 2]
["mississippi" == 4]
["continuity" == 5]
["asbferufvzfjuvfds" == #f]
)
;; Should trust the user input
(check-apply* (lambda (w) (resolve-syllables w 99))
["hour" == 99]
))))
)

0 comments on commit f0be2e4

Please sign in to comment.