[Rt-commit] [svn] r1770 - in DBIx-SearchBuilder/trunk: . t

[jesse at pallas.eruditorum.org]

Author: jesse
Date: Tue Nov  9 23:29:44 2004
New Revision: 1770

Added:
   DBIx-SearchBuilder/trunk/t/01records.t
Modified:
   DBIx-SearchBuilder/trunk/   (props changed)
   DBIx-SearchBuilder/trunk/Changes
Log:
 r8974 at tinbook:  jesse | 2004-11-10T04:30:14.620711Z
 Start of a test suite


Modified: DBIx-SearchBuilder/trunk/Changes
==============================================================================
--- DBIx-SearchBuilder/trunk/Changes	(original)
+++ DBIx-SearchBuilder/trunk/Changes	Tue Nov  9 23:29:44 2004
@@ -11,6 +11,9 @@
       improvement
     - Added a FlushCache method to DBIx::SearchBuilder::Record::Cachable.
 
+    - Started to flesh out a...test suite
+
+
 1.12
     - Better error handling for some query build failure cases
     - Corrected query builder for SQLite

Added: DBIx-SearchBuilder/trunk/t/01records.t
==============================================================================
--- (empty file)
+++ DBIx-SearchBuilder/trunk/t/01records.t	Tue Nov  9 23:29:44 2004
@@ -0,0 +1,88 @@
+#!/usr/bin/perl -w
+
+
+use strict;
+use warnings;
+
+use Test::More qw/no_plan/;
+eval "use DBD::SQLite";
+plan skip_all => "DBD::SQLite required for testing database interaction" if $@;
+
+    my $handle;
+use_ok('DBIx::SearchBuilder::Handle::SQLite');
+
+        $handle = DBIx::SearchBuilder::Handle::SQLite->new();
+
+isa_ok($handle, 'DBIx::SearchBuilder::Handle');
+isa_ok($handle, 'DBIx::SearchBuilder::Handle::SQLite');
+        $handle->Connect( Driver => 'SQLite', Database => "/tmp/sb-test.$$" );
+
+can_ok($handle, 'dbh');
+isa_ok($handle->dbh, 'DBI::db');
+
+my $ret = $handle->SimpleQuery(TestApp::Address->schema);
+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');
+
+can_ok($rec,'Create');
+
+my ($id) = $rec->Create( Name => 'Jesse', Phone => '617 124 567');
+ok($id,"Created record ". $id);
+ok($rec->Load($id), "Loaded the record");
+
+
+is($rec->id, $id, "The record has its id");
+
+is ($rec->Name, 'Jesse', "The record's name is Jesse");
+
+my ($val,$msg) = $rec->SetName('Obra');
+
+ok($val, $msg) ;
+
+is($rec->Name, 'Obra', "We did actually change the name");
+
+package TestApp::Address;
+
+use base qw/DBIx::SearchBuilder::Record/;
+
+sub _Init {
+    my $self = shift;
+    my $handle = shift;
+    $self->Table('Address');
+    $self->_Handle($handle);
+}
+
+sub _ClassAccessible {
+
+    {   
+        
+        id =>
+        {read => 1, type => 'int(11)', default => ''}, 
+        Name => 
+        {read => 1, write => 1, type => 'varchar(36)', default => ''},
+        Phone => 
+        {read => 1, write => 1, type => 'varchar(18)', default => ''},
+        EmployeeId => 
+        {read => 1, write => 1, type => 'int(8)', default => ''},
+
+}
+
+}
+
+
+sub schema {
+
+<<EOF;
+CREATE TABLE Address (
+        id  integer primary key,
+        Name varchar(36),
+        Phone varchar(18),
+        EmployeeId int(8))
+EOF
+
+}
+
+1;