require "vnd.dovecot.testsuite";
require "imap4flags";
require "relational";
require "comparator-i;ascii-numeric";
require "mailbox";
require "fileinto";

test "Segfault Trigger 1" {

	if not test_multiscript [
		"multiscript/group-spam.sieve", 
		"multiscript/spam.sieve", 
		"multiscript/sent-store.sieve"]
	{
		test_fail "failed multiscript execution";	
	}
}

test_set "message" text:
From: Henry von Flockenstoffen <henry@example.com>
To: Dieter von Ausburg <dieter@example.com>
Subject: Test message.

Test message.
.
;

test "Internal Flags" {
	if hasflag :comparator "i;ascii-numeric" :count "ge" "1" {
 		test_fail "some flags or keywords are already set";
	}

	if not test_multiscript [
		"multiscript/setflag.sieve", 
		"multiscript/fileinto.sieve"]
	{
		test_fail "failed multiscript execution";	
	}
	
	test_result_reset;	
	test_message :folder "folder" 0;
	
	if not hasflag "\\answered" {
		test_fail "\\answered flag not stored for message";
	}

	if not hasflag "$label1" {
		test_fail "$label1 keyword not stored for message";
 	}

	if not hasflag :comparator "i;ascii-numeric" :count "eq" "2" {
		test_fail "invalid number of flags set for message";
	}
}