1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
test_that("parse_file_url() works when it should", {
expected <- list(
parsed = TRUE,
repo_spec = "OWNER/REPO",
path = "path/to/some/file",
ref = "REF",
host = "https://github.com"
)
expect_equal(
parse_file_url("https://github.com/OWNER/REPO/blob/REF/path/to/some/file"),
expected
)
expect_equal(
parse_file_url("https://raw.githubusercontent.com/OWNER/REPO/REF/path/to/some/file"),
expected
)
expected$path <- "file"
expect_equal(
parse_file_url("https://github.com/OWNER/REPO/blob/REF/file"),
expected
)
expect_equal(
parse_file_url("https://github.com/OWNER/REPO/blob/REF/file"),
parse_file_url("https://raw.githubusercontent.com/OWNER/REPO/REF/file")
)
expected$host <- "https://github.acme.com"
expect_equal(
parse_file_url("https://github.acme.com/OWNER/REPO/blob/REF/file"),
expected
)
expect_equal(
parse_file_url("https://raw.github.acme.com/OWNER/REPO/REF/file"),
expected
)
})
test_that("parse_file_url() gives up when it should", {
out <- parse_file_url("OWNER/REPO")
expect_false(out$parsed)
})
test_that("parse_file_url() errors when it should", {
expect_error(parse_file_url("https://github.com/OWNER/REPO"))
expect_error(parse_file_url("https://github.com/OWNER/REPO.git"))
expect_error(parse_file_url("https://github.com/OWNER/REPO/commit/abcdefg"))
expect_error(parse_file_url("https://github.com/OWNER/REPO/releases/tag/vx.y.z"))
expect_error(parse_file_url("https://github.com/OWNER/REPO/tree/BRANCH"))
expect_error(parse_file_url("https://gitlab.com/OWNER/REPO/path/to/file"))
})
|
