# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'

#########################

# change 'tests => 1' to 'tests => last_test_to_print';

use Test;
BEGIN { plan tests => 3 };
use LaTeX::Authors;
ok(1); # If we made it this far, we're ok.

#########################

# Insert your test code below, the Test module is use()ed here so read
# its man page ( perldoc Test ) for help writing this test script.

ok(-f "t/article.tex");

my $tex_string = load_file_string("t/article.tex");

my @article = router($tex_string);
my $out_string = string_byauthors_xml(@article);
my $ok_string = "<article>
  <item>
    <author>Jo Smith</author>
    <labo>Centre de Mathématiques, CCSD/CNRS, 58, Avenue du Président Wilson, 75008 Paris Cedex, FRANCE</labo>
  </item>
</article>
";
		
ok($out_string,$ok_string);