#!/www/server/bin/php -qC
<?php

# Tests for it.class

#
# tests for it::match()
#
$oldcharset = ini_get('default_charset');
$oldlocale = setlocale(LC_CTYPE, 0);

ini_set('default_charset', 'utf-8');
setlocale(LC_CTYPE, 'de_CH');		# required becuase we're checking German umlauts in latin1 mode

function _match($regex, $string, $expect, $name, $p = [])
{
	$GLOBALS['TEST_MORE_LEVEL'] = 1;
	$pass = is (it::match($regex, $string, $p), $expect, $name);
	if (!$pass) {
		diag("        regex given: $regex" . ($p ? " " .D($p) : ""));
		diag("    regex converted: " . it::convertregex($regex));
	}
	$GLOBALS['TEST_MORE_LEVEL'] = 0;
}


_match(
	'b', 'aaaabaaaa',
	'b',
	'simple regex'
);

_match(
	'a/b', '   a/b   ',
	'a/b',
	'regex with /'
);

_match(
	'aa(bb)aa(cc)aa(dd)qq', 'aabbaaccaaddqq',
	['bb', 'cc', 'dd'],
	'return array of captures'
);

_match(
	'\bblah\b', ' blah ',
	'blah',
	'match \b at spaces'
);

_match(
	'\bblah\b', 'blah',
	'blah',
	'match \b at end of string'
);

_match(
	'\bblah\b', 'ablahc',
	null,
	'don\'t match \b at word chars'
);

_match(
	'\bblah\b', 'Üblahä',
	null,
	'don\'t match \b at umlaute'
);

_match(
	'\Bblah\B', ' blah ',
	null,
	'don\'t match \B at spaces'
);

_match(
	'\Bblah\B', 'blah',
	null,
	'don\'t match \B at end of string'
);

_match(
	'\Bblah\B', 'ablahc',
	'blah',
	'match \B at word chars'
);

_match(
	'\Bblah\B', 'Üblahä',
	'blah',
	'match \B at umlaute'
);

_match(
	'\w+', '  |#Üblahä   ',
	'Üblahä',
	'include umlaute in \w'
);

_match(
	'[[:alpha:]]+', '  |#blahä   ',
	'blahä',
	'include umlaute in [[:alpha:]]'
);

_match(
	'\W+', '  |#Üblahä  ',
	'  |#',
	'don\'t include umlaute in \W'
);

_match(
	'\ba', 'äa',
	null,
	'\b must know umlauts'
);

_match(
	'aaa\\\\w+', '   aaa\www  ',
	'aaa\www',
	'don\'t parse \w in \\\\w at beginning (match)'
);

_match(
	'aaa\\\\w+', '   aaa\www  ',
	'aaa\www',
	'don\'t parse \w in \\\\w after chars (match)'
);

eval('$escapedwordregex = "' . it::convertregex('\w') . '";');
$escapedwordregex = preg_replace('|[\\\\/]|', '', $escapedwordregex);

_match(
	'\\\\w+',  $escapedwordregex,
	null,
	'don\'t parse \w in \\\\w at beginning (no match)'
);

_match(
	'aaa\\\\w+', 'aaa' . $escapedwordregex,
	null,
	'don\'t parse \w in \\\\w after chars (no match)'
);

_match(
	'\\\\\\\\w+', '\\' . $escapedwordregex,
	null,
	'don\'t parse \w in \\\\\\\w (no match)'
);

_match(
	'\\\\\\\\w+', '  \\\\www  ',
	'\\\\www',
	'don\'t parse \\\\\\\\w as \w (match)'
);

_match(
	'[\w]+', '[[[]]]---',
	null,
	'replace \w in [\w] correctly (no match)'
);

_match(
	'[\w]+', '  \\\\aword[[[]]]   ',
	'aword',
	'replace \w in [\w] correctly (match)'
);

_match(
	'[\\\\w]+', ' blabergna ',
	null,
	'don\'t parse \w in [\\\\w] (no match)'
);

