Skip to content

Commit a816e91

Browse files
committed
add basic tests for scripts
at some point this will become much more comprehensive, but for now this will avoid embarrassing mistakes
1 parent d4bbe1e commit a816e91

File tree

3 files changed

+47
-0
lines changed

3 files changed

+47
-0
lines changed

Build.PL

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -40,6 +40,7 @@ sub get_base_options {
4040
test_requires => {
4141
'Test::More' => 1.302,
4242
'Test::Warn' => 0.36,
43+
'Test::Script' => 1.29,
4344
},
4445
meta_merge => {
4546
resources => {

MANIFEST

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -71,6 +71,7 @@ t/08.BigWigSet-UCSC.t
7171
t/09.USeq.t
7272
t/10.Wiggle.t
7373
t/11.big_helper.t
74+
t/12.scripts.t
7475
t/Data/biotoolbox.cfg
7576
t/Data/chrI.gff3
7677
t/Data/ensemblSource.txt

t/12.scripts.t

Lines changed: 45 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,45 @@
1+
#!/usr/bin/perl -w
2+
3+
# Test script for Bio::ToolBox scripts
4+
5+
use strict;
6+
use English qw(-no_match_vars);
7+
use Test::More;
8+
use Test::Script;
9+
use File::Spec;
10+
use IO::File;
11+
use FindBin '$Bin';
12+
13+
BEGIN {
14+
plan tests => 22;
15+
## no critic
16+
$ENV{'BIOTOOLBOX'} = File::Spec->catfile( $Bin, 'Data', 'biotoolbox.cfg' );
17+
## use critic
18+
}
19+
20+
## check that all scripts compile correctly
21+
script_compiles( 'scripts/bam2wig.pl', 'bam2wig compiles ok' );
22+
script_compiles( 'scripts/correlate_position_data.pl',
23+
'correlate_position_data compiles ok' );
24+
script_compiles( 'scripts/data2bed.pl', 'data2bed compiles ok' );
25+
script_compiles( 'scripts/data2fasta.pl', 'data2fasta compiles ok' );
26+
script_compiles( 'scripts/data2gff.pl', 'data2gff compiles ok' );
27+
script_compiles( 'scripts/data2wig.pl', 'data2wig compiles ok' );
28+
script_compiles( 'scripts/db_setup.pl', 'db_setup compiles ok' );
29+
script_compiles( 'scripts/db_types.pl', 'db_types compiles ok' );
30+
script_compiles( 'scripts/get_binned_data.pl', 'get_binned_data compiles ok' );
31+
script_compiles( 'scripts/get_datasets.pl', 'get_datasets compiles ok' );
32+
script_compiles( 'scripts/get_feature_info.pl', 'get_feature_info compiles ok' );
33+
script_compiles( 'scripts/get_features.pl', 'get_features compiles ok' );
34+
script_compiles( 'scripts/get_gene_regions.pl', 'get_gene_regions compiles ok' );
35+
script_compiles( 'scripts/get_intersecting_features.pl',
36+
'get_intersecting_features compiles ok' );
37+
script_compiles( 'scripts/get_relative_data.pl', 'get_relative_data compiles ok' );
38+
script_compiles( 'scripts/join_data_file.pl', 'join_data_file compiles ok' );
39+
script_compiles( 'scripts/manipulate_datasets.pl', 'manipulate_datasets compiles ok' );
40+
script_compiles( 'scripts/manipulate_wig.pl', 'manipulate_wig compiles ok' );
41+
script_compiles( 'scripts/merge_datasets.pl', 'merge_datasets compiles ok' );
42+
script_compiles( 'scripts/pull_features.pl', 'pull_features compiles ok' );
43+
script_compiles( 'scripts/split_data_file.pl', 'split_data_file compiles ok' );
44+
script_compiles( 'scripts/ucsc_table2gff3.pl', 'ucsc_table2gff3 compiles ok' );
45+

0 commit comments

Comments
 (0)