From 36cbd5abb9464c4d5d138eba9e6727ddb8e54565 Mon Sep 17 00:00:00 2001
From: "Thomas A. Christensen II" <25492070+MillironX@users.noreply.github.com>
Date: Wed, 15 Jun 2022 13:44:27 -0500
Subject: [PATCH] Add tests for variations function

---
 test/runtests.jl | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/test/runtests.jl b/test/runtests.jl
index 280f18a..cad0d7f 100644
--- a/test/runtests.jl
+++ b/test/runtests.jl
@@ -57,3 +57,15 @@ end
     @test mutation(del) isa Deletion
     @test mutation(ins) isa Insertion
 end
+
+@testset "VariationRetrieval" begin
+    refseq = dna"ACAACTTTATCT"
+    mutseq = dna"ACATCTTTATCT"
+
+    read = AlignedSequence(mutseq[1:10], Alignment("10M", 1, 1))
+    aln = PairwiseAlignment(read, refseq)
+    var = Variant(aln)
+
+    sub = Variation(refseq, "A4T")
+    @test first(variations(var)) == sub
+end