_match(
	'[\\\\w]+', '  \\\\worda[[[]',
	'\\\\w',
	'don\'t parse \w in [\\\\w] (match)'
);

_match(
	'[a\W]+', 'bbbbbbb a a%$+ accccc',
	' a a%$+ a',
	'\W in []'
);

_match(
	'\\\\\\w+', '  \Üblahä  ',
	'\Üblahä',
	'parse \w in \\\\\\w at beginning'
);

_match(
	'aaa\\\\\\w+', '  aaa\Üblahä  ',
	'aaa\Üblahä',
	'parse \w in \\\\\\w after chars'
);

_match(
	'\w+', 'word1 wörd2 word_3',
	['word1', 'wörd2', 'word_3'],
	"test match_all function",
	['all' => true]
);

_match(
	'aBcD', '  aBcD  ',
	'aBcD',
	"caseinsensitive is default"
);

_match(
	'\w+', 'Müller',
	'Müller',
	'\w matches umlaut in utf-8 mode'
);

_match(
	'M.ller', 'Müller',
	'Müller',
	'. matches umlaut in utf-8 mode'
);

_match(
	it::utf8_decode('ö'), it::utf8_decode('Ö'),
	it::utf8_decode('Ö'),
	'match umlaute in de_CH.latin1 case insensitive',
	['utf8' => false]
);

_match(
	it::utf8_decode('aöBÜ'), it::utf8_decode('AÖbü'),
	it::utf8_decode('AÖbü'),
	"match umlaute with non-utf-8 override in p",
	['utf8' => false]
);


_match(
	'abc', "aBc",
	null,
	"set case sensitivity by parameter",
	['casesensitive' => 1]
);

_match(
	'\w+', 'word1 wörd2 word_3',
	['word1', 'wörd2', 'word_3'],
	"test all => 1 without captures",
	['all' => 1]
);

_match(
	'\w+\s+(\d+)', 'word1 12 wörd2 3 word_3 4',
	['12', '3', '4'],
	"test all => 1 with one capture",
	['all' => 1]
);

_match(
	'(\w+)\s+(\d+)', 'word1 12 wörd2 3 word_3 4',
	[['word1', '12'], ['wörd2', '3'], ['word_3', '4']],
	"test all => 1 with captures",
	['all' => 1]
);

_match(
	'(\w+)\s+(\d+)', 'word1 12 wörd2 3 word_3 4',
	[['word1', 'wörd2', 'word_3'], ['12', '3', '4']],
	"test all => 1,pattern_order => 1",
	['all' => 1, 'pattern_order' => 1]
);

ini_set('default_charset', 'iso-8859-1');
_match(
	'aöBÜ', "AÖbü",
	'AÖbü',
	"match utf-8 umlaute in case insensitive mode with utf8 override",
	['utf8' => true]
);
ini_set('default_charset', 'utf-8');


#
# tests for it::replace()
#
is(
	it::replace(
		[
			'regex1' => 'repl1',
			'regex2' => 'repl2',
			'regex3' => 'repl3'],
		'regex2 regex1 regex3'),
	'repl2 repl1 repl3',
	'test tr regex function'
);

is(it::replace(['a' => "1", 'b' => "2"], "ab"), "12");
is(it::replace(['!' => "x"], "!"), "x");
is(it::replace(['\w' => "x"], "oö"), "xx");
is(it::replace(['[[:alpha:]]' => "x"], "ö"), "x");
is(it::replace(['\w' => "x", '#' => "!"], "#ö"), "!x");
is(it::replace(['#' => "!", '\w' => "x"], "#ö"), "!x");
is(it::replace(['ö' => "x"], "Ö"), "x");
is(it::replace(['a' => "1"], "aaa", ['limit' => 1]), "1aa");
is(it::replace(['\s' => "x"], it_html::entity_decode("&nbsp;")), "x", "match non-breaking space as white-space character");
is(it::replace(['a' => "b", 'b' => "c"], "a"), "c");

