|
| 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