Bug 17600: Standardize our EXPORT_OK

[srvgit] / t / db_dependent / BackgroundJob.t

diff --git a/t/db_dependent/BackgroundJob.t b/t/db_dependent/BackgroundJob.t
old mode 100644 (file)
new mode 100755 (executable)
index 0afa315..459f3b2
--- a/t/db_dependent/BackgroundJob.t
+++ b/t/db_dependent/BackgroundJob.t
@@ -1,43 +1,57 @@
 #!/usr/bin/perl
-#
-# This Koha test module is a stub!  
-# Add more tests here!!!
 
-use strict;
-use warnings;
-use C4::Auth;
-use CGI;
-use Test::More tests => 11;
+use Modern::Perl;
+use C4::Auth qw( get_session );
+use CGI qw ( -utf8 );
+use Test::More tests => 18;
+
+use Koha::Database;
 
 BEGIN {
-        use_ok('C4::BackgroundJob');
+    use_ok('C4::BackgroundJob', qw( get id fetch name invoker progress status size set finish results clear ));
 }
-my $query = new CGI;
-my ($userid, $cookie, $sessionID) = &checkauth($query, 1);
-#my ($sessionID, $job_name, $job_invoker, $num_work_units) = @_;
-my $background;
-diag $sessionID;
-ok ($background=C4::BackgroundJob->new($sessionID), "making job");
-ok ($background->id, "fetching id number");
+my $query = CGI->new;
+
+my $schema = Koha::Database->new->schema;
+$schema->storage->txn_begin;
+
+my $session = C4::Auth::get_session;
+$session->flush;
+my $sessionID = $session->id;
+my $job;
+ok( $job = C4::BackgroundJob->new($sessionID), "making job" );
+ok( $job->id, "fetching id number" );
+
+$job->name("George");
+is( $job->name, "George", "testing name" );
 
-$background->name("George");
-is ($background->name, "George", "testing name");
+$job->invoker("enjoys");
+is( $job->invoker, "enjoys", "testing invoker" );
 
-$background->invoker("enjoys");
-is ($background->invoker, "enjoys", "testing invoker");
+$job->progress("testing");
+is( $job->progress, "testing", "testing progress" );
 
-$background->progress("testing");
-is ($background->progress, "testing", "testing progress");
+ok( $job->status, "testing status" );
 
-ok ($background->status, "testing status");
+$job->size("56");
+is( $job->size, "56", "testing size" );
 
-$background->size("56");
-is ($background->size, "56", "testing size");
+ok( C4::BackgroundJob->fetch( $sessionID, $job->id ), "testing fetch" );
+$job->set( { key1 => 'value1', key2 => 'value2' } );
+is( $job->get('key1'), 'value1', 'fetched extra value for key key1' );
+is( $job->get('key2'), 'value2', 'fetched extra value for key key2' );
 
-ok (!$background->fetch($sessionID, $background->id), "testing fetch");
+$job->set( { size => 666 } );
+is( $job->size, "56", '->set() does not scribble over private object data' );
 
+$job->finish("finished");
+is( $job->status, 'completed', "testing finished" );
 
-$background->finish("finished");
-is ($background->status,'completed', "testing finished");
+ok( $job->results, 'Test if we have results' );
 
-ok ($background->results); #Will return undef unless finished
+my $second_job = C4::BackgroundJob->new( $sessionID, "making new job" );
+is( ref( C4::BackgroundJob->fetch( $sessionID, $job->id ) ),        "C4::BackgroundJob", 'job_$jobid should be a C4::BackgroundJob for uncleared job 1' );
+is( ref( C4::BackgroundJob->fetch( $sessionID, $second_job->id ) ), "C4::BackgroundJob", 'job_$jobid should be a C4::BackgroundJob for uncleared job 2' );
+$job->clear;
+is( C4::BackgroundJob->fetch( $sessionID, $job->id ), undef, 'After clearing it, job 1 should not exist anymore in the session' );
+is( ref( C4::BackgroundJob->fetch( $sessionID, $second_job->id ) ), "C4::BackgroundJob", 'After clear on job 1, job 2 should still be a C4::BackgroundJob' );