1
2test_that("set_collate and get_collate work", {
3  desc <- description$new("D1")
4
5  files <- c("foo.R", "bar.R", "foobar.R")
6  desc$set_collate(files)
7
8  expect_equal(desc$get_collate(), files)
9  expect_equal(desc$get_collate(which = "windows"), character())
10  expect_equal(desc$get_collate(which = "unix"), character())
11
12  files2 <- c(files, "foo-win.R")
13  desc$set_collate(files2, which = "windows")
14
15  expect_equal(desc$get_collate("windows"), files2)
16  expect_equal(desc$get_collate(which = "main"), files)
17  expect_equal(desc$get_collate(which = "unix"), character())
18
19  files3 <- c(files, "foo-unix.R")
20  desc$set_collate(files3, which = "unix")
21
22  expect_equal(desc$get_collate(which = "unix"), files3)
23  expect_equal(desc$get_collate(which = "windows"), files2)
24  expect_equal(desc$get_collate(which = "main"), files)
25
26})
27
28test_that("del_collate works", {
29  desc <- description$new("D1")
30
31  files <- c("foo.R", "bar.R", "foobar.R")
32  files2 <- c(files, "foo-win.R")
33  files3 <- c(files, "foo-unix.R")
34
35  desc$set_collate(files, which = "main")
36  desc$set_collate(files2, which = "windows")
37  desc$set_collate(files3, which = "unix")
38
39  desc$del_collate(which = "windows")
40
41  expect_equal(desc$get_collate(which = "windows"), character())
42  expect_equal(desc$get_collate(which = "main"), files)
43  expect_equal(desc$get_collate(which = "unix"), files3)
44
45  desc$del_collate()
46
47  expect_equal(desc$get_collate(which = "windows"), character())
48  expect_equal(desc$get_collate(which = "main"), character())
49  expect_equal(desc$get_collate(which = "unix"), character())
50
51})
52
53test_that("add_to_collate works", {
54  desc <- description$new("D1")
55
56  desc$add_to_collate("bar.R")
57  expect_equal(desc$get_collate(), "bar.R")
58
59  desc$add_to_collate("foo.R")
60  expect_equal(desc$get_collate(), c("bar.R", "foo.R"))
61
62  desc$add_to_collate("foobar.R", which = "windows")
63  expect_equal(desc$get_collate(), c("bar.R", "foo.R"))
64  expect_equal(desc$get_collate(which = "windows"), "foobar.R")
65
66  desc$add_to_collate("foobar2.R")
67  expect_equal(desc$get_collate(), c("bar.R", "foo.R", "foobar2.R"))
68  expect_equal(desc$get_collate(which = "windows"),
69               c("foobar.R", "foobar2.R"))
70
71})
72
73test_that("del_from_collate works", {
74  desc <- description$new("D1")
75
76  files <- c("foo.R", "bar.R", "foobar.R")
77  files2 <- c(files, "foo-win.R")
78  files3 <- c(files, "foo-unix.R")
79
80  desc$set_collate(files, which = "main")
81  desc$set_collate(files2, which = "windows")
82  desc$set_collate(files3, which = "unix")
83
84  desc$del_from_collate("foo.R")
85
86  expect_equal(desc$get_collate(which = "main"), c("bar.R", "foobar.R"))
87  expect_equal(desc$get_collate(which = "windows"),
88               c("bar.R", "foobar.R", "foo-win.R"))
89  expect_equal(desc$get_collate(which = "unix"),
90               c("bar.R", "foobar.R", "foo-unix.R"))
91
92  desc$del_from_collate("bar.R", which = "windows")
93
94  expect_equal(desc$get_collate(which = "main"), c("bar.R", "foobar.R"))
95  expect_equal(desc$get_collate(which = "windows"),
96               c("foobar.R", "foo-win.R"))
97  expect_equal(desc$get_collate(which = "unix"),
98               c("bar.R", "foobar.R", "foo-unix.R"))
99
100})
101
102test_that("add to all collate fields", {
103
104  desc <- description$new("D1")
105  desc$set_collate(c("f1.R", "f2.R"), which = "main")
106  desc$set_collate(c("f3.R", "f4.R"), which = "win")
107  desc$add_to_collate("f5.R", which = "all")
108
109  expect_equal(
110    desc$get_collate(which = "main"),
111    c("f1.R", "f2.R", "f5.R")
112  )
113  expect_equal(
114    desc$get_collate(which = "win"),
115    c("f3.R", "f4.R", "f5.R")
116  )
117})
118
119test_that("deleting from non-existing collate does nothing", {
120
121  desc <- description$new("D1")
122  expect_silent(desc$del_from_collate('foo.R'))
123})
124