t/fmt-xml-dia.t


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

#! /usr/bin/perl
# DIA module tester.

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

use strict;
use warnings;

use lib q(t);
use Testhelper;

my @tests;

push @tests,
  {
    'doc'    => "Extract only the strings that we should",
    'format' => 'dia',
    'input'  => 'fmt/xml-dia/basic.dia',
  },
  {
    'doc'    => "test translations with extraneous newlines",
    'format' => 'dia',
    'input'  => 'fmt/xml-dia/transl.dia',
  };

run_all_tests(@tests);
0;