Create `local_bq_test_table()` for use in tests

[hadley]

e.g.

# before
ds <- bq_table(bq_test_project(), "basedata", "datatypes")
defer(try(bq_table_delete(ds), silent = TRUE))

# after
ds <- local_bq_test_table("basedata", "datatypes")