is(it::grep('ismatch', ['ismatch', 'isnomatch']), ['ismatch'],  'grep with simple regex');
is(it::grep('!', ['ismatch!', 'isnomatch']),      ['ismatch!'], '! in regex');
is(it::grep('lower|UPPER', ['lower', 'LOWER', 'upper', 'UPPER'], ['casesensitive' => 1]), [0 => 'lower', 3 => 'UPPER'], 'set casesensitive');
is(it::grep('match', ['foo' => 'match', 'bar' => 'gna']), ['foo' => 'match'], 'with keys');
is(it::grep('2', [0 => 1, 1 => 2, 2 => 3], ['invert' => true]), [0 => 1, 2 => 3]);

setlocale(LC_CTYPE, $oldlocale);
ini_set('default_charset', $oldcharset);	# end of tests that must run with specific charset

# it::cidr_match tests
is(it::cidr_match('192.168.2.3', '192.168.2.5'),					false,	"cidr_match full IP no match no mask");
is(it::cidr_match('192.168.2.3', '192.168.2.3'),					true,	"cidr_match full IP match no mask");
is(it::cidr_match('192.168.2.3', '192.168.2.5/32'),					false,	"cidr_match full IP no match");
is(it::cidr_match('192.168.2.5', '192.168.2.5/32'),					true,	"cidr_match full IP match");
is(it::cidr_match('192.168.1.1', '192.168.42.0/24'),					false,	"cidr_match no match");
is(it::cidr_match('192.168.42.1', '192.168.42.0/24'),					true,	"cidr_match basic match");
is(it::cidr_match('192.168.42.42', '192.168.0.0/16'),					true,	"cidr_match class b");
is(it::cidr_match('192.168.42.42', '192.168.42.64/26'),					false,	"cidr_match offset no match");
is(it::cidr_match('192.168.42.42', '192.168.42.32/27'),					true,	"cidr_match offset");
is(it::cidr_match('2001:918:ff83:101:798e:77c0:b722:fe56', '2001:918:ff83:101::/64'),	true,	"cidr_match ipv6");
is(it::cidr_match('2001:918:ff83:102:798e:77c0:b722:fe56', '2001:918:ff83:101::/64'),	false,	"cidr_match ipv6 no match" );
is(it::cidr_match('10.11.12.13', ['10.0.0.0/8', '192.168.0.0./16']),		true,	"cidr_match array");

# it::is_private_ip tests
is(it::is_private_ip('192.168.2.3'),                    true,  "is_private_ip 192.168/16 example");
is(it::is_private_ip('34.98.92.95'),                    false, "is_private_ip search.ch ipv4");
is(it::is_private_ip('2600:1901:0:6fe0::'),             false, "is_private_ip search.ch ipv6");
is(it::is_private_ip('::1'),                            true,  "is_private_ip loopback ipv6");
is(it::is_private_ip('172.19.34.19'),                   true,  "is_private_ip 172.16/12 example");
is(it::is_private_ip('10.128.72.9'),                    true,  "is_private_ip 10/8 example");
is(it::is_private_ip('195.49.47.11'),                   false, "is_private_ip gna.ch ipv4");
is(it::is_private_ip('2a01:2a8:9100:1911:abba:0:1:80'), false, "is_private_ip gna.ch ipv6");
is(it::is_private_ip('fd12::1337:bab3:d00d'),           true,  "is_private_ip fc00::/7 example");
is(it::is_private_ip('81.6.43.252'),                    false, "is_private_ip dunstkreis.ch ipv4");
is(it::is_private_ip('2a02:169:200:d::15'),             false, "is_private_ip dunstkreis.ch ipv6");
is(it::is_private_ip('127.6.7.23'),                     true,  "is_private_ip loopback ipv4");
is(it::is_private_ip('169.254.6.9'),                    true,  "is_private_ip 169.254/16 example");
is(it::is_private_ip('gna.ch'),                         false, "is_private_ip gna.ch");
is(it::is_private_ip('dunstkreis.ch'),                  false, "is_private_ip dunstkreis.ch");
is(it::is_private_ip('loopback.gna.ch'),                true,  "is_private_ip loopback.gna.ch points to ::1");
is(it::is_private_ip('cname.gna.ch'),                   true,  "is_private_ip cname.gna.ch points to loopback.gna.ch");
is(it::is_private_ip('pub4.gna.ch'),                    true,  "is_private_ip pub4.gna.ch has public ipv4 but private ipv6");
is(it::is_private_ip('pub6.gna.ch'),                    true,  "is_private_ip pub6.gna.ch has private ipv6 and public ipv6");

