test_converters.R
In rearrr: Rearranging Data

library(rearrr)
context("converters")

test_that("degrees_to_radians()", {

  expect_equal(degrees_to_radians(-720:720),
               (-720:720) * (pi/180))


  ## Testing 'degrees_to_radians(-720:720)'                                 ####
  ## Initially generated by xpectr
  xpectr::set_test_seed(42)
  # Assigning output
  output_19148 <- degrees_to_radians(-720:720)
  # Testing class
  expect_equal(
    class(output_19148),
    "numeric",
    fixed = TRUE)
  # Testing type
  expect_type(
    output_19148,
    type = "double")
  # Testing values
  expect_equal(
    xpectr::smpl(output_19148, n = 30),
    c(-10.54179, -9.65167, -9.19789, -9.14553, -6.21337, -5.39307, -2.93215,
      -1.55334, -1.13446, -1.06465, -0.7854, 0.13963, 0.43633, 1.32645,
      3.52557, 3.85718, 5.044, 5.37561, 5.88176, 8.02851, 8.27286,
      9.77384, 9.84366, 10.43707, 10.73377, 10.82104, 10.85595, 10.97812,
      11.74607, 11.9206),
    tolerance = 1e-4)
  # Testing names
  expect_equal(
    names(xpectr::smpl(output_19148, n = 30)),
    NULL,
    fixed = TRUE)
  # Testing length
  expect_equal(
    length(output_19148),
    1441L)
  # Testing sum of element lengths
  expect_equal(
    sum(xpectr::element_lengths(output_19148)),
    1441L)
  ## Finished testing 'degrees_to_radians(-720:720)'                        ####


  # fuzz

  # Generate expectations for 'degrees_to_radians'
  # Tip: comment out the gxs_function() call
  # so it is easy to regenerate the tests
  xpectr::set_test_seed(42)
  # xpectr::gxs_function(
  #   fn = degrees_to_radians,
  #   args_values = list(
  #     "degrees" = list(c(1,2,3, NA), c(1,2,3,4))
  #   ),
  #   indentation = 2,
  #   copy_env = FALSE
  # )


  ## Testing 'degrees_to_radians'                                             ####
  ## Initially generated by xpectr
  # Testing different combinations of argument values

  # Testing degrees_to_radians(degrees = c(1, 2, 3, NA))
  xpectr::set_test_seed(42)
  # Assigning output
  output_19148 <- degrees_to_radians(degrees = c(1, 2, 3, NA))
  # Testing class
  expect_equal(
    class(output_19148),
    "numeric",
    fixed = TRUE)
  # Testing type
  expect_type(
    output_19148,
    type = "double")
  # Testing values
  expect_equal(
    output_19148,
    c(0.01745, 0.03491, 0.05236, NA),
    tolerance = 1e-4)
  # Testing names
  expect_equal(
    names(output_19148),
    NULL,
    fixed = TRUE)
  # Testing length
  expect_equal(
    length(output_19148),
    4L)
  # Testing sum of element lengths
  expect_equal(
    sum(xpectr::element_lengths(output_19148)),
    4L)

  # Testing degrees_to_radians(degrees = c(1, 2, 3, 4))
  # Changed from baseline: degrees = c(1, 2, 3, 4)
  xpectr::set_test_seed(42)
  # Assigning output
  output_19370 <- degrees_to_radians(degrees = c(1, 2, 3, 4))
  # Testing class
  expect_equal(
    class(output_19370),
    "numeric",
    fixed = TRUE)
  # Testing type
  expect_type(
    output_19370,
    type = "double")
  # Testing values
  expect_equal(
    output_19370,
    c(0.01745, 0.03491, 0.05236, 0.06981),
    tolerance = 1e-4)
  # Testing names
  expect_equal(
    names(output_19370),
    NULL,
    fixed = TRUE)
  # Testing length
  expect_equal(
    length(output_19370),
    4L)
  # Testing sum of element lengths
  expect_equal(
    sum(xpectr::element_lengths(output_19370)),
    4L)

  # Testing degrees_to_radians(degrees = NULL)
  # Changed from baseline: degrees = NULL
  xpectr::set_test_seed(42)
  # Testing side effects
  # Assigning side effects
  side_effects_12861 <- xpectr::capture_side_effects(degrees_to_radians(degrees = NULL), reset_seed = TRUE)
  expect_equal(
    xpectr::strip(side_effects_12861[['error']]),
    xpectr::strip("Assertion on 'degrees' failed: Must be of type 'numeric', not 'NULL'."),
    fixed = TRUE)
  expect_equal(
    xpectr::strip(side_effects_12861[['error_class']]),
    xpectr::strip(c("simpleError", "error", "condition")),
    fixed = TRUE)

  ## Finished testing 'degrees_to_radians'                                    ####
  #

})

