File: test-are-identical.R

package info (click to toggle)
r-cran-assertive.base 0.0-9-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, trixie
  • size: 476 kB
  • sloc: sh: 13; makefile: 2
file content (13 lines) | stat: -rw-r--r-- 289 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
test_that(
  "test are_identical with identical objects returns true", 
  {
    expect_true(are_identical((1:3) ^ 3, c(1, 8, 27)))
  }
)

test_that(
  "test are_identical with non-identical objects returns false", 
  {
    expect_false(are_identical((1:3) ^ 3, c(1, 8, 27.0000001)))
  }
)