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
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
use EMBOSS::ACD;
use EMBOSS::GUI::Conf;
use EMBOSS::GUI::XHTML;
our @ACDFILES;
our $XHTML;
BEGIN {
# locate the EMBOSS ACD files in order to validate against them...
#
@ACDFILES = glob "/usr/share/EMBOSS/acd/*.acd";
$XHTML = EMBOSS::GUI::XHTML->new(
script_url => 'dummy'
);
plan tests => 2 * scalar(@ACDFILES);
}
# test against each ACD file...
#
for (my $i=0; $i<@ACDFILES; ++$i) {
my $acd;
ok(eval { $acd = EMBOSS::ACD->new($ACDFILES[$i]) }, "parse $ACDFILES[$i]");
ok(eval { test_input_page($acd) }, "generate input page $ACDFILES[$i]");
}
sub test_input_page {
my ($acd) = shift;
my $html = $XHTML->input_page($acd);
return $html =~ /unknown datatype/ ? undef : "ok";
}
|