test_that("degrees_to_radians()", {

  expect_equal(radians_to_degrees((-4*pi):(4*pi)),
               ((-4*pi):(4*pi)) / (pi/180))


  ## Testing 'radians_to_degrees((-4*pi):(4*pi))'                           ####
  ## Initially generated by xpectr
  xpectr::set_test_seed(42)
  # Assigning output
  output_19148 <- radians_to_degrees((-4*pi):(4*pi))
  # Testing class
  expect_equal(
    class(output_19148),
    "numeric",
    fixed = TRUE)
  # Testing type
  expect_type(
    output_19148,
    type = "double")
  # Testing values
  expect_equal(
    output_19148,
    c(-720, -662.70422, -605.40844, -548.11266, -490.81688, -433.5211,
      -376.22532, -318.92954, -261.63376, -204.33798, -147.0422, -89.74643,
      -32.45065, 24.84513, 82.14091, 139.43669, 196.73247, 254.02825,
      311.32403, 368.61981, 425.91559, 483.21137, 540.50715, 597.80293,
      655.09871, 712.39449),
    tolerance = 1e-4)
  # Testing names
  expect_equal(
    names(output_19148),
    NULL,
    fixed = TRUE)
  # Testing length
  expect_equal(
    length(output_19148),
    26L)
  # Testing sum of element lengths
  expect_equal(
    sum(xpectr::element_lengths(output_19148)),
    26L)
  ## Finished testing 'radians_to_degrees((-4*pi):(4*pi))'                  ####


  # fuzz

  # Generate expectations for 'radians_to_degrees'
  # Tip: comment out the gxs_function() call
  # so it is easy to regenerate the tests
  xpectr::set_test_seed(42)
  # xpectr::gxs_function(
  #   fn = radians_to_degrees,
  #   args_values = list(
  #     "radian" = list(c(1,2,3, NA), c(1,2,3,4))
  #   ),
  #   indentation = 2,
  #   copy_env = FALSE
  # )


  ## Testing 'radians_to_degrees'                                             ####
  ## Initially generated by xpectr
  # Testing different combinations of argument values

  # Testing radians_to_degrees(radian = c(1, 2, 3, NA))
  xpectr::set_test_seed(42)
  # Assigning output
  output_19148 <- radians_to_degrees(radian = c(1, 2, 3, NA))
  # Testing class
  expect_equal(
    class(output_19148),
    "numeric",
    fixed = TRUE)
  # Testing type
  expect_type(
    output_19148,
    type = "double")
  # Testing values
  expect_equal(
    output_19148,
    c(57.29578, 114.59156, 171.88734, NA),
    tolerance = 1e-4)
  # Testing names
  expect_equal(
    names(output_19148),
    NULL,
    fixed = TRUE)
  # Testing length
  expect_equal(
    length(output_19148),
    4L)
  # Testing sum of element lengths
  expect_equal(
    sum(xpectr::element_lengths(output_19148)),
    4L)

  # Testing radians_to_degrees(radian = c(1, 2, 3, 4))
  # Changed from baseline: radian = c(1, 2, 3, 4)
  xpectr::set_test_seed(42)
  # Assigning output
  output_19370 <- radians_to_degrees(radian = c(1, 2, 3, 4))
  # Testing class
  expect_equal(
    class(output_19370),
    "numeric",
    fixed = TRUE)
  # Testing type
  expect_type(
    output_19370,
    type = "double")
  # Testing values
  expect_equal(
    output_19370,
    c(57.29578, 114.59156, 171.88734, 229.18312),
    tolerance = 1e-4)
  # Testing names
  expect_equal(
    names(output_19370),
    NULL,
    fixed = TRUE)
  # Testing length
  expect_equal(
    length(output_19370),
    4L)
  # Testing sum of element lengths
  expect_equal(
    sum(xpectr::element_lengths(output_19370)),
    4L)

  # Testing radians_to_degrees(radian = NULL)
  # Changed from baseline: radian = NULL
  xpectr::set_test_seed(42)
  # Testing side effects
  # Assigning side effects
  side_effects_12861 <- xpectr::capture_side_effects(radians_to_degrees(radian = NULL), reset_seed = TRUE)
  expect_equal(
    xpectr::strip(side_effects_12861[['error']]),
    xpectr::strip("Assertion on 'radians' failed: Must be of type 'numeric', not 'NULL'."),
    fixed = TRUE)
  expect_equal(
    xpectr::strip(side_effects_12861[['error_class']]),
    xpectr::strip(c("simpleError", "error", "condition")),
    fixed = TRUE)

  ## Finished testing 'radians_to_degrees'                                    ####
  #

})