63a8c5bc9d
was missing an opening ( Adding test script Signed-off-by: Colin Campbell <colin.campbell@ptfs-europe.com>
10 lines
218 B
Perl
10 lines
218 B
Perl
#!/usr/bin/perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Test::More;
|
|
|
|
use_ok('C4::Serials');
|
|
my $supplierlist=eval{GetSuppliersWithLateIssues()};
|
|
ok(length($@)==0,"No SQL problem in GetSuppliersWithLateIssues");
|
|
done_testing();
|