Bio-Tradis
view release on metacpan or search on metacpan
t/Bio/Tradis/Parser/Bam.t view on Meta::CPAN
QUAL => 'HHHGGGGGGGHHHHHHHHHHHGHHHGHHGGGGGGGGGGFFFBFFCBAABA',
X0 => '1',
X1 => '0',
BC => 'TCTCGGTT',
MD => '50',
RG => '1#14',
XG => '0',
NM => '0',
XM => '0',
XO => '0',
QT => 'BBCDECBC',
XT => 'U',
tq => 'CCCBBFFFFF',
tr => 'TAAGAGTCAG',
READ => 'MS5_9521:1:1101:10072:14269#14 16 ENA|AE004091|AE004091.2 5 37 50M * 0 0 AAGAGACCGGCGATTCTAGTGAAATCGAACGGGCAGGTCAATTTCCAACC HHHGGGGGGGHHHHHHHHHHHGHHHGHHGGGGGGGGGGFFFBFFCBAABA X0:i:1 X1:i:0 BC:Z:TCTCGGTT MD:Z:50 RG:Z:1#14 XG:i:0 NM...
},
'read_info contains correct info for first line';
is $obj->is_mapped, 1, 'testing flag parsing - mapped';
is $obj->is_reverse, 1, 'testing flag parsing - reverse complement';
# Test reading second/last result
is $obj->next_read, 1, 'last result detected';
$read_info = $obj->read_info;
is_deeply $read_info,
( run in 0.992 second using v1.01-cache-2.11-cpan-df04353d9ac )