#!/usr/bin/perl -- ========================================== -*-perl-*-
#
# t/00-latex.t
#
# Test the Template::Latex module.
#
# Written by Andy Wardley <abw@wardley.org>
#
# This is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
#
#========================================================================
use strict;
use warnings;
use FindBin qw($Bin);
use Cwd qw(abs_path);
use lib ( abs_path("$Bin/../lib") );
use Template::Latex;
use Template::Test;
use constant TL => 'Template::Latex';
ntests(13);
#------------------------------------------------------------------------
# test methods to get/set paths
#------------------------------------------------------------------------
ok( TL->latex_path('/path/to/latex'), 'set latex path' );
is( TL->latex_path(), '/path/to/latex', 'get latex path' );
ok( TL->pdflatex_path('/path/to/pdflatex'), 'set pdflatex path' );
is( TL->pdflatex_path(), '/path/to/pdflatex', 'get pdflatex path' );
ok( TL->dvips_path('/path/to/dvips'), 'set dvips path' );
is( TL->dvips_path(), '/path/to/dvips', 'get dvips path' );
my $paths = TL->latex_paths();
is( ref $paths, 'HASH', 'got paths' );
is( $paths->{ latex }, '/path/to/latex', 'paths latex' );
is( $paths->{ pdflatex }, '/path/to/pdflatex', 'paths pdflatex' );
is( $paths->{ dvips }, '/path/to/dvips', 'paths dvips' );
TL->latex_paths({
latex => '/new/path/to/latex',
pdflatex => '/new/path/to/pdflatex',
dvips => '/new/path/to/dvips',
});
is( TL->latex_path(), '/new/path/to/latex', 'new latex' );
is( TL->pdflatex_path(), '/new/path/to/pdflatex', 'new pdflatex' );
is( TL->dvips_path(), '/new/path/to/dvips', 'new dvips' );