#!/usr/bin/perl --  ========================================== -*-perl-*-
#
# t/01-latex2dvi.t
#
# Test the Latex filter with DVI output. Because of likely variations in
# installed fonts etc, we don't verify the entire DVI file. We simply
# make sure the filter runs without error and the first two bytes of the
# output file have the correct value (0xf7 0x02 for DVI).
#
# Written by Craig Barratt <craig@arraycomm.com>
# Updated for the Template-Latex distribution by Andy Wardley.
#
# 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"), "$Bin/lib" );
use Template;
use Template::Test;
use Template::Test::Latex;

my $ttcfg = {
    FILTERS => {
        head => [ \&head_factory, 1],
    }
};

test_expect(\*DATA, $ttcfg);

# Grab just the first $len bytes of the input, and optionally convert
# to a hex string if $hex is set

sub head_factory {
    my($context, $len, $hex) = @_;
    $len ||= 72;
    return sub {
        my $text = shift;
        return $text if length($text) < $len;
        $text = substr($text, 0, $len);
        $text =~ s/(.)/sprintf("%02x", ord($1))/eg if $hex;
        return $text;
    }
}

__END__
-- test --
[% USE Latex;
   out = FILTER latex(format="dvi")
-%]
\documentclass{article}
\begin{document}
\section{Introduction}
This is the introduction.
\end{document}
[% END -%]
[% out | head(2, 1) %]
-- expect --
f702


-- test --
[% USE Latex format="dvi";
   out = FILTER latex
-%]
\documentclass{article}
\begin{document}
\section{Introduction}
This is the introduction.
\end{document}
[% END -%]
[% out | head(2, 1) %]
-- expect --
f702


-- test --
[% USE Latex;
   TRY; 
     out = FILTER latex("dvi") 
-%]
\documentclass{article}
\begin{document}
\section{Introduction}
\badmacro
This is the introduction.
\end{document}
[%   END; 
     out | head(100, 1);
   CATCH latex;
     "ERROR: $error";
   END
-%]
-- expect --
ERROR: latex error - latex exited with errors:
! Undefined control sequence.
l.4 \badmacro