From f7548d6d28c313cf80e6f3ef89aed16a19815df1 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sun, 28 Apr 2024 11:51:24 +0200 Subject: Adding upstream version 1:2.3.19.1+dfsg1. Signed-off-by: Daniel Baumann --- .../tests/extensions/environment/basic.svtest | 33 ++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 pigeonhole/tests/extensions/environment/basic.svtest (limited to 'pigeonhole/tests/extensions/environment/basic.svtest') diff --git a/pigeonhole/tests/extensions/environment/basic.svtest b/pigeonhole/tests/extensions/environment/basic.svtest new file mode 100644 index 0000000..bb0beb4 --- /dev/null +++ b/pigeonhole/tests/extensions/environment/basic.svtest @@ -0,0 +1,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"; + } +} + + -- cgit v1.2.3