[Po4a-commits] "po4a/t 30-text.t,NONE,1.1"

[Nicolas FRANCOIS]

Update of /cvsroot/po4a/po4a/t
In directory alioth:/tmp/cvs-serv13177/t

Added Files:
	30-text.t 
Log Message:
	* t/30-text.t, t/data-30/Attributes.asciidoc,
	t/data-30/Attributes.out, t/data-30/Attributes.po,
	t/data-30/BlockId.asciidoc, t/data-30/BlockId.out,
	t/data-30/BlockId.po, t/data-30/BlockTitles.asciidoc,
	t/data-30/BlockTitles.out, t/data-30/BlockTitles.po,
	t/data-30/Callouts.asciidoc, t/data-30/Callouts.out,
	t/data-30/Callouts.po, t/data-30/DelimitedBlocks.asciidoc,
	t/data-30/DelimitedBlocks.out, t/data-30/DelimitedBlocks.po,
	t/data-30/Footnotes.asciidoc, t/data-30/Footnotes.out,
	t/data-30/Footnotes.po, t/data-30/Lists.asciidoc,
	t/data-30/Lists.out, t/data-30/Lists.po,
	t/data-30/Paragraphs.asciidoc, t/data-30/Paragraphs.out,
	t/data-30/Paragraphs.po, t/data-30/Tables.asciidoc,
	t/data-30/Tables.out, t/data-30/Tables.po,
	t/data-30/Titles.asciidoc, t/data-30/Titles.out,
	t/data-30/Titles.po: Added testsuite for the Text module (only
	asciidoc tested. (Some tests currently fail)


--- NEW FILE: 30-text.t ---
#! /usr/bin/perl
# Text module tester.

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

use strict;
use warnings;

my @tests;

unless (-e "t/tmp") {
    mkdir "t/tmp"
        or die "Can't create test directory t/tmp: $!\n";
}

my $diff_po_flags = "-I '^# SOME' ".
                    "-I '^# Test' ".
                    "-I '^\"POT-Creation-Date: ' ".
                    "-I '^\"Content-Transfer-Encoding:' ".
                    "-I '^\"PO-Revision-Date: ' ";

my @AsciiDocTests = qw(Titles BlockTitles BlockId Paragraphs
DelimitedBlocks Lists Footnotes Callouts Tables Attributes);

foreach my $AsciiDocTest (@AsciiDocTests) {
    push @tests, {
        'run' => "perl ../../po4a-normalize -f text -o asciidoc ../data-30/$AsciiDocTest.asciidoc",
        'test'=> "diff -u $diff_po_flags ../data-30/$AsciiDocTest.po po4a-normalize.po".
                 "&& diff -u $diff_po_flags ../data-30/$AsciiDocTest.out po4a-normalize.output",
        'doc' => "$AsciiDocTest test"
    };
}

#use Test::More tests => 2 * scalar(@AsciiDocTests);
use Test::More tests => 2 * 10;

chdir "t/tmp" || die "Can't chdir to my test directory";

foreach my $test ( @tests ) {
    my ($val,$name);

    my $cmd=$test->{'run'};
    $val=system($cmd);

    $name=$test->{'doc'}.' runs';
    ok($val == 0,$name);
    diag($test->{'run'}) unless ($val == 0);

    SKIP: {
        skip ("Command didn't run, can't test the validity of its return",1)
            if $val;
        $val=system($test->{'test'});	
        $name=$test->{'doc'}.' returns what is expected';
        ok($val == 0,$name);
        unless ($val == 0) {
            diag ("Failed (retval=$val) on:");
            diag ($test->{'test'});
            diag ("Was created with:");
            diag ($test->{'run'});
        }
    }
}

chdir "../.."
    or die "Can't chdir back to my root";

0;