pigeonhole/tests/extensions/environment/basic.svtest


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

require "vnd.dovecot.testsuite";
require "environment";
require "variables";

test "Name" {
	if not environment :contains "name" "pigeonhole" {
		if environment :matches "name" "*" { set "env_name" "${1}"; }

		test_fail "name environment returned invalid value(1): ${env_name}";
	}

	if not environment :contains "name" "sieve" {
		if environment :matches "name" "*" { set "env_name" "${1}"; }

		test_fail "name environment returned invalid value(2): ${env_name}";
	}

	if environment :contains "name" "cyrus" {
		test_fail "something is definitely wrong here";
	}

	if not environment :is :comparator "i;octet" "name" "Pigeonhole Sieve" {
		test_fail "name environment does not match exactly with what is expected";
	}
}

test "Location" {
	if not environment "location" "MS" {
		test_fail "wrong testsuite environment location";
	}
}