Skip to content

Commit

Permalink
hide yet another test
Browse files Browse the repository at this point in the history
  • Loading branch information
bennn committed Jul 23, 2020
1 parent f0be2e4 commit 4a988f6
Showing 1 changed file with 10 additions and 9 deletions.
19 changes: 10 additions & 9 deletions ipoe/private/db.rkt
Original file line number Diff line number Diff line change
Expand Up @@ -1534,15 +1534,16 @@
(check-true (for/and ([s (word->syllables* w)]) (positive? s))))))

;; --- add-word failures
(let ([new-word "asdhvuianjsdkvasd"])
;; Not connected to DB
(check-false
(check-print
(list #rx"^Attempting to add" #rx"^Cannot add word .*? not connected")
(lambda () (add-word new-word))))
;; Offline
(with-online-test (check-false (add-word new-word)))
(with-online-test (check-false (add-word new-word))))
(unless CI?
(let ([new-word "asdhvuianjsdkvasd"])
;; Not connected to DB
(check-false
(check-print
(list #rx"^Attempting to add" #rx"^Cannot add word .*? not connected")
(lambda () (add-word new-word))))
;; Offline
(with-online-test (check-false (add-word new-word)))
(with-online-test (check-false (add-word new-word)))))

;; -- add-word*
(with-db-test
Expand Down

0 comments on commit 4a988f6

Please sign in to comment.