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