test_that("use", {
check_empty_beaustier_folders()
filename <- get_beastier_tempfilename()
expect_silent(
create_random_fasta(
n_taxa = 5,
sequence_length = 20,
fasta_filename = filename
)
)
expect_true(file.exists(filename))
file.remove(filename)
remove_beaustier_folders()
check_empty_beaustier_folders()
})
test_that("sub-sub folder", {
check_empty_beaustier_folders()
filename <- file.path(get_beastier_tempfilename(), "sub", "sub", "sub")
expect_silent(
create_random_fasta(
n_taxa = 5,
sequence_length = 20,
fasta_filename = filename
)
)
expect_true(file.exists(filename))
file.remove(filename)
remove_beaustier_folders()
check_empty_beaustier_folders()
})
test_that("abuse", {
check_empty_beaustier_folders()
expect_error(
create_random_fasta(
n_taxa = 0, #Error
sequence_length = 20,
fasta_filename = "test.fasta"
),
"'n_taxa' must two or more"
)
expect_error(
create_random_fasta(
n_taxa = 5,
sequence_length = 0, # Error
fasta_filename = "test.fasta"
),
"'sequence_length' must be one or more"
)
expect_error(
create_random_fasta(
n_taxa = 5,
sequence_length = 20,
fasta_filename = ape::rcoal(4)
),
"is_one_string"
)
expect_error(
create_random_fasta(
n_taxa = 5,
sequence_length = 20,
fasta_filename = "" # Error
),
"'fasta_filename' must have at least one character"
)
expect_error(
create_random_fasta(
n_taxa = 5,
sequence_length = 20,
fasta_filename = "test.fasta",
taxa_name_ext = ape::rcoal(3) # Error
),
"is_one_string"
)
check_empty_beaustier_folders()
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.