view release on metacpan or  search on metacpan

t/lib-Mail-Dir.t  view on Meta::CPAN

    my $old_file = $message->{'file'};

    lives_ok {
        $message->move('INBOX');
    }
    '$maildir->move() successfully moves message from INBOX.new to INBOX';

    my $new_file = $message->{'file'};

    isnt( $old_file => $new_file, '$maildir->move() actually relocated message from INBOX.new to INBOX' );

    note('Testing message flags; first, with no flags set');

    ok( !$message->passed,  '$maildir->passed() returns false' );
    ok( !$message->replied, '$maildir->replied() returns false' );
    ok( !$message->seen,    '$maildir->seen() returns false' );
    ok( !$message->trashed, '$maildir->trashed() returns false' );
    ok( !$message->draft,   '$maildir->draft() returns false' );
    ok( !$message->flagged, '$maildir->flagged() returns false' );