gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge remote branch 'kc/new/bug_5327' into kcmaster

This commit is contained in:
Chris Cormack 2011-01-18 12:01:04 +13:00
parent 7e08e0a639 3b22fc6cc0
commit b3ac9e810e
2 changed files with 38 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
t/BackgroundJob.t Normal file
View File

@ -0,0 +1,33 @@
#!/usr/bin/perl
#
# This Koha test module is a stub!
# Add more tests here!!!
use strict;
use warnings;
use Test::More tests => 8;
BEGIN {
use_ok('C4::BackgroundJob');
}
#my ($sessionID, $job_name, $job_invoker, $num_work_units) = @_;
my $background;
ok ($background=C4::BackgroundJob->new);
ok ($background->id);
$background->name("George");
is ($background->name, "George", "testing name");
$background->invoker("enjoys");
is ($background->invoker, "enjoys", "testing invoker");
$background->progress("testing");
is ($background->progress, "testing", "testing progress");
ok ($background->status);
$background->size("56");
is ($background->size, "56", "testing size");

6
t/Debug.t
View File

@ -3,11 +3,13 @@
use strict;
use warnings;
use Test::More tests => 3;
use Test::More tests => 5;
use vars qw($debug $cgi_debug);
BEGIN {
$ENV{'KOHA_CGI_DEBUG'}='2';
$ENV{'KOHA_DEBUG'}='5';
diag "BEFORE use: \$debug is " . (defined $debug ? $debug : 'not defined');
diag "BEFORE use: \$cgi_debug is " . (defined $cgi_debug ? $cgi_debug : 'not defined');
use_ok('C4::Debug');
@ -17,5 +19,7 @@ diag " AFTER use: \$debug is " . (defined $debug ? $debug : 'not def
diag " AFTER use: \$cgi_debug is " . (defined $cgi_debug ? $cgi_debug : 'not defined');
ok(defined $debug, " \$debug defined and imported.");
ok(defined $cgi_debug, "\$cgi_debug defined and imported.");
is($cgi_debug,2,"cgi_debug gets the ENV{'KOHA_CGI_DEBUG'}");
is($debug,5,"debug gets the ENV{'KOHA_DEBUG'}");
diag "Done.";