File: test-expect-reference.R

package info (click to toggle)
r-cran-testthat 3.3.2-1
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 4,048 kB
  • sloc: cpp: 9,269; sh: 14; ansic: 14; makefile: 5
file content (12 lines) | stat: -rw-r--r-- 282 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
 
test_that("succeeds only when same object", {
  local_edition(2)
  x <- y <- 1
  expect_success(expect_reference(x, y))
  expect_snapshot_failure(expect_reference(x, 1))
})

test_that("returns value", {
  local_edition(2)
  one <- 1
  expect_equal(expect_reference(one, one), 1)
})