1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
use strict;
use warnings;
use Test::More tests => 3;
use File::pushd;
use Cwd qw(abs_path cwd);
diag("Testing bin/publican on the Users_Guide");
my $cover_db = undef;
$cover_db = abs_path('cover_db') if ( -d 'cover_db' );
my $coverdb = undef;
$coverdb = qq|-MDevel::Cover=-db,$cover_db| if ($cover_db);
my $lib = abs_path('blib/lib');
my $publican = abs_path('blib/script/publican');
my @perl_args = ( 'perl', '-CDAS', '-I', $lib );
push @perl_args, $coverdb if defined $coverdb;
my @common_opts = ( '--quiet' );
my $flink = cwd().'/blib';
my $tlink = cwd().'/Users_Guide';
my $dir = pushd('Users_Guide');
my $result;
#system("ln -s $flink $tlink") unless (-l 'blib' && -d 'blib');
$result = system( @perl_args, $publican, 'print_tree', @common_opts );
is( $result, 0, 'Run print_tree' );
$result = system( @perl_args, $publican, 'build', '--formats', 'html', '--langs', 'en-US',
@common_opts );
is( $result, 0, 'build the Users Guide' );
$result
= system( @perl_args, $publican, 'build', '--formats',
'html,html-single,html-desktop,pdf,txt,epub',
'--langs', 'en-US', '--publish', '--embedtoc', @common_opts );
is( $result, 0, 'build the Users Guide in all formats' );
$dir = undef;
|