# Stuff which is interpreted by curl
is(it::is_private_ip('127.1'),                          true,  "is_private_ip loopback ipv4 (zeroes omitted)");
is(it::is_private_ip('127.0.0.01'),                     true,  "is_private_ip loopback ipv4 (octal)");
is(it::is_private_ip('127.0.0.0x1'),                    true,  "is_private_ip loopback ipv4 (hexadecimal)");
is(it::is_private_ip('127.01.0x1'),                     true,  "is_private_ip private with omissions, octal and hexadecimal");
is(it::is_private_ip('128.01.0x1'),                     false, "TODO: is_private_ip non-private with omissions, octal and hexadecimal");

# it::filter_keys tests

$data = ['a' => 1, 'b' => 2, 'c' => 3];
is(it::filter_keys($data, 'a'),             ['a' => 1],           "select one key");
is(it::filter_keys($data, ['a', 'b']), ['a' => 1, 'b' => 2], "select two keys with array");
is(it::filter_keys($data, 'a,b'),           ['a' => 1, 'b' => 2], "select two keys with string");
is(
	array_keys(it::filter_keys($data, 'b,a')),
	['a', 'b'],
	"keep order of data array per default");
is(
	array_keys(it::filter_keys($data, 'b,a', ['reorder' => true])),
	['b', 'a'],
	"reorder with given key order");

# it::date tests

function _time($debug_time, $expected)
{
	$GLOBALS['debug_time'] = $debug_time;
	is(it::date(), $expected, ".time-$debug_time");
	$GLOBALS['debug_time'] = '';
}
_time("2014-01-01", "2014-01-01 00:00:00");
_time("2014-01-01-15-27-15", "2014-01-01 15:27:15");
_time("15-27", it::date('', '15:27'));
_time("1527", it::date('', '15:27'));
_time("15-27-15", it::date('', '15:27:15'));
_time("152715", it::date('', '15:27:15'));
_time("yesterday", it::date('', 'yesterday'));

is(it::date('date', '2011-10-25'), '25.10.2011', 'parse date string with strtotime');
is(it::date('date', '2011-10-25 + 3 days'), '28.10.2011', 'some date arithmetic');
is(it::date('datetime', it::time()), it::date('datetime'), 'recognize int as timestamp');
is(it::date('datetime', it::time()*1.0), it::date('datetime'), 'recognize float as timestamp');
is(it::date('datetime', it::time() . ''), it::date('datetime'), 'recognize digit string as timestamp');
is(it::date('datetime', '@' . it::time()), it::date('datetime'), 'recognize strtotime timestamp format');
is(it::date('datetime', 10), it::date('datetime', "10"), 'numeric and string give same result');
is(it::date('datetime', 10.0), it::date('datetime', "10"), '... as long as num is properly truncated');
is(it::date('datetime', 10.5), it::date('datetime', "10"), '... with one digit after point');
is(it::date('datetime', 10.56), it::date('datetime', "10"), '... with two digits after point');
is(it::date('datetime', 1000000), it::date('datetime', "1000000"), '... large nummer');
is(it::date('datetime', 1000000.543), it::date('datetime', "1000000"), '... large nummer and point');
is(it::date('time', "10.5"), "10:05", 'interpret string with points with strtotime');
is(it::date('time', "10.05"), "10:05", 'interpret string with points with strtotime');

# it::uc*
is(it::ucfirst('foo bär über'), 'Foo bär über');
is(it::ucwords('foo bär über'), 'Foo Bär Über');

