tests/testthat/test-abk.R

In whtns/stchlk.notes:

context("test-abk")

test_that("multiplication works", {
  expect_equal(2 * 2, 4)
})

cred <- git2r::cred_ssh_key(
  publickey = "~/.ssh/id_rsa.pub",
  privatekey = "~/.ssh/id_rsa"
)
use_github(credentials = cred)