• Home
  • Features
  • Pricing
  • Docs
  • Announcements
  • Sign In

bennn / rackunit-abbrevs / 28
100%

Build:
DEFAULT BRANCH: master
Ran 14 Feb 2017 11:36PM UTC
Jobs 2
Files 9
Run time 14s
Badge
Embed ▾
README BADGES
x

If you need to use a raster PNG badge, change the '.svg' to '.png' in the link

Markdown

Textile

RDoc

HTML

Rst

pending completion
28

push

travis-ci

bennn
let-bind the check-* functions

In the olden days,

```
(check-true* (λ (x) (not x))
 [#true]
 [#false])
```

would expand to:

```
(begin
 (check-true ((λ (x) (not x)) #true))
 (check-true ((λ (x) (not x)) #false)))
```

(No problem if there's an identifier instead of the λ. But that's silly.)

Now we use a let to bind the function, so the expansion is more like:

```
(let ([f (λ (x) (not x))])
 (check-true ( #true))
 (check-true ((λ (x) (not x)) #false)))
```

(Where `f` is gensym'd --- either from the function's "name" or an arbitrary symbol.)

36 of 36 new or added lines in 1 file covered. (100.0%)

175 of 179 relevant lines covered (97.77%)

1.77 hits per line

Jobs
ID Job ID Ran Files Coverage
3 28.3 (RACKET_VERSION=6.3) 14 Feb 2017 11:36PM UTC 0
100.0
Travis Job 28.3
4 28.4 (RACKET_VERSION=HEAD) 14 Feb 2017 11:36PM UTC 0
90.5
Travis Job 28.4
Source Files on build 28
Detailed source file information is not available for this build.
  • Back to Repo
  • Travis Build #28
  • 45b868a0 on github
  • Prev Build on master (#26)
  • Next Build on master (#29)
STATUS · Troubleshooting · Open an Issue · Sales · Support · CAREERS · ENTERPRISE · START FREE · SCHEDULE DEMO
ANNOUNCEMENTS · TWITTER · TOS & SLA · Supported CI Services · What's a CI service? · Automated Testing

© 2025 Coveralls, Inc