tests/testthat/test-mock_predict_topology_from_sequence.R

In richelbilderbeek/tmhmm: Interface to TMHMM

test_that("use", {
  protein_sequence <-
    "QEKNWSALLTAVVIILTIAGNILVIMAVSLEKKLQNATNYFLMSLAIADMLLGFLVMPVSMLTILYGYRWP"
  topology <- mock_predict_topology_from_sequence(
    protein_sequence = protein_sequence
  )
  expect_equal(
    topology,
      "OOOoMOMMMoMMMMMMoMMMoMMMMMMMOMOOOMOoMooMMMMOMMMMoMMMMMMMMOMOMMoMMMMMiMO"
  )
  expect_equal(nchar(protein_sequence), nchar(topology))
})

test_that("use", {
  expect_error(
    mock_predict_topology_from_sequence(protein_sequence = "U"),
    "Character 'U' not allowed in alphabet 'ACDEFGHIKLMNPQRSTVWYBXZ'"
  )
})