[Bps-public-commit] r9674 - in Test-Chimps/trunk: .
alexmv at bestpractical.com
alexmv at bestpractical.com
Thu Nov 15 16:53:42 EST 2007
Author: alexmv
Date: Thu Nov 15 16:53:42 2007
New Revision: 9674
Modified:
Test-Chimps/trunk/ (props changed)
Test-Chimps/trunk/lib/Test/Chimps/Report.pm
Test-Chimps/trunk/lib/Test/Chimps/Server.pm
Log:
r24832 at zoq-fot-pik: chmrr | 2007-11-15 16:52:26 -0500
* Update for new Jifty::DBI
Modified: Test-Chimps/trunk/lib/Test/Chimps/Report.pm
==============================================================================
--- Test-Chimps/trunk/lib/Test/Chimps/Report.pm (original)
+++ Test-Chimps/trunk/lib/Test/Chimps/Report.pm Thu Nov 15 16:53:42 2007
@@ -64,12 +64,11 @@
use base qw/Jifty::DBI::Record/;
-package Test::Chimps::Report::Schema;
-
use Jifty::DBI::Schema;
+use Jifty::DBI::Record schema {
column report_html => type is 'text';
-column model_structure => type is 'text',
+column model_structure => type is 'blob',
filters are 'Jifty::DBI::Filter::Storable', 'Jifty::DBI::Filter::base64';
column timestamp => type is 'timestamp',
filters are 'Jifty::DBI::Filter::DateTime';
@@ -84,6 +83,8 @@
column total_todo => type is 'integer';
column total_unexpectedly_succeeded => type is 'integer';
+};
+
=head1 AUTHOR
Zev Benjamin, C<< <zev at cpan.org> >>
Modified: Test-Chimps/trunk/lib/Test/Chimps/Server.pm
==============================================================================
--- Test-Chimps/trunk/lib/Test/Chimps/Server.pm (original)
+++ Test-Chimps/trunk/lib/Test/Chimps/Server.pm Thu Nov 15 16:53:42 2007
@@ -219,8 +219,11 @@
if (defined $self->variables_validation_spec) {
foreach my $var (keys %{$self->variables_validation_spec}) {
- package Test::Chimps::Report::Schema;
- column($var, type(is('text')));
+ my $column = Test::Chimps::Report->add_column($var);
+ $column->type("text");
+ $column->writable(1);
+ $column->readable(1);
+ Test::Chimps::Report->_init_methods_for_column($column);
}
}
More information about the Bps-public-commit
mailing list