tests/testthat/test-BamFunctions.R

In cmatKhan/brentlabRnaSeqTools: A Collection of Functions to Interact with the Brentlab RNASeq Database

test_that("multiplication works", {
  expect_equal(2 * 2, 4)
})

test_that("determine strandedness", {
  expect_equal(determineLibraryStrandedness('E7420L'), 'reverse')
  expect_equal(determineLibraryStrandedness('SolexaPrep'), 'unstranded')
})


# test_that("create bam path", {
#   run_num = '2651'
#   fastq_filename = "Brent_17_GTAC_17_ACTGTCGATC_S18_R1_001.fastq.gz"
#   lts_align_prefix = '/mnt/htcf_lts/lts_align_expr'
#   function_output = createBamPath(run_num, fastq_filename, lts_align_prefix, test=TRUE)
#   expected_output = "/mnt/htcf_lts/lts_align_expr/run_2651_samples/align/Brent_17_GTAC_17_ACTGTCGATC_S18_R1_001_sorted_aligned_reads_with_annote.bam"
#   expect_equal(function_output, expected_output)
#
#   expect_error(createBamPath(run_num, fastq_filename, lts_align_prefix))
# })