expect_visible() does not print a correct error message

Currently running

```r
expect_visible(invisible(TRUE))
```

with the error it returns the following message

```
Error: invisible(TRUE) does not invisibly
```

However this should be something like

```
Error: invisible(TRUE) does not visibly
```