fix: add substitution condition to delins

Author: nokara26

src/varity/vcf_to_hgvs/protein.clj

@@ -650,6 +650,9 @@
       (every? empty? [del ins])
       (mut/protein-no-effect)
 
+      (= 1 (count del) (count ins))
+      (protein-substitution ppos* pref* palt* seq-info)
+
       (empty? del)
       (protein-insertion ppos* pref* palt* seq-info)
 

test/varity/vcf_to_hgvs_test.clj

@@ -201,6 +201,7 @@
         "chr17" 31159027 "TGC" "T" '("p.A75*") ; not actual example (+, nonsense in del case)
         "chr2" 47478341 "TG" "T" '("p.L762*" "p.L696*") ;; rs786204050 (+) frameshift with termination
         "chr17" 7676202 "T" "TGTCCCTTAGTCTT" '("p.P58*" "p.P19*") ; cf. not actual example (-, frameshift with termination)
+        "chr13" 24421115 "TGACTTAGCC" "T" '("p.G1724K") ; not actual example (-, del includes termination codon)
 
         ;; deletion
         "chr1" 240092288 "AGTC" "A" '("p.S61del") ; cf. rs772088733 (+)