Add test for soft clips

This commit is contained in:
Thomas A. Christensen II 2022-12-05 15:34:39 -06:00
parent b45081a56e
commit dd00231840

View file

@ -106,3 +106,13 @@ end
@test refbases(Variation(dna"ATCGA", "1C")) == dna"A" @test refbases(Variation(dna"ATCGA", "1C")) == dna"A"
@test altbases(Variation(dna"ATCGA", "1C")) == dna"CA" @test altbases(Variation(dna"ATCGA", "1C")) == dna"CA"
end end
@testset "SoftclipVariant" begin
refseq = dna"GATTACA"
mutseq = dna"GATTACAAAA"
refvar = Variant(refseq, SequenceVariation.Edit{typeof(refseq), eltype(refseq)}[])
# Test for ending soft clip
@test Variant(PairwiseAlignment(AlignedSequence(mutseq, Alignment("7=3S", 1, 1)), refseq)) == refvar
end