[Rt-commit] r5725 - in DBIx-SearchBuilder/trunk: .

[ruz at bestpractical.com]

Author: ruz
Date: Tue Aug  8 20:38:35 2006
New Revision: 5725

Added:
   DBIx-SearchBuilder/trunk/t/02records_integers.t
Modified:
   DBIx-SearchBuilder/trunk/   (props changed)

Log:
 r8661 at cubic-pc:  cubic | 2006-08-09 04:39:10 +0400
 * test manipulations with integer columns
 ** Pg doesn't like int_col = '' syntax, so create and
    set operations may fail
 ** if field is NOT NULL and we try to insert or update it
    with null then we'll get an error, which could be avoided


Added: DBIx-SearchBuilder/trunk/t/02records_integers.t
==============================================================================
--- (empty file)
+++ DBIx-SearchBuilder/trunk/t/02records_integers.t	Tue Aug  8 20:38:35 2006
@@ -0,0 +1,163 @@
+#!/usr/bin/perl -w
+
+use strict;
+use warnings;
+use File::Spec;
+use Test::More;
+BEGIN { require "t/utils.pl" }
+our (@AvailableDrivers);
+
+use constant TESTS_PER_DRIVER => 33;
+
+my $total = scalar(@AvailableDrivers) * TESTS_PER_DRIVER;
+plan tests => $total;
+
+foreach my $d ( @AvailableDrivers ) {
+SKIP: {
+    unless( has_schema( 'TestApp::Address', $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;
+    }
+
+    my $handle = get_handle( $d );
+    connect_handle( $handle );
+    isa_ok($handle->dbh, 'DBI::db');
+
+    my $ret = init_schema( 'TestApp::Address', $handle );
+    isa_ok($ret,'DBI::st', "Inserted the schema. got a statement handle back");
+
+    {
+        my $rec = TestApp::Address->new($handle);
+        isa_ok($rec, 'DBIx::SearchBuilder::Record');
+        my $id = $rec->Create;
+        ok($id, 'created record');
+        $rec->Load( $id );
+        is($rec->id, $id, 'loaded record');
+        is($rec->Optional, undef, 'correct value');
+        is($rec->Mandatory, 1, 'correct value');
+    }
+    {
+        my $rec = TestApp::Address->new($handle);
+        isa_ok($rec, 'DBIx::SearchBuilder::Record');
+        my $id = $rec->Create( Mandatory => undef );
+        ok($id, 'created record');
+        $rec->Load( $id );
+        is($rec->id, $id, 'loaded record');
+        is($rec->Optional, undef, 'correct value');
+        is($rec->Mandatory, 1, 'correct value, we have default');
+    }
+    {
+        my $rec = TestApp::Address->new($handle);
+        isa_ok($rec, 'DBIx::SearchBuilder::Record');
+        # Pg doesn't like "int_column = ''" syntax
+        my $id = $rec->Create( Optional => '' );
+        ok($id, 'created record');
+        $rec->Load( $id );
+        is($rec->id, $id, 'loaded record');
+        is($rec->Optional, 0, 'correct value, fallback to 0 for empty string');
+        is($rec->Mandatory, 1, 'correct value, we have default');
+
+        # set operations on optional field
+        my $status = $rec->SetOptional( 1 );
+        ok($status, "status ok") or diag $status->error_message;
+        is($rec->Optional, 1, 'set optional field to 1');
+
+        $status = $rec->SetOptional( '' );
+        ok($status, "status ok") or diag $status->error_message;
+        is($rec->Optional, 0, 'empty string should be threated as zero');
+
+        TODO: {
+            local $TODO = 'we have no way to set NULL value';
+            $status = $rec->SetOptional( undef );
+            ok($status, "status ok") or diag $status->error_message;
+            is($rec->Optional, undef, 'undef equal to NULL');
+            $status = $rec->SetOptional;
+            ok($status, "status ok") or diag $status->error_message;
+            is($rec->Optional, undef, 'no value is NULL too');
+        }
+
+        # set operations on mandatory field
+        $status = $rec->SetMandatory( 2 );
+        ok($status, "status ok") or diag $status->error_message;
+        is($rec->Mandatory, 2, 'set optional field to 2');
+
+        $status = $rec->SetMandatory( '' );
+        ok($status, "status ok") or diag $status->error_message;
+        is($rec->Mandatory, 0, 'empty string should be threated as zero');
+
+        TODO: {
+            local $TODO = 'fallback to default value'
+                .' if field is NOT NULL and we try set it to NULL';
+            $status = $rec->SetMandatory( undef );
+            ok($status, "status ok") or diag $status->error_message;
+            is($rec->Mandatory, 1, 'fallback to default');
+            $status = $rec->SetMandatory;
+            ok($status, "status ok") or diag $status->error_message;
+            is($rec->Mandatory, 1, 'no value on set also fallback');
+        }
+    }
+
+    cleanup_schema( 'TestApp::Address', $handle );
+}} # SKIP, foreach blocks
+
+package TestApp::Address;
+
+use base $ENV{SB_TEST_CACHABLE}?
+    qw/DBIx::SearchBuilder::Record::Cachable/:
+    qw/DBIx::SearchBuilder::Record/;
+
+sub _Init {
+    my $self = shift;
+    my $handle = shift;
+    $self->Table('MyTable');
+    $self->_Handle($handle);
+}
+
+sub _ClassAccessible {
+    {
+        id =>
+        { read => 1, type => 'int(11)' },
+        Optional =>
+        { read => 1, write => 1, type => 'int(11)' },
+        Mandatory =>
+        { read => 1, write => 1, type => 'int(11)', default => 1, no_nulls => 1 },
+    }
+}
+
+sub schema_mysql {
+<<EOF;
+CREATE TEMPORARY TABLE MyTable (
+        id integer PRIMARY KEY AUTO_INCREMENT,
+        Optional integer NULL,
+        Mandatory integer NOT NULL DEFAULT 1
+)
+EOF
+
+}
+
+sub schema_pg {
+<<EOF;
+CREATE TEMPORARY TABLE MyTable (
+        id SERIAL PRIMARY KEY,
+        Optional INTEGER NULL,
+        Mandatory INTEGER NOT NULL DEFAULT 1
+)
+EOF
+
+}
+
+sub schema_sqlite {
+
+<<EOF;
+CREATE TABLE MyTable (
+        id  integer primary key,
+        Optional int(8) NULL,
+        Mandatory integer NOT NULL DEFAULT 1
+)
+EOF
+
+}
+
+1;