[Catalyst-commits] r6851 - in trunk/Catalyst-Engine-JobQueue-POE: . t

kixx at dev.catalyst.perl.org kixx at dev.catalyst.perl.org
Thu Sep 6 15:56:15 GMT 2007


Author: kixx
Date: 2007-09-06 15:56:14 +0100 (Thu, 06 Sep 2007)
New Revision: 6851

Modified:
   trunk/Catalyst-Engine-JobQueue-POE/Makefile.PL
   trunk/Catalyst-Engine-JobQueue-POE/t/04jobqueue-job.t
Log:
Add Class::C3 requirement and move Test::More to build_requires
Update tests to reflect new Job object structure


Modified: trunk/Catalyst-Engine-JobQueue-POE/Makefile.PL
===================================================================
--- trunk/Catalyst-Engine-JobQueue-POE/Makefile.PL	2007-09-06 14:54:56 UTC (rev 6850)
+++ trunk/Catalyst-Engine-JobQueue-POE/Makefile.PL	2007-09-06 14:56:14 UTC (rev 6851)
@@ -8,12 +8,15 @@
 all_from        'lib/Catalyst/Engine/JobQueue/POE.pm';
 
 # Specific depedencies
-requires        'Test::More'            => 0;
 requires        'version'               => 0;
 requires        'Email::MIME::Creator'  => 0;
 requires        'Email::Send'           => 2.15;
 requires        'Catalyst::Runtime'     => 5.7001;
 requires        'POE::Component::Cron'  => 0.014;
+requires        'Class::C3'             => 0.16;
 
+# Build (test) dependencies
+build_requires        'Test::More'            => 0;
+
 auto_install;
 WriteAll;

Modified: trunk/Catalyst-Engine-JobQueue-POE/t/04jobqueue-job.t
===================================================================
--- trunk/Catalyst-Engine-JobQueue-POE/t/04jobqueue-job.t	2007-09-06 14:54:56 UTC (rev 6850)
+++ trunk/Catalyst-Engine-JobQueue-POE/t/04jobqueue-job.t	2007-09-06 14:56:14 UTC (rev 6851)
@@ -4,10 +4,14 @@
     use_ok('Catalyst::JobQueue::Job');
 }
 
-$job = Catalyst::JobQueue::Job->new({ type => 'cron' });
+$job = Catalyst::JobQueue::Job->new({ type => 'cron', spec => '* * * * * root /test arg1=foo arg2=bar' });
 
 isa_ok($job, 'Catalyst::JobQueue::Job');
 
 $ID = $job->ID;
 
 like($ID, qr/^\d+$/, 'check numeric ID');
+is($job->type, 'cron', 'check job type');
+is($job->schedule, '* * * * *', 'check job schedule');
+is($job->user, 'root', 'check job user');
+is_deeply($job->request, [qw{/test arg1=foo arg2=bar}], 'check job request');




More information about the Catalyst-commits mailing list