File Coverage

blib/lib/Apache2/ASP/Test/Base.pm

Criterion	Covered	Total	%
statement	20	31	64.5
branch	0	4	0.0
condition			n/a
subroutine	7	14	50.0
pod	5	8	62.5
total	32	57	56.1

package Apache2::ASP::Test::Base;

use strict;
use warnings 'all';
use Apache2::ASP::ConfigLoader;
use Apache2::ASP::Test::UserAgent;
use Apache2::ASP::Test::Fixtures;
use Data::Properties::YAML;


#==============================================================================
sub new
{
  my $class = shift;

  my $config = Apache2::ASP::ConfigLoader->load();

  # Our test fixtures:
  my $data = Apache2::ASP::Test::Fixtures->new(
    properties_file => $config->web->application_root . '/etc/test_fixtures.yaml'
  ) if -f $config->web->application_root . '/etc/test_fixtures.yaml';

  # Our diagnostic messages:
  my $properties = Data::Properties::YAML->new(
    properties_file => $config->web->application_root . '/etc/properties.yaml'
  ) if -f $config->web->application_root . '/etc/properties.yaml';

  my $s = bless {
    # TBD:
    ua     => Apache2::ASP::Test::UserAgent->new( config => $config ),
    config => $config,
    data   => $data,
    properties  => $properties,
  }, $class;

  return $s;
}# end new()


#==============================================================================
sub ua { $_[0]->{ua} }
sub config { $_[0]->{config} }
sub data { $_[0]->{data} }  # Deprecated
sub test_fixtures { $_[0]->{data} }
sub diags { $_[0]->{properties} } # Deprecated
sub properties { $_[0]->{properties} }
sub session { $_[0]->{ua}->context->session }

1;# return true:

=head1 NAME

Apache2::ASP::Test::Base  - base class for all test helper objects.

=head1 SYNOPSIS

  #!/usr/bin/perl -w

  use strict;
  use warnings 'all';
  use Test::More 'no_plan';
  use Apache2::ASP::Test::Base;

  ok( my $t = Apache2::ASP::Test::Base->new() );

  my $res = $t->ua->get("/index.asp");
  ok( $res->is_success );
  is( $res->header('location') => undef );

=head1 DESCRIPTION

The whole point of writing Apache2::ASP was to enable command-line testing
of entire websites - and to gather statistics via L and L.

Somehow the test-driven-development world completely missed the point:

B

Apache2::ASP and this class provide an excellent means of doing that.

See the C folder in this distribution for several examples of testing different
kinds of functionality with C.

=head1 PUBLIC PROPERTIES

=head2 ua

Returns the current L object.

=head2 config

Shortcut method to the current L object.

=head2 test_fixtures

Shortcut method to the current L object
representing the test fixtures found in C

=head2 properties

Shortcut method to the current L object
representing the properties found in C

=head2 session

Shortcut method to the current L object.

=head1 BUGS

It's possible that some bugs have found their way into this release.

Use RT L to submit bug reports.

=head1 HOMEPAGE

Please visit the Apache2::ASP homepage at L to see examples
of Apache2::ASP in action.

=head1 AUTHOR

John Drago L

=head1 COPYRIGHT AND LICENSE

Copyright 2007 John Drago, All rights reserved.

This software is free software.  It may be used and distributed under the
same terms as Perl itself.

=cut