]>
Commit | Line | Data |
---|---|---|
1d09f67e TL |
1 | # Licensed to the Apache Software Foundation (ASF) under one |
2 | # or more contributor license agreements. See the NOTICE file | |
3 | # distributed with this work for additional information | |
4 | # regarding copyright ownership. The ASF licenses this file | |
5 | # to you under the Apache License, Version 2.0 (the | |
6 | # "License"); you may not use this file except in compliance | |
7 | # with the License. You may obtain a copy of the License at | |
8 | # | |
9 | # http://www.apache.org/licenses/LICENSE-2.0 | |
10 | # | |
11 | # Unless required by applicable law or agreed to in writing, | |
12 | # software distributed under the License is distributed on an | |
13 | # "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY | |
14 | # KIND, either express or implied. See the License for the | |
15 | # specific language governing permissions and limitations | |
16 | # under the License. | |
17 | ||
18 | r_only({ | |
19 | test_that("arrow_repos", { | |
20 | cran <- "https://cloud.r-project.org/" | |
21 | ours <- "https://dl.example.com/ursalabs/fake_repo" | |
22 | other <- "https://cran.fiocruz.br/" | |
23 | ||
24 | opts <- list( | |
25 | repos = c(CRAN = "@CRAN@"), # Restore defaul | |
26 | arrow.dev_repo = ours | |
27 | ) | |
28 | withr::with_options(opts, { | |
29 | expect_identical(arrow_repos(), cran) | |
30 | expect_identical(arrow_repos(c(cran, ours)), cran) | |
31 | expect_identical(arrow_repos(c(ours, other)), other) | |
32 | expect_identical(arrow_repos(nightly = TRUE), c(ours, cran)) | |
33 | expect_identical(arrow_repos(c(cran, ours), nightly = TRUE), c(ours, cran)) | |
34 | expect_identical(arrow_repos(c(ours, other), nightly = TRUE), c(ours, other)) | |
35 | }) | |
36 | }) | |
37 | }) |