[Bast-commits] r4304 - in DBIx-Class/0.08/trunk:
lib/DBIx/Class/Schema/Role t
jnapiorkowski at dev.catalyst.perl.org
jnapiorkowski at dev.catalyst.perl.org
Mon Apr 28 19:36:59 BST 2008
Author: jnapiorkowski
Date: 2008-04-28 19:36:58 +0100 (Mon, 28 Apr 2008)
New Revision: 4304
Modified:
DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema/Role/AtQueryInterval.pm
DBIx-Class/0.08/trunk/t/99schema_roles.t
Log:
minor formatting updates and typos fixes to the schema role tests
Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema/Role/AtQueryInterval.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema/Role/AtQueryInterval.pm 2008-04-27 18:15:57 UTC (rev 4303)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Schema/Role/AtQueryInterval.pm 2008-04-28 18:36:58 UTC (rev 4304)
@@ -208,8 +208,8 @@
}
}
}
+
-
=head2 normalize_query_interval ($hash||$obj)
Given an argument, make sure it's a L<DBIx::Class::Schema::QueryInterval>,
@@ -226,6 +226,7 @@
}
}
+
=head2 normalize_to_jobs ($hash||$obj||$arrayref)
Incoming jobs need to be normalized to an array, so that we can handle adding
Modified: DBIx-Class/0.08/trunk/t/99schema_roles.t
===================================================================
--- DBIx-Class/0.08/trunk/t/99schema_roles.t 2008-04-27 18:15:57 UTC (rev 4303)
+++ DBIx-Class/0.08/trunk/t/99schema_roles.t 2008-04-28 18:36:58 UTC (rev 4304)
@@ -65,7 +65,7 @@
=> 'Found Dan!';
is $schema->storage->query_count, 2
- => 'Query Count is two';
+ => 'Query Count is two';
=head2 check at query interval
@@ -90,7 +90,7 @@
=> 'Got expected information from the job';
ok my $interval1 = $schema->create_query_interval(every=>10)
- => 'Created a interval';
+ => 'Created an interval';
ok $interval1->matches(10)
=> 'correctly matched 10';
@@ -102,7 +102,7 @@
=> 'correctly didnt matched 22';
ok my $interval2 = $schema->create_query_interval(every=>10, offset=>2)
- => 'Created a interval';
+ => 'Created an interval';
ok $interval2->matches(12)
=> 'correctly matched 12';
@@ -167,8 +167,11 @@
is_deeply [$schema->execute_jobs_at_query_interval(101)], [101.1,101.2]
=> 'Got Expected return for 101';
-
-
+
+
+
+
+
=head2 cleanup
Cleanup after ourselves
More information about the Bast-commits
mailing list