test the bib() function

eddelbuettel · eddelbuettel · commit 8a17a21c80d3 · 2017-01-12T11:45:09.000-06:00
diff --git a/inst/unitTests/runit.misc.R b/inst/unitTests/runit.misc.R
@@ -211,8 +211,7 @@ if (.runThisTest) {
     }
 
     test.bib <- function() {
-        checkTrue(nchar(system.file("bib", "Rcpp.bib", package="Rcpp")) > 0,
-                  msg="bib file")
+        checkTrue(nchar(Rcpp:::bib()) > 0, msg="bib file")
     }
 
 }

Original file line number	Diff line number	Diff line change
`@@ -211,8 +211,7 @@ if (.runThisTest) {`
`211`	`211`	`}`
`212`	`212`
`213`	`213`	`test.bib <- function() {`
`214`		`- checkTrue(nchar(system.file("bib", "Rcpp.bib", package="Rcpp")) > 0,`
`215`		`- msg="bib file")`
	`214`	`+ checkTrue(nchar(Rcpp:::bib()) > 0, msg="bib file")`
`216`	`215`	`}`
`217`	`216`
`218`	`217`	`}`