[Jifty-commit] r2439 - in Jifty-DBI/trunk: t
jifty-commit at lists.jifty.org
jifty-commit at lists.jifty.org
Sat Dec 30 02:56:12 EST 2006
Author: trs
Date: Sat Dec 30 02:56:11 2006
New Revision: 2439
Modified:
Jifty-DBI/trunk/ (props changed)
Jifty-DBI/trunk/t/10schema.t
Jifty-DBI/trunk/t/testmodels.pl
Log:
r18541 at zot: tom | 2006-12-30 01:57:52 -0500
Test that the declarative syntax automagically sets validators as it should (these fail at the moment, though a fix should be forthcoming)
Modified: Jifty-DBI/trunk/t/10schema.t
==============================================================================
--- Jifty-DBI/trunk/t/10schema.t (original)
+++ Jifty-DBI/trunk/t/10schema.t Sat Dec 30 02:56:11 2006
@@ -4,7 +4,7 @@
use warnings;
use Test::More;
-use constant TESTS_PER_DRIVER => 15;
+use constant TESTS_PER_DRIVER => 18;
our @available_drivers;
BEGIN {
@@ -35,7 +35,14 @@
unless( should_test( $d ) ) {
skip "ENV is not defined for driver $d", TESTS_PER_DRIVER;
}
-
+
+ # Test that declarative schema syntax automagically sets validators
+ # correctly.
+ ok( Sample::Address->can('validate_name'), 'found validate_name' );
+ my $validator = Sample::Address->column('name')->validator;
+ ok( $validator, 'found validator' );
+ is( $validator, \&Sample::Address::validate_name, 'validators match' );
+
my $handle = get_handle( $d );
connect_handle( $handle );
isa_ok($handle, "Jifty::DBI::Handle::$d");
Modified: Jifty-DBI/trunk/t/testmodels.pl
==============================================================================
--- Jifty-DBI/trunk/t/testmodels.pl (original)
+++ Jifty-DBI/trunk/t/testmodels.pl Sat Dec 30 02:56:11 2006
@@ -48,13 +48,15 @@
column name =>
type is 'varchar',
- default is 'Frank';
+ default is 'Frank',;
column phone =>
type is 'varchar';
};
+sub validate_name { 1 }
+
sub schema_sqlite {
return q{
CREATE TABLE addresses (
More information about the Jifty-commit
mailing list