view release on metacpan or  search on metacpan

t/10_diff.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More;
use File::Temp;
use Algorithm::Diff::HTMLTable;

my $table = Algorithm::Diff::HTMLTable->new;

{
    my $error;

    eval {
        $table->diff();
        1;
    } or $error = $@;

    like $error, qr/need two filenames/, 'no filenames';
}

{
    my $error;

    eval {
        $table->diff('file1');
        1;
    } or $error = $@;

    like $error, qr/need two filenames/, 'one filenames';
}

{
    my $error;

    eval {
        $table->diff('file1', 'file2', 'file3');
        1;
    } or $error = $@;

    like $error, qr/need two filenames/, 'too many arguments';
}

{
    my $error;

    eval {
        $table->diff('file1', 'file2');
        1;
    } or $error = $@;

    like $error, qr/is not a file/, 'is not a file';
}

{
    my $error;

    eval {
        $table->diff( {}, {} );
        1;
    } or $error = $@;

    like $error, qr/Need either filename/, 'Hashref passed';
}

done_testing();