# it::substr_replace
is(it::substr_replace('abcdefgh', 'xyz', 2, 4), substr_replace('abcdefgh', 'xyz', 2, 4), 'it::substr_replace the same as substr_replace for ascii');
is(it::substr_replace('✔☯♥', '☃☃', 1, 1), '✔☃☃♥', 'it::substr_replace for utf-8');
is(it::substr_replace('', 'xyz', 0, 0), substr_replace('', 'xyz', 0, 0), 'it::substr_replace with empty haystack the same as substr_replace');
is(it::substr_replace('abc', 'xyz', 0, 2), substr_replace('abc', 'xyz', 0, 2), 'it::substr_replace replacing to end of haystack');
is(it::substr_replace('abc', 'xyz', 0, 10), substr_replace('abc', 'xyz', 0, 10), 'it::substr_replace replacing past end of haystack');
is(it::substr_replace('abcdefgh', 'xyz', 10, 4), substr_replace('abcdefgh', 'xyz', 10, 4), 'it::substr_replace outside of string');

is(grapheme_strlen("\xc1"), null, "need grapheme_strlen side effect for any2utf8");

is(it::any2utf8('Meier'), 'Meier', "it::any2utf8 ascii input");
is(it::any2utf8('Müller'), 'Müller', "it::any2utf8 utf8 input");
is(it::any2utf8('Aslı'), 'Aslı', "it::any2utf8 utf8 non-latin1 input");
is(it::any2utf8(it::utf8_decode('Müller')), 'Müller', "it::any2utf8 latin1 input");

is(it::any2utf8(
	' !"#$%&\'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ ¡¢£¤¥¦§¨©ª«¬®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ'), # omit soft hyphen cause we filter it
	' !"#$%&\'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ ¡¢£¤¥¦§¨©ª«¬®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ',
	"it::any2utf8 utf8 input (exhaustive alphabet)");
is(it::any2utf8(
	it::utf8_decode(' !"#$%&\'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ ¡¢£¤¥¦§¨©ª«¬®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ')),
	' !"#$%&\'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ ¡¢£¤¥¦§¨©ª«¬®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ',
	"it::any2utf8 latin1 input (exhaustive alphabet)");

is(it::any2utf8(it::utf8_encode("ü")), "ü", "it::any2utf8 double encoding");

is(it::any2utf8("Meier"), "Meier", "it::any2utf8 ascii");
is(it::any2utf8("Müller"), "Müller", "it::any2utf8 utf-8 latin1");
is(it::any2utf8("Aslı"), "Aslı", "it::any2utf8 utf-8 non-latin1");
is(it::any2utf8("é»"), "é»", "it::any2utf8 utf-8 latin1 special combination");
is(it::any2utf8(it::utf8_encode("Müller")), "Müller", "it::any2utf8 doubly encoded utf8");
is(it::any2utf8(it::utf8_encode(it::utf8_encode("Müller"))), "Müller", "it::any2utf8 triply encoded utf8");
is(it::any2utf8(it::utf8_decode("Müller")), "Müller", "it::any2utf8 incorrectly encoded latin1");
is(it::any2utf8("a💚b"), "a💚b", "it::any2utf8 correctly handles 4-byte utf-8 character GREEN HEART");

is(it::any2utf8(["foo", it::utf8_decode("bär")]), ["foo", "bär"], "any2utf8 on arrays");
is(it::any2utf8(["foo", [it::utf8_decode("bär")]]), ["foo", ["bär"]], "any2utf8 on recursive arrays");
is(it::any2utf8([1, true, false, null]), [1, true, false, null], "any2utf8 should leave types alone");
is(it::any2utf8([it::utf8_decode('Müller') => it::utf8_decode('Müller')]), ['Müller' => 'Müller'], "it::any2utf8 latin1 keys");

is(it::any2utf8("\xc2\xad"), "", "it::any2utf8 remove soft hyphens");

