sub
test_001 :Tags(samples) {
my
$test
=
shift
;
for
(
my
$i
=1;
$i
<=5;
$i
++){
make_path(
"$Bin/example/data/raw/test003/sample$i"
);
}
ok(1);
}
sub
test_006 :Tags(output) {
my
$test
=
shift
;
my
$obj
= BioX::Workflow->new(
workflow
=>
"$Bin/example/test003.yml"
);
isa_ok(
$obj
,
'BioX::Workflow'
);
my
$expected
= slurp(
"$Bin/example/test003.sh"
);
$expected
=~ s/\
$Bin
/
$Bin
/g;
my
$got
= capture {
$obj
->init_things;
$obj
->write_workflow_meta(
'start'
);
$obj
->write_pipeline;
$obj
->write_workflow_meta(
'end'
);
};
is(
$got
,
$expected
,
"Got expected output!"
);
ok(-d
"$Bin/example/data/processed/test003"
);
}
1;