File: test-python-pickle.R

package info (click to toggle)
r-cran-reticulate 1.41.0.1%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 3,088 kB
  • sloc: cpp: 5,154; python: 620; sh: 13; makefile: 2
file content (17 lines) | stat: -rw-r--r-- 447 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
context("pickle")

test_that("Objects can be saved and loaded with pickle", {
  skip_if_no_python()
  x <- dict()
  x$a <- 1
  x$b <- 2
  py_save_object(x, "x.pickle")
  on.exit(unlink("x.pickle"), add = TRUE)
  y <- py_load_object("x.pickle")
  expect_identical(y, list(a = 1, b = 2))
  expect_true(py_bool(x == y))
  y <- py_load_object("x.pickle", convert = FALSE)
  expect_s3_class(y, "python.builtin.dict")
  expect_true(py_to_r(x == y))
})