foreach ([ 'a' => 'ä', 'e' => 'ë', 'i' => 'ï', 'o' => 'ö', 'u' => 'ü' ] as $src => $dst)
{
	is(it::any2utf8("$src\xcc\x88"), $dst, "it::any2utf8 normalize combining diaeresis $dst to umlaut code $dst");
	$src = mb_strtoupper($src);
	$dst = mb_strtoupper($dst);
	is(it::any2utf8("$src\xcc\x88"), $dst, "it::any2utf8 normalize combining diaeresis $dst to umlaut code $dst");
}

is(it::any2utf8("\x65\xcc\x81"), "é", "it::any2utf8 convert to normal form C");

foreach ([$dummy, false, true, null, 1, "a", "Ä", "/", []] as $var)
	is(it::json_decode(it::json_encode($var)), $var);
is(it::json_decode('{"foo":"bar"}')->foo, "bar");
is(it::json_decode('{"foo":"bar"}', ['assoc' => true])['foo'], "bar");

is(it::cdist(null), true);
is(it::cdist(), true);
errlike(function() {it::cdist(false);}, "invalid file name");
errlike(function() {it::cdist("foo", false, "bar");}, "invalid file name");

is(it::sort(["2!","19!","1!"]), ["1!", "19!", "2!"]);
is(it::sort(["2!","19!","1!"], "r"), ["2!", "19!", "1!"]);
is(it::sort(["2!","19!","1!"], "rn"), ["19!", "2!", "1!"]);
is(it::sort(["ccc", "b", "aa"], "", function ($a, $b) { return strlen($a) <=> strlen($b); }), ["b", "aa", "ccc"]);
is(it::sort(["ccc", "b", "aa"], function ($a, $b) { return strlen($a) <=> strlen($b); }), ["b", "aa", "ccc"]);
is(it::sort(["ccc", "b", "aa"], "a", function ($a, $b) { return strlen($a) <=> strlen($b); }), [1 => "b", 2 => "aa", 0 => "ccc"]);
is(it::sort(["ccc" => 2, "b" => 3, "aa" => 1], "k", function ($a, $b) { return strlen($a) <=> strlen($b); }), ['b' => 3, 'aa' => 1, 'ccc' => 2]);
is(it::sort(["ccc", "b", "aa"], "strlen"), ["b", "aa", "ccc"]);

is(it::mod(-9, 4), 3);
is(it::mod(-8, 4), 0);
is(it::mod(0, 4), 0);
is(it::mod(7, 4), 3);

is(it::map('5*$k+$v', [0 => 1, 1 => 2]), [1, 7]);
is(it::map(function($k, $v) {return 5*$k+$v;}, [0 => 1, 1 => 2]), [1, 7]);
is(it::map(function($v) {return 2*$v;}, [0 => 1, 1 => 2]), [2, 4]);
is(it::map('strlen', ["aaa", "aa"]), [3, 2]);
is(it::map('it::ucfirst', ["aaa"]), ["Aaa"]);
$dom = new DOMDocument;
$dom->loadXML('<foo>42</foo>');
is(it::map('$v->C14N()', $dom->childNodes), [ '<foo>42</foo>' ], "Traversable: Needs copy, not modifiable in-place");
# Generator function
function _generator() { foreach (range(1,2) as $v) yield $v; }
is(it::map('2*$v', _generator()), [2, 4], "Generator");
# Special values which are not callable
is(it::map('null', ["aaa", "aa"]), [null, null]);
is(it::map('1', ["aaa", "aa"]), [1, 1]);
is(it::map(42, ["aaa", "aa"]), [42, 42]);
# Only map selected keys
is(it::map('2*$v', [3, 4, 5], ['keys' => '0,1']), [6, 8, 5]);
is(it::map('2*$v', [3, 4, 5], ['keys' => [0,1]]), [6, 8, 5]);
is(it::map('2*$v', ['foo' => 1, 'bar' => 2], ['keys' => 'foo']), ['foo' => 2, 'bar' => 2]);

