require "vnd.stalwart.testsuite";

# Just test whether valid scripts will compile without problems

test "Trivial" {
	# Commands must be case-insensitive
	keep;
	Keep;
	KEEP;
	discard;
	DisCaRD;

	# Tags must be case-insensitive
	if size :UNDER 34 {
	}

	if header :Is "from" "tukker@example.com" {
	}

	# Numbers must be case-insensitive
	if anyof( size :UNDER 34m, size :oVeR 50M ) {
	}
}

test "Redirect" {
	redirect "stephan@example.org";
	redirect " stephan@example.org";
	redirect "stephan @example.org";
	redirect "stephan@ example.org";
	redirect "stephan@example.org ";
	redirect " stephan @ example.org ";
	redirect "Stephan Bosch<stephan@example.org>";
	redirect " Stephan Bosch<stephan@example.org>";
	redirect "Stephan Bosch <stephan@example.org>";
	redirect "Stephan Bosch< stephan@example.org>";
	redirect "Stephan Bosch<stephan @example.org>";
	redirect "Stephan Bosch<stephan@ example.org>";
	redirect "Stephan Bosch<stephan@example.org >";
	redirect "Stephan Bosch<stephan@example.org> ";
	redirect "  Stephan Bosch  <  stephan  @  example.org  > ";

	# Test address syntax
	redirect "\"Stephan Bosch\"@example.org";
	redirect "Stephan.Bosch@eXamPle.oRg";
	redirect "Stephan.Bosch@example.org";
	redirect "Stephan Bosch <stephan@example.org>";
}