← Back to branch summary

~ubuntu-branches/ubuntu/trusty/bioperl/trusty

« back to all changes in this revision

Viewing changes to t/Tools/Run/WBCommandExts.t

  • Committer: Package Import Robot
  • Author(s): Charles Plessy
  • Date: 2013-09-22 13:39:48 UTC
  • mfrom: (3.1.11 sid)
  • Revision ID: package-import@ubuntu.com-20130922133948-c6z62zegjyp7ztou
Tags: 1.6.922-1
http://bugs.debian.org/722910
* New upstream release.
* Replaces and Breaks grinder (<< 0.5.3-3~) because of overlaping contents.
  Closes: #722910
* Stop Replacing and Breaking bioperl ( << 1.6.9 ): not needed anymore. 

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/Tools/Run/WBCommandExts.t
11
11
    $home = '../../..'; # set to '.' for Build use, 
12
12
                      # '../../..' for debugging from .t file
13
13
    unshift @INC, $home;
14
 
    test_begin(-tests => 22,
 
14
    test_begin(-tests => 25,
15
15
               -requires_modules => [qw(Bio::Tools::Run::WrapperBase
16
16
                                        Bio::Tools::Run::WrapperBase::CommandExts)]);
17
17
}
30
30
ok $fac->is_pseudo, "is pseudo";
31
31
is $fac->narf, 42, "correct parm set";
32
32
ok !$fac->parameters_changed, "parm flag cleared";
33
 
is join(' ',@{$fac->_translate_params}), '--schlurb breb -n 42 -f', "translate opts to command line";
 
33
my $param_str = join(' ',@{$fac->_translate_params});
 
34
 
 
35
like ($param_str, qr/--schlurb breb/, 'translate opts to command line');
 
36
like ($param_str, qr/-n 42/, 'translate opts to command line');
 
37
like ($param_str, qr/-f/, 'translate opts to command line');
 
38
 
 
39
TODO: {
 
40
    local $TODO ='Determine whether the order of the parameters should be set somehow; this sporadically breaks hash randomization introduced in perl 5.17+';
 
41
    is join(' ',@{$fac->_translate_params}), '--schlurb breb -n 42 -f', "translate opts to command line";
 
42
}
34
43
 
35
44
ok $fac->reset_parameters, "parm reset";
36
45
ok !$fac->narf, "parm cleared after reset";