# it::filter
is(it::filter('$v > 2', [1, 5 => 2, 2 => 3]), [2 => 3]);
is(it::filter('$k > 2', [1, 5 => 2, 2 => 3]), [5 => 2]);
is(it::filter(function($v) {return $v > 2;}, [1, 5 => 2, 2 => 3]), [2 => 3]);
is(it::filter(function($k, $v) {return $k > 2;}, [1, 5 => 2, 2 => 3]), [5 => 2]);

is(it::split("b", "aba"),                               ["a", "a"]);
is(it::split("b", "aBa"),                               ["a", "a"]);
is(it::split("b", "abba"),                              ["a", "", "a"]);
is(it::split("b", "ababa", ['limit' => 2]),             ["a", "aba"]);
is(it::split("b", "abbba", ['no_empty' => true]),       ["a", "a"]);
is(it::split("(b)", "aba", ['delim_capture' => true]),  ["a", "b", "a"]);
is(it::split("b", "aabaa", ['offset_capture' => true]), [["aa", 0], ["aa", 3]]);

$tmpfile = tempnam("/tmp", "it_test");
it::file_put_contents($tmpfile, "abc");
is(($fh = it::fopen($tmpfile, "r")) ? fgets($fh) : null, "abc");
is(it::file_get_contents($tmpfile), "abc");
is(it::file_get_contents($tmpfile, false, null, 1), "bc");
is(it::file_get_contents($tmpfile, false, null, 0, 2), "ab");
is(it::file_get_contents($tmpfile, false, null, 1, 1), "b");
is(it::file($tmpfile), ["abc"]);
ob_start();
it::readfile($tmpfile);
is(ob_get_clean(), "abc");

it::file_put($tmpfile, "bb");
is(it::file_get($tmpfile), "bb");
unlink($tmpfile);

requesturi(it::utf8_decode("lüönd"), "lüönd");
requesturi(it::utf8_decode("ü").it::utf8_encode("ü"), "üü");
requesturi(it::utf8_encode("müller"), "müller");
requesturi(it::utf8_encode(it::utf8_encode("müller")), "müller");
requesturi("I 💚  Nü York", "I 💚  Nü York");

function requesturi($teststring, $expect)
{
	$_SERVER['REQUEST_URI'] = urlencode($teststring);
	it::params2utf8();
	is(urldecode($_SERVER['REQUEST_URI']), $expect, "parms2utf8('$expect')"); # NOPHPLINT
}

_getopt(["val"],                    ['foo' => "val"]);
_getopt(["--", "-val"],             ['foo' => "-val"]);
_getopt(["-v", "val"],              ['verbose' => true, 'foo' => "val"]);
_getopt(["--verbose", "val"],       ['verbose' => true, 'foo' => "val"]);
_getopt(["-vw", "val"],             ['verbose' => true, 'werbose' => true, 'foo' => "val"]);
_getopt(["-a", "val1", "val2"],     ['arg' => "val1", 'foo' => "val2"]);
_getopt(["--arg", "val1", "val2"],  ['arg' => "val1", 'foo' => "val2"]);
_getopt(["--arg=val1", "val2"],     ['arg' => "val1", 'foo' => "val2"]);
_getopt(["-va", "val1", "val2"],    ['verbose' => true, 'arg' => "val1", 'foo' => "val2"]);
_getopt(["-va", "-val1", "val2"],   ['verbose' => true, 'arg' => "-val1", 'foo' => "val2"]);
_getopt(["val1", "val2"],           ['args' => ["val2"], 'foo' => 'val1']);

function _getopt($in, $expect)
{
	$_SERVER['argv'] = array_merge(["cmd.php"], $in);
	$opts = it::getopt("
		Usage: test [OPTIONS] FOO [BAR]
		  -v, --verbose  Be verbose
		  -w, --werbose  Be werbose
		  -a, --arg=ARG  Have argument
		  -b, --brg=ARG  Have another arg
	");

	is($opts, ['args' => $expect['args'] ?? []] + $expect);
}

is(it::urldecode("a%61%E4"), "aaä");
is(it::parse_str("%E4[%E4][%E4]=%E4"), ['ä' => ['ä' => ['ä' => 'ä']]]);