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

[jesse at bestpractical.com]

Author: jesse
Date: Fri Dec 17 17:17:10 2004
New Revision: 2004

Modified:
   DBIx-SearchBuilder/trunk/   (props changed)
   DBIx-SearchBuilder/trunk/META.yml
   DBIx-SearchBuilder/trunk/t/02records_object.t
Log:
 r2462 at hualien:  jesse | 2004-12-17T22:13:10.973112Z
 Added a test to records_object while debugging
 


Modified: DBIx-SearchBuilder/trunk/META.yml
==============================================================================
--- DBIx-SearchBuilder/trunk/META.yml	(original)
+++ DBIx-SearchBuilder/trunk/META.yml	Fri Dec 17 17:17:10 2004
@@ -1,5 +1,5 @@
 name: DBIx-SearchBuilder
-version: 1.16
+version: 1.17_01
 license: perl
 distribution_type: module
 build_requires:

Modified: DBIx-SearchBuilder/trunk/t/02records_object.t
==============================================================================
--- DBIx-SearchBuilder/trunk/t/02records_object.t	(original)
+++ DBIx-SearchBuilder/trunk/t/02records_object.t	Fri Dec 17 17:17:10 2004
@@ -9,7 +9,7 @@
 if ($@) { 
 plan skip_all => "DBD::SQLite required for testing database interaction" 
 } else{
-plan tests => 12;
+plan tests => 13;
 }
 use_ok('DBIx::SearchBuilder::Handle::SQLite');
 my $handle = DBIx::SearchBuilder::Handle::SQLite->new();
@@ -27,12 +27,13 @@
 
 my $emp = TestApp::Employee->new($handle);
 my $e_id = $emp->Create( Name => 'RUZ' );
-ok($e_id);
+ok($e_id, "Got an ide for the new emplyee");
 my $phone = TestApp::Phone->new($handle);
+isa_ok( $phone, 'TestApp::Phone', "it's atestapp::phone");
 my $p_id = $phone->Create( Employee => $e_id, Phone => '+7(903)264-03-51');
 # XXX: test fails if next string is commented
+is($p_id, 1, "Loaded record $p_id");
 $phone->Load( $p_id );
-ok($p_id);
 
 my $obj = $phone->EmployeeObj($handle);
 ok($obj, "Employee #$e_id has phone #$p_id");