From: John Napiorkowski Date: Mon, 28 Apr 2008 18:36:58 +0000 (+0000) Subject: minor formatting updates and typos fixes to the schema role tests X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ae89f08e1cf62a5b338a10f3f9bbb4013d0939f8;p=dbsrgits%2FDBIx-Class-Historic.git minor formatting updates and typos fixes to the schema role tests --- diff --git a/lib/DBIx/Class/Schema/Role/AtQueryInterval.pm b/lib/DBIx/Class/Schema/Role/AtQueryInterval.pm index c21b808..5c47772 100644 --- a/lib/DBIx/Class/Schema/Role/AtQueryInterval.pm +++ b/lib/DBIx/Class/Schema/Role/AtQueryInterval.pm @@ -208,7 +208,7 @@ sub create_and_add_at_query_intervals { } } } - + =head2 normalize_query_interval ($hash||$obj) @@ -226,6 +226,7 @@ sub normalize_query_interval { } } + =head2 normalize_to_jobs ($hash||$obj||$arrayref) Incoming jobs need to be normalized to an array, so that we can handle adding diff --git a/t/99schema_roles.t b/t/99schema_roles.t index 6b0b0fc..c3b25c9 100644 --- a/t/99schema_roles.t +++ b/t/99schema_roles.t @@ -65,7 +65,7 @@ is $schema->resultset('Person')->find(2)->name, 'dan' => '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 @@ is $job2->execute($schema, 'hello1'), 'hello1', => '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 @@ ok !$interval1->matches(22) => '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(60)], [10,20,30] is_deeply [$schema->execute_jobs_at_query_interval(101)], [101.1,101.2] => 'Got Expected return for 101'; - - + + + + + =head2 cleanup Cleanup after ourselves