From 871a9a1730d8efe67d1e0ed3b4e91ee009901765 Mon Sep 17 00:00:00 2001 From: Zilong-Li Date: Sat, 28 Sep 2024 16:14:13 +0200 Subject: [PATCH] update tests --- tests/testthat/test-vcf-reader.R | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) diff --git a/tests/testthat/test-vcf-reader.R b/tests/testthat/test-vcf-reader.R index 5ef0f57..5e4c0d4 100644 --- a/tests/testthat/test-vcf-reader.R +++ b/tests/testthat/test-vcf-reader.R @@ -244,3 +244,28 @@ test_that("can change samples name and set genotypes for single sample", { expect_true(vcf$gt==2) expect_true(vcf$samples=="ZZZZZ") }) + +test_that("can getStatus of a region", { + + br <- vcfreader$new(svfile) + expect_identical(br$getStatus("chr22"),-2L) + expect_identical(br$getStatus("XXX-1-9999"),-2L) + expect_identical(br$getStatus("chr21:5029001-5029100"), 0L) + expect_identical(br$getStatus("chr21"), 1L) + +}) + +test_that("can set region back and forth", { + + br <- vcfreader$new(svfile) + br$setRegion("chr21:5227411") + br$variant() + expect_identical(br$infoStr("SVTYPE"), "INS") + ## set region back + br$setRegion("chr21:5114000") + br$variant() + expect_identical(br$infoStr("SVTYPE"), "DUP") + +}) + +