X-Git-Url: http://git.ieval.ro/?p=text-levenshtein-edlib.git;a=blobdiff_plain;f=t%2FText-Levenshtein-Edlib.t;h=1cb186aba8fbccdd15e268c618534327040b061d;hp=ddd487c887f340737f73bef79ef8e8550970c0b3;hb=329961ff6ed69969c2fd1e6d60dc9fdc1d55a5ab;hpb=a99d15a3e2868f2ec62f8a81fcba0ede439c723e

diff --git a/t/Text-Levenshtein-Edlib.t b/t/Text-Levenshtein-Edlib.t
index ddd487c..1cb186a 100644
--- a/t/Text-Levenshtein-Edlib.t
+++ b/t/Text-Levenshtein-Edlib.t
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 9;
+use Test::More tests => 11;
 BEGIN { use_ok('Text::Levenshtein::Edlib', ':all') };
 
 
@@ -36,3 +36,9 @@ is $r->{alphabetLength}, 7, 'align->{alphabetLength}';
 is_deeply $r->{endLocations}, [6], 'align->{endLocations}';
 is_deeply $r->{startLocations}, [0], 'align->{startLocations}';
 is_deeply $r->{alignment}, [3, 0, 0, 0, 3, 0, 2], 'align->{alignment}';
+
+my $cigar;
+$cigar = to_cigar $r->{alignment};
+is $cigar, '6M1D', 'to_cigar';
+$cigar = to_cigar $r->{alignment}, EDLIB_CIGAR_EXTENDED;
+is $cigar, '1X3=1X1=1D', 'to_cigar (extended)';