# NOT RUN {
if (check_for_pkg("RSQLite", message)) {
with_mock_db({
con <- dbConnect(RSQLite::SQLite(), dbname = "not_a_db")
expect_sql(
dbGetQuery(con, "SELECT carrier, name FROM airlines LIMIT 3"),
"SELECT carrier, name FROM airlines LIMIT 3"
)
})
}
# }
Run the code above in your browser using DataCamp Workspace