package Test::Chimps::Report;

use warnings;
use strict;

=head1 NAME

Test::Chimps::Report - Encapsulate a smoke test report

=head1 SYNOPSIS

Represents a smoke report.  See L<Jifty::DBI::Record>.

Note that parts of this class are dynamically generated in
Test::Chimps::Server base on the configuation file.

=head1 METHODS

=head2 new ARGS

Creates a new Report.  ARGS is a hash whose only valid key is
handle.  Its value must be a Jifty::DBI::Handle.

=head1 COLUMNS

C<Test::Chimps::Report>s have the following columns (and consequently accessors):

=over 4

=item * report_html

=item * model_structure

=item * timestamp

=item * total_ok

=item * total_passed

=item * total_nok

=item * total_failed

=item * total_percentage

=item * total_ratio

=item * total_seen

=item * total_skipped

=item * total_todo

=item * total_unexpectedly_succeeded 

=back

Additionally, columns are added dynamically based on the report
variables specified in the server.  Unfortunately, this means that
external modules have a hard time getting at the C<Report> class as
seen by the server.

=cut

use base qw/Jifty::DBI::Record/;

package Test::Chimps::Report::Schema;

use Jifty::DBI::Schema;

column report_html                  => type is 'text';
column model_structure              => type is 'text',
  filters are 'Jifty::DBI::Filter::Storable', 'Jifty::DBI::Filter::base64';
column timestamp                    => type is 'timestamp',
  filters are 'Jifty::DBI::Filter::DateTime';
column total_ok                     => type is 'integer';
column total_passed                 => type is 'integer';
column total_nok                    => type is 'integer';
column total_failed                 => type is 'integer';
column total_percentage             => type is 'integer';
column total_ratio                  => type is 'integer';
column total_seen                   => type is 'integer';
column total_skipped                => type is 'integer';
column total_todo                   => type is 'integer';
column total_unexpectedly_succeeded => type is 'integer';

=head1 AUTHOR

Zev Benjamin, C<< <zev at cpan.org> >>

=head1 BUGS

Please report any bugs or feature requests to
C<bug-test-chimps at rt.cpan.org>, or through the web interface at
L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Test-Chimps>.
I will be notified, and then you'll automatically be notified of progress on
your bug as I make changes.

=head1 SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc Test::Chimps

You can also look for information at:

=over 4

=item * Mailing list

Chimps has a mailman mailing list at
L<chimps@bestpractical.com>.  You can subscribe via the web
interface at
L<http://lists.bestpractical.com/cgi-bin/mailman/listinfo/chimps>.

=item * AnnoCPAN: Annotated CPAN documentation

L<http://annocpan.org/dist/Test-Chimps>

=item * CPAN Ratings

L<http://cpanratings.perl.org/d/Test-Chimps>

=item * RT: CPAN's request tracker

L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Test-Chimps>

=item * Search CPAN

L<http://search.cpan.org/dist/Test-Chimps>

=back

=head1 COPYRIGHT & LICENSE

Copyright 2006 Best Practical Solutions.

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

=cut

1;