use Test::More tests => 47;
use strict;

use lib qw(lib);

BEGIN {
    use_ok( 'Net::Sieve::Script');
    use_ok( 'Net::Sieve::Script::Rule' ); 
}

my $script = Net::Sieve::Script->new();

# register 3 rules
my @Rules = ();
for my $i (1..3) {
    $Rules[$i] = Net::Sieve::Script::Rule->new(
        test_list => 'header :contains "Subject" "[Test'.$i.']"' ,
        block => 'fileinto "Test'.$i.'"; stop;'
        );
    ok ($script->add_rule($Rules[$i]), "add rule $i");
}

#print $script->write_script;
#exit;
isa_ok($script->find_rule(2),'Net::Sieve::Script::Rule');

ok ($script->swap_rules(3,2),"swap rules 3,2");
is ($script->swap_rules(4,2),0,"test error on swap rules");
is ($script->swap_rules(3,0),0,"test error on swap rules");
is ($script->swap_rules(3,3),0,"test error on swap rules");


is ($script->delete_rule(5),0,"test error on delete rule");
ok ($script->delete_rule(2),"delete rule 2");
ok ($script->delete_rule(1),"delete rule 1");
ok ($script->delete_rule(1),"delete rule 1");
is ($script->max_priority,0, "no more rules");

is ($script->add_rule(5),0,"test error on add rule");

# register 6 rules with else, elsif
for my $i (1..6) {
    my $ctrl = 'if' ;
   $ctrl = 'else' if $i == 5;
   $ctrl = 'elsif' if ( $i == 3 || $i == 4 );
    $Rules[$i] = Net::Sieve::Script::Rule->new(
        ctrl => $ctrl,
        block => 'fileinto "Test'.$i.'"; stop;',
        test_list => ($i != 5)?'header :contains "Subject" "[Test'.$i.']"' :''
        );
    ok ($script->add_rule($Rules[$i]), "add complex rule $i");
   }
ok ($script->delete_rule(2),"delete rule 2");
is ($script->max_priority,5,"5 rules");
ok ($script->delete_rule(3),"delete rule 3");
is ($script->max_priority,4,"4 rules");
ok ($script->delete_rule(2),"delete rule 2 and 3, rule 'if' with 'else' ");
is ($script->max_priority,2,"2 rules");

# add else rule
my $else_rule = Net::Sieve::Script::Rule->new(
    ctrl => 'else',
    block => 'reject; stop;'
    );
ok ($script->add_rule($else_rule),"add else rule");
is ($script->max_priority,3,"3 rules");
ok ($script->delete_rule(1),"delete rule 1");
ok ($script->delete_rule(1),"delete rule 1 and 2, rule 'if' with 'else' ");
is ($script->max_priority,0,"no more rule");


my $script2 = Net::Sieve::Script->new();
my $rule2 =  Net::Sieve::Script::Rule->new();
my $cond = Net::Sieve::Script::Condition->new('header');
$cond->match_type(':contains');
$cond->header_list('"Subject"');
$cond->key_list('"Re: Test2"');
my $actions = 'fileinto "INBOX.test"; stop;';

$rule2->add_condition($cond);
$rule2->add_action($actions);

$script2->add_rule($rule2);

my $res_oo = 'require "fileinto";
if header :contains "Subject" "Re: Test2"
    {
    fileinto "INBOX.test";
    stop;
    }';

is( _strip($script2->write_script), _strip($res_oo), "good oo style write");

my $script3 = Net::Sieve::Script->new();
my $rule3 =  Net::Sieve::Script::Rule->new();
$rule3->alternate('vacation');
$actions = 'vacation "I\'m out -- send mail to cyrus-bugs"';
$rule3->add_action($actions);
$script3->add_rule($rule3);
is ( _strip($script3->write_script), _strip('require "vacation";
    vacation "I\'m out -- send mail to cyrus-bugs";'), "write simple vacation");

#print "======\n";
#print $Rules[3]->write."\n";
#print "======\n";
#print $script3->write_script;
for my $i (1..4) {
    $Rules[$i] = Net::Sieve::Script::Rule->new(
        test_list => 'header :contains "Subject" "[Test'.$i.']"' ,
        block => 'fileinto "Test'.$i.'"'
        );
    ok ($script->add_rule($Rules[$i]), "add rule $i");
};

#print $script->write_script;

my $reorder_list="1 4 2 3";
ok( $script->reorder_rules($reorder_list), "success on reorder_rules");

my $new_rule = $script->find_rule(2);
is ($new_rule->write_condition,'header :contains "Subject" "[Test4]"','Rule 4 on priority 2');

 $new_rule = $script->find_rule(3);
is ($new_rule->write_condition,'header :contains "Subject" "[Test2]"','Rule 2 on priority 3');

is ($script->reorder_rules(), 0, "missing reorder list");
is ($script->reorder_rules("1,2,3"), 0, "wrong list");
is ($script->reorder_rules("1 2 3"), 0, "missing list element");
is ($script->reorder_rules("6 5 1 2 3"), 0, "too much list element");

$script = Net::Sieve::Script->new();
$new_rule = Net::Sieve::Script::Rule->new(
    test_list => 'not exists ["From","Date"]',
    block => 'fileinto "Test"'
    );
$script->add_rule($new_rule);
$res_oo='require "fileinto";
if not exists ["From", "Date"]
    {
    fileinto "Test";
    }';
is( _strip($script->write_script),_strip($res_oo),'write exists condition');