View | Details | Raw Unified | Return to bug 21560
Collapse All | Expand All

(-)a/t/Koha/Util/OpenDocument.t (-1 / +42 lines)
Line 0 Link Here
0
- 
1
#!/usr/bin/perl
2
3
# This file is part of Koha.
4
#
5
# Koha is free software; you can redistribute it and/or modify it
6
# under the terms of the GNU General Public License as published by
7
# the Free Software Foundation; either version 3 of the License, or
8
# (at your option) any later version.
9
#
10
# Koha is distributed in the hope that it will be useful, but
11
# WITHOUT ANY WARRANTY; without even the implied warranty of
12
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13
# GNU General Public License for more details.
14
#
15
# You should have received a copy of the GNU General Public License
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
18
use Modern::Perl;
19
20
use File::Temp qw/tempfile/;
21
use Test::More tests => 4;
22
23
BEGIN { use_ok('Koha::Util::OpenDocument'); }
24
25
my ( $ret, $filepath, $content );
26
27
$ret = generate_ods( $filepath, $content );
28
ok( !defined $ret, 'Call generate_ods with undef args' );
29
30
my $fh1 = File::Temp->new( UNLINK => 1 );
31
$filepath = $fh1->filename;
32
my $content1 = [];
33
$ret = generate_ods( $filepath, $content1 );
34
ok( defined $ret, 'Call generate_ods with empty content' );
35
close $fh1;
36
37
my $fh2 = File::Temp->new( UNLINK => 1 );
38
$filepath = $fh2->filename;
39
my $content2 = [ [ 'A', 'B' ], [ '1', '2' ] ];
40
$ret = generate_ods( $filepath, $content2 );
41
ok( defined $ret, 'Call generate_ods with 2x2 content' );
42
close $fh2;

Return to bug 21560