test_that("format.gitcreds", {
cred <- gitcreds$new_gitcreds(
protocol = "https",
host = "github.com",
username = "user",
password = "secret",
arbitrary = "xxxxxxxxx"
)
fmt <- format(cred)
expect_true(any(grepl("arbitrary", fmt, fixed = TRUE)))
expect_true(any(grepl("xxxxxx", fmt, fixed = TRUE)))
expect_false(any(grepl("secret", fmt, fixed = TRUE)))
expect_true(any(grepl("hidden", fmt, fixed = TRUE)))
})
test_that("print.gitcreds", {
cred <- gitcreds$new_gitcreds(
protocol = "https",
host = "github.com",
username = "user",
password = "secret",
arbitrary = "xxxxxxxxx"
)
out <- capture.output(ret <- print(cred))
expect_equal(ret, cred)
expect_true(any(grepl("arbitrary", out, fixed = TRUE)))
expect_true(any(grepl("xxxxxx", out, fixed = TRUE)))
expect_false(any(grepl("secret", out, fixed = TRUE)))
expect_true(any(grepl("hidden", out, fixed = TRUE)))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.