[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