inst/tinytest/test_as.R

24 expect_equal( as_int(10), 10L, info = "as<int>( REALSXP ) " )
25 expect_equal( as_int(10L), 10L, info = "as<int>( INTSXP ) " )
26 expect_equal( as_int(as.raw(10L)), 10L, info = "as<int>( RAWSXP ) " )
27 expect_equal( as_int(TRUE), 1L, info = "as<int>( LGLSXP ) " )
30 expect_equal( as_double(10), 10.0, info = "as<double>( REALSXP ) " )
31 expect_equal( as_double(10L), 10.0, info = "as<double>( INTSXP ) " )
32 expect_equal( as_double(as.raw(10L)), 10.0, info = "as<double>( RAWSXP ) " )
33 expect_equal( as_double(TRUE), 1.0, info = "as<double>( LGLSXP ) " )
36 expect_equal( as_raw(10), as.raw(10), info = "as<Rbyte>( REALSXP ) " )
37 expect_equal( as_raw(10L), as.raw(10), info = "as<Rbyte>( INTSXP ) " )
38 expect_equal( as_raw(as.raw(10L)), as.raw(10), info = "as<Rbyte>( RAWSXP ) " )
39 expect_equal( as_raw(TRUE), as.raw(1), info = "as<Rbyte>( LGLSXP ) " )
42 expect_equal( as_bool(10), as.logical(10), info = "as<bool>( REALSXP ) " )
43 expect_equal( as_bool(10L), as.logical(10), info = "as<bool>( INTSXP ) " )
44 expect_equal( as_bool(as.raw(10L)), as.logical(10), info = "as<bool>( RAWSXP ) " )
45 expect_equal( as_bool(TRUE), as.logical(1), info = "as<bool>( LGLSXP ) " )
48 expect_equal( as_string("foo"), "foo", info = "as<string>( STRSXP ) " )
51 expect_equal( as_vector_int(1:10), 1:10 , info = "as<vector<int>>( INTSXP ) " )
52 expect_equal( as_vector_int(as.numeric(1:10)), 1:10 , info = "as<vector<int>>( REALSXP ) " )
53 expect_equal( as_vector_int(as.raw(1:10)), 1:10 , info = "as<vector<int>>( RAWSXP ) " )
54 expect_equal( as_vector_int(c(TRUE,FALSE)), 1:0 , info = "as<vector<int>>( LGLSXP ) " )
57 expect_equal( as_vector_double(1:10), as.numeric(1:10) , info = "as<vector<double>>( INTSXP ) " )
58 expect_equal( as_vector_double(as.numeric(1:10)), as.numeric(1:10) , info = "as<vector<double>>( RE…
59 expect_equal( as_vector_double(as.raw(1:10)), as.numeric(1:10), info = "as<vector<double>>( RAWSXP …
60 expect_equal( as_vector_double(c(TRUE,FALSE)), c(1.0, 0.0) , info = "as<vector<double>>( LGLSXP ) "…
63 expect_equal( as_vector_raw(1:10), as.raw(1:10) , info = "as<vector<Rbyte>>( INTSXP ) " )
64 expect_equal( as_vector_raw(as.numeric(1:10)), as.raw(1:10) , info = "as<vector<Rbyte>>( REALSXP ) …
65 expect_equal( as_vector_raw(as.raw(1:10)), as.raw(1:10) , info = "as<vector<Rbyte>>( RAWSXP ) " )
66 expect_equal( as_vector_raw(c(TRUE,FALSE)), as.raw(1:0) , info = "as<vector<Rbyte>>( LGLSXP ) " )
69 expect_equal( as_vector_bool(0:10), as.logical(0:10) , info = "as<vector<bool>>( INTSXP ) " )
70 expect_equal( as_vector_bool(as.numeric(0:10)), as.logical(0:10) , info = "as<vector<bool>>( REALSX…
71 expect_equal( as_vector_bool(as.raw(0:10)), as.logical(0:10) , info = "as<vector<bool>>( RAWSXP ) "…
72 expect_equal( as_vector_bool(c(TRUE,FALSE)), as.logical(1:0) , info = "as<vector<bool>>( LGLSXP ) "…
75 expect_equal( as_vector_string(letters), letters , info = "as<vector<string>>( STRSXP ) " )
78 expect_equal( as_deque_int(1:10), 1:10 , info = "as<deque<int>>( INTSXP ) " )
81 expect_equal( as_list_int(1:10), 1:10 , info = "as<list<int>>( INTSXP ) " )