← Back to branch summary

~drizzle-trunk/drizzle/development

« back to all changes in this revision

Viewing changes to unit/TestScripts.pm

  • Committer: Bernt M. Johnsen
  • Date: 2010-03-02 10:44:50 UTC
  • mto: (0.101.19 lp-randgen-xml)
  • mto: This revision was merged to the branch mainline in revision 2435.
  • Revision ID: bernt.johnsen@sun.com-20100302104450-g33ebt81d5dk9s5x
Out-of-source test fix

Show diffs side-by-side

added added

removed removed

Lines of Context:
unit/TestScripts.pm
20
20
package TestScripts;
21
21
use base qw(Test::Unit::TestCase);
22
22
use lib 'lib';
 
23
use GenTest;
23
24
 
24
25
sub new {
25
26
    my $self = shift()->SUPER::new(@_);
80
81
    if ($ENV{TEST_OUT_OF_SOURCE}) {
81
82
        ## runall does not work with out of source builds
82
83
        say("test_runall skipped for out-of-source build");
 
84
        return;
83
85
    }
84
86
    my $portbase = $ENV{TEST_PORTBASE}>0?int($ENV{TEST_PORTBASE}):22120;
85
87
    my $pb = int(($portbase - 10000) / 10);