[Jifty-commit] r4434 - Jifty-DBI/trunk/t
jifty-commit at lists.jifty.org
jifty-commit at lists.jifty.org
Thu Nov 15 01:06:20 EST 2007
Author: clkao
Date: Thu Nov 15 01:06:19 2007
New Revision: 4434
Added:
Jifty-DBI/trunk/t/19reference.t
Log:
some tests for referencing.
Added: Jifty-DBI/trunk/t/19reference.t
==============================================================================
--- (empty file)
+++ Jifty-DBI/trunk/t/19reference.t Thu Nov 15 01:06:19 2007
@@ -0,0 +1,212 @@
+#!/usr/bin/env perl -w
+
+use strict;
+
+use Test::More;
+BEGIN { require "t/utils.pl" }
+our (@available_drivers);
+
+use constant TESTS_PER_DRIVER => 14;
+
+my $total = scalar(@available_drivers) * TESTS_PER_DRIVER;
+plan tests => $total;
+
+foreach my $d ( @available_drivers ) {
+SKIP: {
+ unless( has_schema( 'TestApp::User', $d ) ) {
+ skip "No schema for '$d' driver", TESTS_PER_DRIVER;
+ }
+ unless( should_test( $d ) ) {
+ skip "ENV is not defined for driver '$d'", TESTS_PER_DRIVER;
+ }
+ diag("start testing with '$d' handle") if $ENV{TEST_VERBOSE};
+
+ my $handle = get_handle( $d );
+ connect_handle( $handle );
+ isa_ok($handle->dbh, 'DBI::db');
+
+ {my $ret = init_schema( 'TestApp::User', $handle );
+ isa_ok($ret,'DBI::st', "Inserted the schema. got a statement handle back" );}
+
+ {my $ret = init_schema( 'TestApp::Currency', $handle );
+ isa_ok($ret,'DBI::st', "Inserted the schema. got a statement handle back" );}
+
+ {my $ret = init_schema( 'TestApp::Food', $handle );
+ isa_ok($ret,'DBI::st', "Inserted the schema. got a statement handle back" );}
+
+ my $rec = TestApp::Currency->new( handle => $handle );
+ isa_ok($rec, 'Jifty::DBI::Record');
+
+ my ($id) = $rec->create( name => "USD" );
+
+ $rec = TestApp::Food->new( handle => $handle );
+ isa_ok($rec, 'Jifty::DBI::Record');
+
+ my ($paella) = $rec->create( name => "paella" );
+ $rec->create( name => "nigiri" );
+
+ $rec = TestApp::User->new( handle => $handle );
+ ($id) = $rec->create( currency => 'USD' );
+
+ ok($id);
+ ok($rec->load($id), "Loaded the record");
+ isa_ok($rec->currency, 'TestApp::Currency');
+ is($rec->currency->name, 'USD');
+
+ isa_ok($rec->food, 'TestApp::Food', 'referee is null but shuold still return an object');
+ is($rec->food->id, undef);
+
+TODO: {
+ local $TODO = 'not yet';
+ *TestApp::User::null_reference = sub {1};
+ $rec->load($id);
+ is( $rec->food, undef, 'null_reference option in effect' );
+
+ is_deeply(
+ { $rec->as_hash },
+ { currency => 'USD',
+ id => $id,
+ food => undef
+ }
+ );
+ }
+}
+}
+
+package TestApp::Currency;
+use base qw/Jifty::DBI::Record/;
+sub schema_sqlite {
+
+<<EOF;
+CREATE table currencies (
+ id integer primary key,
+ name varchar
+)
+EOF
+
+}
+
+sub schema_mysql {
+
+<<EOF;
+CREATE TEMPORARY table currencies (
+ id integer auto_increment primary key,
+ name varchar
+)
+EOF
+
+}
+
+sub schema_pg {
+
+<<EOF;
+CREATE TEMPORARY table currencies (
+ id serial primary key,
+ name varchar
+)
+EOF
+}
+
+use Jifty::DBI::Schema;
+use Jifty::DBI::Record schema {
+
+column name => type is 'varchar';
+
+};
+
+package TestApp::Food;
+use base qw/Jifty::DBI::Record/;
+
+sub schema_sqlite {
+
+<<EOF;
+CREATE table foods (
+ id integer primary key,
+ name varchar
+)
+EOF
+
+}
+
+sub schema_mysql {
+
+<<EOF;
+CREATE TEMPORARY table foods (
+ id integer auto_increment primary key,
+ name varchar
+)
+EOF
+
+}
+
+sub schema_pg {
+
+<<EOF;
+CREATE TEMPORARY table foods (
+ id serial primary key,
+ name varchar
+)
+EOF
+}
+
+use Jifty::DBI::Schema;
+use Jifty::DBI::Record schema {
+
+column name =>
+ type is 'varchar';
+
+};
+
+
+package TestApp::User;
+use base qw/Jifty::DBI::Record/;
+
+sub schema_sqlite {
+
+<<EOF;
+CREATE table users (
+ id integer primary key,
+ food integar,
+ currency varchar
+)
+EOF
+
+}
+
+sub schema_mysql {
+
+<<EOF;
+CREATE TEMPORARY table users (
+ id integer auto_increment primary key,
+ food integar,
+ currency varchar
+)
+EOF
+
+}
+
+sub schema_pg {
+
+<<EOF;
+CREATE TEMPORARY table users (
+ id serial primary key,
+ food integar,
+ currency varchar
+)
+EOF
+
+}
+
+use Jifty::DBI::Schema;
+use Jifty::DBI::Record schema {
+
+column currency =>
+ type is 'varchar',
+ refers_to TestApp::Currency by 'name';
+
+column food =>
+ refers_to TestApp::Food;
+
+};
+
+1;
More information about the Jifty-commit
mailing list