tests/testthat/test-get_n_neurons_in_latent_layer_from_model.R

In richelbilderbeek/gcaer: Interface to GCAE

test_that("M0, example file", {
  model_filename <- get_gcaer_filename("M0.json")
  model <- read_model_file(model_filename)
  n_neurons <- get_n_neurons_in_latent_layer_from_model(model)
  expect_equal(2, n_neurons)
})

test_that("M0, GCAE file", {
  if (!is_gcae_script_fixed()) return()
  model_filename <- get_gcae_model_filename("M0")
  model <- read_model_file(model_filename)
  n_neurons <- get_n_neurons_in_latent_layer_from_model(model)
  expect_equal(2, n_neurons)
})

test_that("M1", {
  if (!is_gcae_script_fixed()) return()
  model_filename <- get_gcae_model_filename("M1")
  model <- read_model_file(model_filename)
  n_neurons <- get_n_neurons_in_latent_layer_from_model(model)
  expect_equal(2, n_neurons)
})

test_that("M3d", {
  if (!is_gcae_script_fixed()) return()
  model_filename <- get_gcae_model_filename("M3d")
  model <- read_model_file(model_filename)
  n_neurons <- get_n_neurons_in_latent_layer_from_model(model)
  expect_equal(2, n_neurons)
})

test_that("M3e", {
  if (!is_gcae_script_fixed()) return()
  model_filename <- get_gcae_model_filename("M3e")
  model <- read_model_file(model_filename)
  n_neurons <- get_n_neurons_in_latent_layer_from_model(model)
  expect_equal(2, n_neurons)
})

test_that("M3f", {
  if (!is_gcae_script_fixed()) return()
  model_filename <- get_gcae_model_filename("M3f")
  model <- read_model_file(model_filename)
  n_neurons <- get_n_neurons_in_latent_layer_from_model(model)
  expect_equal(2, n_neurons)
})