[Jifty-commit] r5495 - Jifty-DBI/branches/tisql/t/tisql

[Jifty commits]

Author: ruz
Date: Sat Jun  7 11:44:05 2008
New Revision: 5495

Added:
   Jifty-DBI/branches/tisql/t/tisql/searches_basic.t

Log:
* basic tests for searches in one table

Added: Jifty-DBI/branches/tisql/t/tisql/searches_basic.t
==============================================================================
--- (empty file)
+++ Jifty-DBI/branches/tisql/t/tisql/searches_basic.t	Sat Jun  7 11:44:05 2008
@@ -0,0 +1,195 @@
+#!/usr/bin/env perl -w
+
+use strict;
+use warnings;
+
+use File::Spec;
+use Test::More;
+
+BEGIN { require "t/utils.pl" }
+our (@available_drivers);
+
+use constant TESTS_PER_DRIVER => 36;
+
+my $total = scalar(@available_drivers) * TESTS_PER_DRIVER;
+plan tests => $total;
+
+use Data::Dumper;
+
+foreach my $d ( @available_drivers ) {
+SKIP: {
+    unless( has_schema( 'TestApp', $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', $handle );
+    isa_ok($ret, 'DBI::st', "Inserted the schema. got a statement handle back");
+
+    my $count_users = init_data( 'TestApp::User', $handle );
+    ok( $count_users,  "init users data" );
+
+    my $clean_obj = TestApp::UserCollection->new( handle => $handle );
+    my $users_obj = $clean_obj->clone;
+    is_deeply( $users_obj, $clean_obj, 'after Clone looks the same');
+
+    run_our_cool_tests(
+        $users_obj,
+        ".login = 'a'" => { 'aa' => 1, 'ab' => 1, 'ac' => 1 },
+        ".login != 'a'" => { 'ba' => 1, 'bb' => 1, 'bc' => 1, 'ca' => 1, 'cb' => 1, 'cc' => 1 },
+
+        ".login = 'a' AND .login = 'b'" 
+            => { },
+        ".login != 'a' AND .login = 'b'" 
+            => { ba => 1, bb => 1, bc => 1 },
+        ".login != 'a' AND .login != 'b'" 
+            => { ca => 1, cb => 1, cc => 1 },
+
+        ".login = 'a' OR .login = 'b'" 
+            => { aa => 1, ab => 1, ac => 1, ba => 1, bb => 1, bc => 1 },
+        ".login != 'a' OR .login = 'b'" 
+            => { ba => 1, bb => 1, bc => 1, ca => 1, cb => 1, cc => 1 },
+        ".login != 'a' OR .login != 'b'" 
+            => { aa => 1, ab => 1, ac => 1, ba => 1, bb => 1, bc => 1, ca => 1, cb => 1, cc => 1 },
+
+        ".login = 'a' AND .name = 'b'" 
+            => { ab => 1 },
+        ".login != 'a' AND .name = 'b'" 
+            => { bb => 1, cb => 1 },
+        ".login = 'a' AND .name != 'b'" 
+            => { aa => 1, ac => 1 },
+        ".login != 'a' AND .name != 'b'" 
+            => { ba => 1, bc => 1, ca => 1, cc => 1 },
+
+        ".login = 'a' OR .name = 'b'" 
+            => { aa => 1, ab => 1, ac => 1, bb => 1, cb => 1 },
+        ".login != 'a' OR .name = 'b'" 
+            => { ab => 1, ba => 1, bb => 1, bc => 1, ca => 1, cb => 1, cc => 1 },
+        ".login = 'a' OR .name != 'b'" 
+            => { aa => 1, ab => 1, ac => 1, ba => 1, bc => 1, ca => 1, cc => 1 },
+        ".login != 'a' OR .name != 'b'" 
+            => { aa => 1, ac => 1, ba => 1, bb => 1, bc => 1, ca => 1, cb => 1, cc => 1 },
+    );
+
+    cleanup_schema( 'TestApp', $handle );
+
+}} # SKIP, foreach blocks
+
+
+sub run_our_cool_tests {
+    my $collection = shift;
+    my %tests = @_;
+    while (my ($q, $check) = each %tests ) {
+        $collection->clean_slate;
+        $collection->tisql( $q );
+        my $expected_count = scalar grep $_, values %$check;
+        is($collection->count, $expected_count, "count is correct for $q")
+            or diag "wrong count query: ". $collection->build_select_count_query;
+       
+        my @not_expected;
+        while (my $item = $collection->next ) {
+            my $t = $item->test;
+            push @not_expected, $t unless $check->{ $t };
+            delete $check->{ $t };
+        }
+        ok !@not_expected, 'didnt find additionals'
+            or diag "wrong query: ". $collection->build_select_query;
+    }
+}
+1;
+
+
+package TestApp;
+sub schema_sqlite {
+[
+q{
+CREATE table users (
+    id integer primary key,
+    test varchar(36),
+    login varchar(36),
+    name varchar(36)
+) },
+]
+}
+
+sub schema_mysql {
+[
+q{
+CREATE TEMPORARY table users (
+    id integer primary key AUTO_INCREMENT,
+    login varchar(36)
+) },
+]
+}
+
+sub schema_pg {
+[
+q{
+CREATE TEMPORARY table users (
+    id serial primary key,
+    login varchar(36)
+) },
+]
+}
+
+sub schema_oracle { [
+    "CREATE SEQUENCE users_seq",
+    "CREATE table users (
+        id integer CONSTRAINT users_Key PRIMARY KEY,
+        login varchar(36)
+    )",
+] }
+
+sub cleanup_schema_oracle { [
+    "DROP SEQUENCE users_seq",
+    "DROP table users", 
+] }
+
+package TestApp::User;
+
+use base qw/Jifty::DBI::Record/;
+our $VERSION = '0.01';
+
+BEGIN {
+use Jifty::DBI::Schema;
+use Jifty::DBI::Record schema {
+    column test => type is 'varchar(36)';
+    column login => type is 'varchar(36)';
+    column name => type is 'varchar(36)';
+};
+}
+
+sub init_data {
+    return (
+    [ 'test', 'login', 'name' ],
+
+    [ 'aa', 'a', 'a' ],
+    [ 'ab', 'a', 'b' ],
+    [ 'ac', 'a', 'c' ],
+    [ 'ba', 'b', 'a' ],
+    [ 'bb', 'b', 'b' ],
+    [ 'bc', 'b', 'c' ],
+    [ 'ca', 'c', 'a' ],
+    [ 'cb', 'c', 'b' ],
+    [ 'cc', 'c', 'c' ],
+    );
+}
+
+package TestApp::UserCollection;
+
+use base qw/Jifty::DBI::Collection/;
+our $VERSION = '0.01';
+
+sub _init {
+    my $self = shift;
+    $self->table('users');
+    return $self->SUPER::_init( @_ );
+}
+
+1;