@@ -186,24 +186,24 @@ sub test_pbwt
186
186
sub test_write_vcf
187
187
{
188
188
my ($opts ,%args ) = @_ ;
189
- test_cmd($opts ,%args ,cmd => " $$opts {bin}/pbwt -read $$opts {tmp}/$args {in}.pbwt -readSites $$opts {tmp}/$args {in}.sites -writeVcf - 2>/dev/null | grep -v ^##pbwtVersion >$$opts {tmp}/$args {out}" );
190
- test_cmd($opts ,%args ,cmd => " $$opts {bin}/pbwt -read $$opts {tmp}/$args {in}.pbwt -readSites $$opts {tmp}/$args {in}.sites -writeVcfGz - 2>/dev/null | $$opts {bin}/pbwt -readVcfGT - -writeVcf - 2>/dev/null | grep -v ^##pbwtVersion >$$opts {tmp}/$args {out}" );
191
- test_cmd($opts ,%args ,cmd => " $$opts {bin}/pbwt -read $$opts {tmp}/$args {in}.pbwt -readSites $$opts {tmp}/$args {in}.sites -writeBcf - 2>/dev/null | $$opts {bin}/pbwt -readVcfGT - -writeVcf - 2>/dev/null | grep -v ^##pbwtVersion >$$opts {tmp}/$args {out}" );
192
- test_cmd($opts ,%args ,cmd => " $$opts {bin}/pbwt -read $$opts {tmp}/$args {in}.pbwt -readSites $$opts {tmp}/$args {in}.sites -writeBcfGz - 2>/dev/null | $$opts {bin}/pbwt -readVcfGT - -writeVcf - 2>/dev/null | grep -v ^##pbwtVersion >$$opts {tmp}/$args {out}" );
189
+ test_cmd($opts ,%args ,cmd => " $$opts {bin}/pbwt -read $$opts {tmp}/$args {in}.pbwt -readSites $$opts {tmp}/$args {in}.sites -writeVcf - 2>/dev/null | grep -v ^##pbwt >$$opts {tmp}/$args {out}" );
190
+ test_cmd($opts ,%args ,cmd => " $$opts {bin}/pbwt -read $$opts {tmp}/$args {in}.pbwt -readSites $$opts {tmp}/$args {in}.sites -writeVcfGz - 2>/dev/null | $$opts {bin}/pbwt -readVcfGT - -writeVcf - 2>/dev/null | grep -v ^##pbwt >$$opts {tmp}/$args {out}" );
191
+ test_cmd($opts ,%args ,cmd => " $$opts {bin}/pbwt -read $$opts {tmp}/$args {in}.pbwt -readSites $$opts {tmp}/$args {in}.sites -writeBcf - 2>/dev/null | $$opts {bin}/pbwt -readVcfGT - -writeVcf - 2>/dev/null | grep -v ^##pbwt >$$opts {tmp}/$args {out}" );
192
+ test_cmd($opts ,%args ,cmd => " $$opts {bin}/pbwt -read $$opts {tmp}/$args {in}.pbwt -readSites $$opts {tmp}/$args {in}.sites -writeBcfGz - 2>/dev/null | $$opts {bin}/pbwt -readVcfGT - -writeVcf - 2>/dev/null | grep -v ^##pbwt >$$opts {tmp}/$args {out}" );
193
193
}
194
194
195
195
sub test_read_vcf_gt
196
196
{
197
197
my ($opts ,%args ) = @_ ;
198
- test_cmd($opts ,%args ,cmd => " $$opts {bin}/pbwt -readVcfGT $$opts {path}/read.vcf -writeVcf - 2>/dev/null | grep -v ^##pbwtVersion >$$opts {tmp}/$args {out}" );
198
+ test_cmd($opts ,%args ,cmd => " $$opts {bin}/pbwt -readVcfGT $$opts {path}/read.vcf -writeVcf - 2>/dev/null | grep -v ^##pbwt >$$opts {tmp}/$args {out}" );
199
199
}
200
200
201
201
sub test_pbwt_reference_impute
202
202
{
203
203
my ($opts ,%args ) = @_ ;
204
204
# create reference panel pbwt
205
205
cmd(" $$opts {bin}/pbwt -readVcfGT $$opts {path}/$args {ref}.vcf -writeAll $$opts {tmp}/$args {ref} 2>/dev/null" );
206
- test_cmd($opts ,%args ,cmd => " $$opts {bin}/pbwt -readVcfGT $$opts {path}/$args {in}.vcf -referenceImpute $$opts {tmp}/$args {ref} -writeVcf - 2>/dev/null | grep -v ^##pbwtVersion > $$opts {tmp}/$args {out}" );
206
+ test_cmd($opts ,%args ,cmd => " $$opts {bin}/pbwt -readVcfGT $$opts {path}/$args {in}.vcf -referenceImpute $$opts {tmp}/$args {ref} -writeVcf - 2>/dev/null | grep -v ^##pbwt > $$opts {tmp}/$args {out}" );
207
207
}
208
208
209
209
sub test_merge
0 commit comments