root/libswish3/tags/10Feb2008/src/test.pl

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 21;


my %docs = (
    'UPPERlower.XML'   => '17',
    'badxml.xml'       => '10',
    'contractions.xml' => '13',
    'foo.txt'          => '16',
    'latin1.xml'       => '3',
    'latin1.txt'       => '3',
    'min.txt'          => '1',
    'multi_props.xml'  => '25',
    'nested_meta.xml'  => '18',
    't.html'           => '6',
    'testutf.xml'      => '8746',   #'8685',
    'utf.xml'          => '30',
    'words.txt'        => '55',
    'words.xml'        => '52',
    'has_nulls.txt'    => '13',
    'no_such_file.txt' => '0',
    'meta.html'        => '23',
    'empty_doc.html'   => '0',
    'no_words.html'    => '0',
    'html_broken.html' => '2',

           );
           
my %stdindocs = (
    'doc.xml'           => '8404'
    
    );

for my $file (sort keys %docs)
{
    cmp_ok(words($file), '==', $docs{$file}, "$file -> $docs{$file} words");
}

for my $file (sort keys %stdindocs)
{
    cmp_ok(fromstdin($file), '==', $stdindocs{$file}, "stdin $file -> $stdindocs{$file} words");
}

sub words
{
    my $file = shift;
    my $o = join(' ', `./swish_lint test_docs/$file`);
    my ($count) = ($o =~ m/nwords: (\d+)/);
    return $count || 0;
}

sub fromstdin
{
    my $file = shift;
    my $o = join(' ', `./swish_lint - < test_stdin/$file`);
    my ($count) = ($o =~ m/nwords: (\d+)/);
    return $count || 0;
}