#!/usr/bin/perl
# $Id: tags.t 1687 2007-06-28 22:44:07Z guillomovitch $

use Test::More tests => 3;
use Test::Exception;
use Youri::Package::RPM::Test;
use Youri::Submit::Test::Tag;

my $test = Youri::Submit::Test::Tag->new(
    tags => { release => 'plf$' },
    skip => [ 'bar' ]
);

lives_ok {
    $test->run(
        undef,
        undef,
        undef,
        [
            Youri::Package::RPM::Test->new(tags => {
                name    => 'foo',
                release => '1plf' 
            })
        ]
    )
} 'compliant package succeed';

throws_ok {
    $test->run(
        undef,
        undef,
        undef,
        [
            Youri::Package::RPM::Test->new(tags => {
                name    => 'foo',
                release => '1mdk' 
            })
        ]
    )
} qr/invalid value 1mdk for tag release/,
'non-compliant package fails';

lives_ok {
    $test->run(
        undef,
        undef,
        undef,
        [
            Youri::Package::RPM::Test->new(tags => {
                name    => 'bar',
                release => '1mdk'
            })
        ],
    )
} 'non-compliant package with exception succeed';