BZ::Client::Test - Module for writing integration tests

BZ-Client documentation Contained in the BZ-Client distribution.

Index

Code Index:

NAME

Top

  BZ::Client::Test - Module for writing integration tests

SYNOPSIS

Top

  # Create a new instance, reading configuration from either of
  # the given files.
  my $tester = BZ::Client::Test->new(["config.pl", "t/config.pl"]);
  my $skipping = $tester->isSkippingIntegrationTests();
  if ($skipping) {
    # Skip integration tests
  } else {
    my $client = $tester->client();
    # Run the tests, using the given client.
  }

CLASS METHODS

Top

This section lists the class methods.

new

  # Create a new instance, reading configuration from either of
  # the given files.
  my $tester = BZ::Client::Test->new(["config.pl", "t/config.pl"]);

  # Create a new instance, providing configuration explicitly.
  my $tester = BZ::Client->new("testUrl" => $url,
                               "testUser" => $user,
                               "testPassword" => $password);

Creates a new instance with a configuration for running integration tests. The configuration can be read from a config file or be provided explicitly.

INSTANCE METHODS

Top

This section lists the instance methods.

isSkippingIntegrationTests

  my $skipping = $tester->isSkippingIntegrationTests();

Returns, whether the tester is configured to skip integration tests. This is the case, if the method testUrl returns a an undefined value.

testUrl

  my $url = $tester->testUrl();
  $tester->testUrl($url);

Gets or sets the Bugzilla servers URL. This is also used to determine, whether the tester is able to run integration tests or not: If the URL is undefined, then integration tests will be skipped.

testUser

  my $user = $tester->testUser();
  $tester->testUser($user);

Gets or sets the Bugzilla servers user.

testPassword

  my $password = $tester->testPassword();
  $tester->testPassword($password);

Gets or sets the Bugzilla servers password.

client

  my $client = $tester->client();

Creates an instance of BZ::Client, using the testers configuration. An exception is thrown, if the tester is unable to create a client object, because integration tests are being skipped.

SEE ALSO

Top

  L<BZ::Client>
BZ-Client documentation Contained in the BZ-Client distribution. 
#
#  BZ::Client::Test - Module for writing integration tests
#

use strict;
use warnings "all";

package BZ::Client::Test;

use BZ::Client();


sub new($;@) {
    my $class = shift;
    my $self;
    if (@_ == 1) {
        my $files = shift;
        foreach my $f (@$files) {
            if (-f $f) {
                my $hash;
                eval {
                    $hash = do $f;
                };
                if ($@) {
                    die "Failed to load configuration file $f: $@";
                }
                if (!$hash  ||  ref($hash) ne "HASH") {
                    die "Configuration file $f didn't return a HASH value.";
                }
                # Create a copy of $hash
                my %opts = %{ $hash };
                $self = \%opts;
            }
        }
    } else {
        $self = { @_ };
    }
    bless($self, ref($class) || $class);
    return $self;
}

sub testUrl($;$) {
    my $self = shift;
    if (@_) {
        $self->{'testUrl'} = shift;
    } else {
        return $self->{'testUrl'};
    }
}

sub testUser($;$) {
    my $self = shift;
    if (@_) {
        $self->{'testUser'} = shift;
    } else {
        return $self->{'testUser'};
    }
}

sub testPassword($;$) {
    my $self = shift;
    if (@_) {
        $self->{'testPassword'} = shift;
    } else {
        return $self->{'testPassword'};
    }
}

sub logDirectory($;$) {
    my $self = shift;
    if (@_) {
        $self->{'logDirectory'} = shift;
    } else {
        return $self->{'logDirectory'};
    }
}

sub client($) {
    my $self = shift;
    if ($self->isSkippingIntegrationTests()) {
        die "Unable to create a client, as integration tests are being skipped.";
    }
    return BZ::Client->new("url" => $self->testUrl(),
                           "user" => $self->testUser(),
                           "password" => $self->testPassword(),
                           "logDirectory" => $self->logDirectory());
}

sub isSkippingIntegrationTests($) {
    my $self = shift;
    return !defined($self->testUrl());
}

1;