diff options
Diffstat (limited to 'tests/it.t')
| -rwxr-xr-x | tests/it.t | 474 |
1 files changed, 0 insertions, 474 deletions
diff --git a/tests/it.t b/tests/it.t deleted file mode 100755 index bab6685..0000000 --- a/tests/it.t +++ /dev/null @@ -1,474 +0,0 @@ -#!/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 = array()) -{ - $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', - array('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', - array('word1', 'wörd2', 'word_3'), - "test match_all function", - array('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( - utf8_decode('ö'), utf8_decode('Ö'), - utf8_decode('Ö'), - 'match umlaute in de_CH.latin1 case insensitive', - array('utf8' => false) -); - -match( - utf8_decode('aöBÜ'), utf8_decode('AÖbü'), - utf8_decode('AÖbü'), - "match umlaute with non-utf-8 override in p", - array('utf8' => false) -); - - -match( - 'abc', "aBc", - null, - "set case sensitivity by parameter", - array('casesensitive' => 1) -); - -match( - '\w+', 'word1 wörd2 word_3', - array('word1', 'wörd2', 'word_3'), - "test all => 1 without captures", - array('all' => 1) -); - -match( - '\w+\s+(\d+)', 'word1 12 wörd2 3 word_3 4', - array('12', '3', '4'), - "test all => 1 with one capture", - array('all' => 1) -); - -match( - '(\w+)\s+(\d+)', 'word1 12 wörd2 3 word_3 4', - array(array('word1', '12'), array('wörd2', '3'), array('word_3', '4')), - "test all => 1 with captures", - array('all' => 1) -); - -match( - '(\w+)\s+(\d+)', 'word1 12 wörd2 3 word_3 4', - array(array('word1', 'wörd2', 'word_3'), array('12', '3', '4')), - "test all => 1,pattern_order => 1", - array('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", - array('utf8' => true) -); -ini_set('default_charset', 'utf-8'); - - -# -# tests for it::replace() -# -is( - it::replace( - array( - 'regex1' => 'repl1', - 'regex2' => 'repl2', - 'regex3' => 'repl3'), - 'regex2 regex1 regex3'), - 'repl2 repl1 repl3', - 'test tr regex function' -); - -is(it::replace(array('a' => "1", 'b' => "2"), "ab"), "12"); -is(it::replace(array('!' => "x"), "!"), "x"); -is(it::replace(array('\w' => "x"), "oö"), "xx"); -is(it::replace(array('[[:alpha:]]' => "x"), "ö"), "x"); -is(it::replace(array('\w' => "x", '#' => "!"), "#ö"), "!x"); -is(it::replace(array('#' => "!", '\w' => "x"), "#ö"), "!x"); -is(it::replace(array('ö' => "x"), "Ö"), "x"); -is(it::replace(array('a' => "1"), "aaa", array('limit' => 1)), "1aa"); -is(it::replace(array('\s' => "x"), it_html::entity_decode(" ")), "x", "match non-breaking space as white-space character"); -is(it::replace(array('a' => "b", 'b' => "c"), "a"), "c"); - -is(it::grep('ismatch', array('ismatch', 'isnomatch')), array('ismatch'), 'grep with simple regex'); -is(it::grep('!', array('ismatch!', 'isnomatch')), array('ismatch!'), '! in regex'); -is(it::grep('lower|UPPER', array('lower', 'LOWER', 'upper', 'UPPER'), array('casesensitive' => 1)), array(0 => 'lower', 3 => 'UPPER'), 'set casesensitive'); -is(it::grep('match', array('foo' => 'match', 'bar' => 'gna')), array('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', array('10.0.0.0/8', '192.168.0.0./16')), true, "cidr_match array"); - -# it::filter_keys tests - -$data = array('a' => 1, 'b' => 2, 'c' => 3); -is(it::filter_keys($data, 'a'), array('a' => 1), "select one key"); -is(it::filter_keys($data, array('a', 'b')), array('a' => 1, 'b' => 2), "select two keys with array"); -is(it::filter_keys($data, 'a,b'), array('a' => 1, 'b' => 2), "select two keys with string"); -is( - array_keys(it::filter_keys($data, 'b,a')), - array('a', 'b'), - "keep order of data array per default"); -is( - array_keys(it::filter_keys($data, 'b,a', array('reorder' => true))), - array('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(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(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( - utf8_decode(' !"#$%&\'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ ¡¢£¤¥¦§¨©ª«¬®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ')), - ' !"#$%&\'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ ¡¢£¤¥¦§¨©ª«¬®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ', - "it::any2utf8 latin1 input (exhaustive alphabet)"); - -is(it::any2utf8(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(utf8_encode("Müller")), "Müller", "it::any2utf8 doubly encoded utf8"); -is(it::any2utf8(utf8_encode(utf8_encode("Müller"))), "Müller", "it::any2utf8 triply encoded utf8"); -is(it::any2utf8(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(array("foo", utf8_decode("bär"))), array("foo", "bär"), "any2utf8 on arrays"); -is(it::any2utf8(array("foo", array(utf8_decode("bär")))), array("foo", array("bär")), "any2utf8 on recursive arrays"); -is(it::any2utf8(array(1, true, false, null)), array(1, true, false, null), "any2utf8 should leave types alone"); -is(it::any2utf8(array(utf8_decode('Müller') => utf8_decode('Müller'))), array('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"); -} - -foreach (array($dummy, false, true, null, 1, "a", "Ä", "/", array()) as $var) - is(it::json_decode(it::json_encode($var)), $var); - -is(it::sort(array("2!","19!","1!")), array("1!", "19!", "2!")); -is(it::sort(array("2!","19!","1!"), "r"), array("2!", "19!", "1!")); -is(it::sort(array("2!","19!","1!"), "rn"), array("19!", "2!", "1!")); - -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', array(0 => 1, 1 => 2)), array(1, 7)); -is(it::map(function($k, $v) {return 5*$k+$v;}, array(0 => 1, 1 => 2)), array(1, 7)); -is(it::map('strlen', array("aaa", "aa")), array(3, 2)); -is(it::map('it::ucfirst', array("aaa")), array("Aaa")); -is(it::map('$v->C14N()', DOMDocument::loadXML('<foo>42</foo>')->childNodes), [ '<foo>42</foo>' ], "Traversable: Needs copy, not modifiable in-place"); -# Special values which are not callable -is(it::map('null', array("aaa", "aa")), array(null, null)); -is(it::map('1', array("aaa", "aa")), array(1, 1)); -is(it::map(42, array("aaa", "aa")), array(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::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]]); - -it::file_put_contents("/tmp/it_test", "aa"); -is(($fh = it::fopen("/tmp/it_test", "r")) ? fgets($fh) : null, "aa"); -is(it::file_get_contents("/tmp/it_test"), "aa"); -is(it::file("/tmp/it_test"), ["aa"]); -ob_start(); -it::readfile("/tmp/it_test"); -is(ob_get_clean(), "aa"); - -it::file_put("/tmp/it_test", "bb"); -is(it::file_get("/tmp/it_test"), "bb"); |