[Bast-commits] r4532 - DBIx-Class-DynamicDefault/1.000/trunk/t

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2008-06-29 23:25:32 +0100 (Sun, 29 Jun 2008)
New Revision: 4532

Added:
   DBIx-Class-DynamicDefault/1.000/trunk/t/basic.t
Log:
basic tests.

Added: DBIx-Class-DynamicDefault/1.000/trunk/t/basic.t
===================================================================
--- DBIx-Class-DynamicDefault/1.000/trunk/t/basic.t	                        (rev 0)
+++ DBIx-Class-DynamicDefault/1.000/trunk/t/basic.t	2008-06-29 22:25:32 UTC (rev 4532)
@@ -0,0 +1,24 @@
+use strict;
+use warnings;
+use Test::More tests => 7;
+use DBICx::TestDatabase;
+
+BEGIN { use_ok('DBIx::Class::DynamicDefault') }
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+
+my $schema = DBICx::TestDatabase->new('TestSchema');
+my $rs     = $schema->resultset('Table');
+
+my $row = $rs->create({});
+
+is($row->quux, 1, 'default on create with methodname');
+is($row->garply, undef, 'no default on create');
+is($row->corge, 'create', 'default on create with coderef');
+
+$row->update;
+
+is($row->quux, 1, 'no default on update');
+is($row->garply, $$, 'default on update with coderef');
+is($row->corge, 'update', 'default on update with methodname');