context("Migrate")

data("birds")

test_that("out of bounds protein_met throws error", {
  expect_error(migrate(data = birds, method = "cmm",
                       speed_control = 1, min_energy_protein = 1,2
                                    ))
})

test_that("speed control is binary", {
  expect_error(migrate(data = birds_data, method = "cmm",
                       speed_control = "constant_speed", min_energy_protein = 0.05
  ))
})

#birds[5, 4] <- 0
test_that("zero fat mass throws warning in migrate", {
  
  # creating fresh copy of data
  # Each test it's own copy of data
  test_data <- birds
  test_data[5, 4] <- 0
  
  expect_warning(migrate(
    data = test_data,
    method = "cmm",
    speed_control = 0,
    min_energy_protein = 0.05
  )
)
})

#birds[5, 2] <- 0
test_that("zero body mass throws error in migrate", {
  
  # Creating fresh copy of data
  test_data <- birds
  test_data[5, 2] <- 0
  
  expect_error(migrate(
    data = test_data,
    method = "cmm",
    speed_control = 0,
    min_energy_protein = 0.05
  )
  )
})


#birds[5, 3] <- 0
test_that("zero wingspan throws error in migrate", {
  
  # Creating fresh copy of data
  test_data <- birds
  test_data[5, 3] <- 0
  
  expect_error(migrate(
    data = birds_data,
    method = "cmm",
    speed_control = 0,
    min_energy_protein = 0.05
  )
  )
})

#birds[5, 6] <- 0
test_that("zero wing area throws error in migrate", {
  
  # Creating fresh copy of data
  test_data <- birds
  test_data[5, 6] <- 0
  
  expect_error(migrate(
    data = birds_data,
    method = "cmm",
    speed_control = 0,
    min_energy_protein = 0.05
  )
  )
})

#birds[5, 7] <- 0
test_that("zero muscle mass throws error in migrate", {
  
  # Creating fresh copy of data
  test_data <- birds
  test_data[5, 7] <- 0
  
  expect_error(migrate(
    data = birds_data,
    method = "cmm",
    speed_control = 0,
    min_energy_protein = 0.05
  )
  )
})