|
286 | 286 | run_test(\&test_vcf_norm,$opts,in=>'norm.phased-split',out=>'norm.phased-split.1.out',args=>'-m -any'); |
287 | 287 | run_test(\&test_vcf_norm,$opts,in=>'norm.phased-join',out=>'norm.phased-join.1.out',args=>'-m +any'); |
288 | 288 | run_test(\&test_vcf_norm,$opts,in=>'norm.symbolic',fai=>'norm.symbolic',out=>'norm.symbolic.1.out',args=>'--old-rec-tag ORI'); |
| 289 | +run_test(\&test_vcf_norm,$opts,in=>'norm.right-align',fai=>'norm.right-align',out=>'norm.right-align.1.out',args=>'--old-rec-tag ORI'); |
| 290 | +run_test(\&test_vcf_norm,$opts,in=>'norm.right-align',fai=>'norm.right-align',out=>'norm.right-align.2.out',args=>'--old-rec-tag ORI -g {PATH}/norm.right-align.gff'); |
289 | 291 | run_test(\&test_vcf_view,$opts,in=>'view',out=>'view.1.out',args=>'-aUc1 -C1 -s NA00002 -v snps',reg=>''); |
290 | 292 | run_test(\&test_vcf_view,$opts,in=>'view',out=>'view.2.out',args=>'-f PASS -Xks NA00003',reg=>'-r20,Y'); |
291 | 293 | run_test(\&test_vcf_view,$opts,in=>'view',out=>'view.3.out',args=>'-xs NA00003',reg=>''); |
@@ -1409,6 +1411,7 @@ sub test_vcf_norm |
1409 | 1411 | my ($opts,%args) = @_; |
1410 | 1412 | bgzip_tabix_vcf($opts,$args{in}); |
1411 | 1413 | my $params = ''; |
| 1414 | + $args{args} =~ s/{PATH}/$$opts{path}/g; |
1412 | 1415 | if ( exists($args{args}) ) { $params .= " $args{args}"; } |
1413 | 1416 | if ( exists($args{fai} ) ) { $params .= " -f $$opts{path}/$args{fai}.fa"; } |
1414 | 1417 | test_cmd($opts,%args,cmd=>"$$opts{bin}/bcftools norm --no-version $params $$opts{tmp}/$args{in}.vcf.gz",exp_fix=>1); |
|
0 commit comments