On Tue, Oct 1, 2013 at 3:01 PM, Hadley Wickham <notifications@github.com>wrote:

> In inst/tests/test-line_numbers.r:
>
> > +
> > +  # get the results supplied to the reporter by expectations
> > +  .test_code <- function(code, reporter = GreedyReporter$new(),
> > +                        path = tempfile(fileext = ".R")) {
> > +    code <- sub("^\\n", '', code) # strip first empty line if any
> > +    writeLines(code, path)
> > +    on.exit(unlink(path))
> > +
> > +    test_file(path, reporter)$results
> > +  }
> > +
> > +  .line_numbers  <- function(results) {
> > +    vapply(results, function(x) x$srcref[1], 1L)
> > +  }
> > +
> > +  dir <- tempfile()
>
> You can delete this block of code now, right?
>

sure



> —
> Reply to this email directly or view it on GitHub<https://github.com/hadley/testthat/pull/85/files#r6685303>
> .
>