#! perl

use strict;
use warnings;

use IO::String;
use File::Spec::Functions;

use Test::More tests => 3;

use_ok( 'Pod::PseudoPod::LaTeX' ) or exit;

my $fh     = IO::String->new();
my $parser = Pod::PseudoPod::LaTeX->new();
$parser->accept_target("foo");
$parser->emit_environments( 'foo' => 'foo' );
$parser->output_fh( $fh );
$parser->parse_file( catfile( qw( t test_file.pod ) ) );


$fh->setpos(0);
my $text = join( '', <$fh> );

like( $text, qr/\\LaTeX/,
    '\LaTeX in a =for latex section remains intact' );

like( $text, qr/\\begin{foo}{Title}/, "title is passed is available" );