-
Notifications
You must be signed in to change notification settings - Fork 52
Expand file tree
/
Copy pathtest-list.cpp
More file actions
129 lines (98 loc) · 3.31 KB
/
test-list.cpp
File metadata and controls
129 lines (98 loc) · 3.31 KB
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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
#include <testthat.h>
#include "cpp11/doubles.hpp"
#include "cpp11/integers.hpp"
#include "cpp11/list.hpp"
#include "cpp11/logicals.hpp"
#include "cpp11/raws.hpp"
#include "cpp11/strings.hpp"
namespace cpp11 {
std::ostream& operator<<(std::ostream& os, r_bool b) { return os << int(b); }
} // namespace cpp11
context("list-C++") {
test_that("list.push_back()") {
cpp11::writable::list x;
x.push_back(cpp11::writable::doubles({1.}));
x.push_back(cpp11::writable::integers({3, 4, 5}));
x.push_back(cpp11::writable::strings({"foo", "bar"}));
cpp11::writable::logicals lgl;
lgl.push_back(TRUE);
lgl.push_back(FALSE);
lgl.push_back(TRUE);
x.push_back(lgl);
x.push_back(cpp11::writable::raws({'a', 'b', 'c'}));
expect_true(x.size() == 5);
cpp11::doubles first(x[0]);
expect_true(first[0] == 1.);
cpp11::integers second(x[1]);
expect_true(second[0] == 3);
expect_true(second[1] == 4);
expect_true(second[2] == 5);
cpp11::strings third(x[2]);
expect_true(third[0] == "foo");
expect_true(third[1] == "bar");
cpp11::logicals fourth(x[3]);
expect_true(fourth[0] == TRUE);
expect_true(fourth[1] == FALSE);
expect_true(fourth[2] == TRUE);
cpp11::raws fifth(x[4]);
expect_true(fifth[0] == 'a');
expect_true(fifth[1] == 'b');
expect_true(fifth[2] == 'c');
}
using namespace cpp11::literals;
test_that("unnamed_list.push_back(unnamed_arg)") {
cpp11::writable::list x(1);
x.push_back(cpp11::writable::integers(2));
expect_true(x.names() == R_NilValue);
}
test_that("unnamed_list.push_back(named_arg)") {
cpp11::writable::list x(1);
x.push_back("bar"_nm = 2);
cpp11::strings nms(x.names());
expect_true(nms.size() == 2);
expect_true(nms[0] == "");
expect_true(nms[1] == "bar");
}
test_that("named_list.push_back(unnamed_arg)") {
cpp11::writable::list x({"foo"_nm = 1});
x.push_back(cpp11::writable::integers(2));
cpp11::strings nms(x.names());
expect_true(nms.size() == 2);
expect_true(nms[0] == "foo");
expect_true(nms[1] == "");
}
test_that("named_list.push_back(named_arg)") {
cpp11::writable::list x({"foo"_nm = 1});
x.push_back({"bar"_nm = 2});
cpp11::strings nms(x.names());
expect_true(nms.size() == 2);
expect_true(nms[0] == "foo");
expect_true(nms[1] == "bar");
}
test_that("empty_list.push_back(unnamed_arg)") {
cpp11::writable::list x;
x.push_back(cpp11::writable::integers(2));
expect_true(x.names() == R_NilValue);
}
test_that("empty_list.push_back(named_arg)") {
cpp11::writable::list x;
x.push_back({"bar"_nm = 2});
cpp11::strings nms(x.names());
expect_true(nms.size() == 1);
expect_true(nms[0] == "bar");
}
test_that("attribute setting works") {
cpp11::writable::list x(
{cpp11::writable::doubles({1, 2, 3}), cpp11::writable::strings({"x", "y", "z"})});
x.attr("names") = cpp11::writable::strings({"x", "y"});
x.attr("class") = "data.frame";
x.attr("rownames") = cpp11::writable::doubles({-3, NA_REAL});
expect_true(Rf_inherits(x, "data.frame"));
}
test_that("list::iterator uses VECTOR_ELT") {
cpp11::writable::list x({cpp11::writable::integers({1, 2})});
cpp11::integers first(*x.begin());
expect_true(first[0] == 1);
expect_true(first[1] == 2);
}
}