From 1336ce6ac3baacd1cecbf776cfafa81f8d025272 Mon Sep 17 00:00:00 2001
From: Nathan Gass
Date: Thu, 22 Mar 2012 18:19:43 +0000
Subject: Wrong branch itools/live/devel-utf8 removed
---
devel-utf8/tests/autoprepend.t | 38 ------
devel-utf8/tests/exec.t | 23 ----
devel-utf8/tests/getopt.t | 29 -----
devel-utf8/tests/it.t | 285 -----------------------------------------
devel-utf8/tests/it_dbi.t | 254 ------------------------------------
devel-utf8/tests/it_html.t | 159 -----------------------
devel-utf8/tests/it_text.t | 18 ---
devel-utf8/tests/it_url.t | 135 -------------------
devel-utf8/tests/it_xml.t | 120 -----------------
devel-utf8/tests/itjs.t | 50 --------
10 files changed, 1111 deletions(-)
delete mode 100755 devel-utf8/tests/autoprepend.t
delete mode 100755 devel-utf8/tests/exec.t
delete mode 100755 devel-utf8/tests/getopt.t
delete mode 100755 devel-utf8/tests/it.t
delete mode 100755 devel-utf8/tests/it_dbi.t
delete mode 100755 devel-utf8/tests/it_html.t
delete mode 100755 devel-utf8/tests/it_text.t
delete mode 100755 devel-utf8/tests/it_url.t
delete mode 100755 devel-utf8/tests/it_xml.t
delete mode 100755 devel-utf8/tests/itjs.t
(limited to 'devel-utf8/tests')
diff --git a/devel-utf8/tests/autoprepend.t b/devel-utf8/tests/autoprepend.t
deleted file mode 100755
index bf40605..0000000
--- a/devel-utf8/tests/autoprepend.t
+++ /dev/null
@@ -1,38 +0,0 @@
-#!/www/server/bin/php -qC
-<?php
-
-it_text::init();
-$GLOBALS['it_text']->statictext = array(
- '_' => array("de" => "Deutsch", "en" => "English"),
- 'foo' => array("de" => "bar {v1}", "en" => "qux {v1}"),
-);
-
-is(
- T('foo'),
- "bar {v1}",
- "simple T()"
-);
-
-is(
- T('foo', 'en'),
- "qux {v1}",
- "simple T() with language"
-);
-
-is(
- T('foo', array('v1' => "gna<bber")),
- "bar gna<bber",
- "T() with quoted values"
-);
-
-is(
- T('foo', array('v1' => "gna<bber"), 'en'),
- "qux gna<bber",
- "T() with with quoted values and language"
-);
-
-is(
- T('foo', 'en', array('v1' => "gna<bber")),
- "qux gna<bber",
- "T() with with language and quoted values"
-);
diff --git a/devel-utf8/tests/exec.t b/devel-utf8/tests/exec.t
deleted file mode 100755
index 689bd26..0000000
--- a/devel-utf8/tests/exec.t
+++ /dev/null
@@ -1,23 +0,0 @@
-#!/www/server/bin/php -qC
-<?php
-
-# Tests for getopt in it.class
-
-is(it::exec("echo gna"), "gna\n", "basic exec");
-is(it::exec("echo {arg}", array('arg' => 'gna')), "gna\n", "exec with argument");
-is(it::shell_command("echo {arg}", array('arg' => 'gna07,-:blah')), "echo gna07,-:blah", "don't quote arguments with only whitelistes characters");
-is(it::shell_command("echo {arg}", array('arg' => '2>&1')), "echo '2>&1'", "quote arguments with dangerous characters");
-is(it::shell_command("echo {arg}", array('arg' => '')), "echo ''", "quote empty arguments");
-
-foreach (array("", "C", "de_CH", "de_CH.utf8") as $locale) {
- setlocale(LC_ALL, $locale);
- $arg = "pre�post";
- if (it::match('utf8', $locale))
- $arg = utf8_encode($arg);
- is(it::exec("echo " . $arg), $arg . "\n", "exec with umlaut (locale '$locale')");
- is(it::exec("echo {arg}", array('arg' => $arg)), $arg . "\n", "exec with argument and umlaut (locale '$locale')");
-}
-
-is(it::_exec_quotevalue(""), "''", "empty arg needs quotes");
-is(it::_exec_quotevalue("*"), "'*'", "special chars need quotes");
-is(it::_exec_quotevalue("Aabcdef0123456789"), "Aabcdef0123456789", "simple case. tel:debug_getdata needs unquoted vals");
diff --git a/devel-utf8/tests/getopt.t b/devel-utf8/tests/getopt.t
deleted file mode 100755
index 7a84588..0000000
--- a/devel-utf8/tests/getopt.t
+++ /dev/null
@@ -1,29 +0,0 @@
-#!/www/server/bin/php -qC
-<?php
-
-# Tests for getopt in it.class
-
-$GLOBALS['usage'] = "Usage: doesnotexist.php [OPTIONS]
-Some help to a not existing program
- -h,--help the help argument
- -a,--argument=ARG the arg argument
- -0,--zero testworthy shortarg
-";
-
-function getopt_ok($argv, $exp, $name)
-{
- $_SERVER['argv'] = array_merge(array('doesnotexist.php'), $argv);
- $got = it::getopt($GLOBALS['usage']);
- return is($got['argument'], $exp, $name);
-}
-
-foreach (array("" => "blah gnaber", " (umlaute)" => "pre ��post") as $variant => $testarg) {
- getopt_ok(array('-a', $testarg), $testarg, "Short version" . $variant);
- getopt_ok(array('--argument', $testarg), $testarg, "Long version with space" . $variant);
- getopt_ok(array("--argument=$testarg"), $testarg, "Long version with equal" . $variant);
-}
-
-$_SERVER['argv'] = array('doesnotexist.php', '-0');
-$zero_opts = it::getopt($GLOBALS['usage']);
-ok($zero_opts['zero'], '-0');
-
diff --git a/devel-utf8/tests/it.t b/devel-utf8/tests/it.t
deleted file mode 100755
index 1a308ec..0000000
--- a/devel-utf8/tests/it.t
+++ /dev/null
@@ -1,285 +0,0 @@
-#!/www/server/bin/php -qC
-<?php
-
-# Tests for it.class
-
-function match($regex, $string, $expect, $name)
-{
- $GLOBALS['TEST_MORE_LEVEL'] = 1;
- $pass = is (it::match($regex, $string), $expect, $name);
- if (!$pass) {
- diag(" regex given: $regex");
- 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',
- false,
- 'don\'t match \b at word chars'
- );
-match(
- '\bblah\b', '�blah�',
- false,
- 'don\'t match \b at umlaute in latin1'
- );
-match(
- '\Bblah\B', ' blah ',
- false,
- 'don\'t match \B at spaces'
- );
-match(
- '\Bblah\B', 'blah',
- false,
- '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 in latin1'
- );
-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',
- '',
- '\b must know umlauts'
- );
-
-eval( '$escapedwordregex = "' . it::convertregex( '\w' ) . '";' );
-$escapedwordregex = preg_replace( '|[\\\\/]|', '', $escapedwordregex );
-
-match(
- '\\\\w+', $escapedwordregex,
- false,
- 'don\'t parse \w in \\\\w at beginning (no match)'
- );
-match(
- 'aaa\\\\w+', ' aaa\www ',
- 'aaa\www',
- 'don\'t parse \w in \\\\w at beginning (match)'
- );
-match(
- 'aaa\\\\w+', 'aaa' . $escapedwordregex,
- false,
- 'don\'t parse \w in \\\\w after chars (no match)'
- );
-match(
- 'aaa\\\\w+', ' aaa\www ',
- 'aaa\www',
- 'don\'t parse \w in \\\\w after chars (match)'
- );
-match(
- '\\\\\\\\w+', '\\' . $escapedwordregex,
- false,
- 'don\'t parse \w in \\\\\\\w (no match)'
- );
-match(
- '\\\\\\\\w+', ' \\\\www ',
- '\\\\www',
- 'don\'t parse \\\\\\\\w as \w (match)'
- );
-match(
- '[\w]+', '[[[]]]---',
- false,
- 'replace \w in [\w] correctly (no match)'
- );
-match(
- '[\w]+', ' \\\\aword[[[]]] ',
- 'aword',
- 'replace \w in [\w] correctly (match)'
- );
-match(
- '[\\\\w]+', ' blabergna ',
- false,
- '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'
- );
-is(
- it::replace(
- array(
- 'regex1' => 'repl1',
- 'regex2' => 'repl2',
- 'regex3' => 'repl3' ),
- 'regex2 regex1 regex3' ),
- 'repl2 repl1 repl3',
- 'test tr regex function'
- );
-is(
- it::match( '\w+', 'word1 w�rd2 word_3', array('all' => true )),
- array( 'word1', 'w�rd2', 'word_3' ),
- "test match_all function"
- );
-match(
- 'aBcD', ' aBcD ',
- 'aBcD',
- "caseinsensitive is default"
- );
-match(
- '�', '�',
- '�',
- 'match umlaute in latin1 case insensitive'
- );
-
-is(
- it::match(utf8_encode('a�B�'), utf8_encode("A�b�"), array('utf8' => true)),
- utf8_encode('A�b�'),
- "match utf-8 umlaute in case insensitive"
-);
-
-$oldcharset = ini_get('default_charset');
-ini_set('default_charset', 'utf-8');
-match(
- utf8_encode('a�B�'), utf8_encode('A�b�'),
- utf8_encode('A�b�'),
- "match utf-8 umlaute in case insensitive using default_charset"
-);
-is(
- it::match('a�B�', 'A�b�', array('utf8' => false)),
- 'A�b�',
- "non-utf-8 override with default_charset=utf-8"
-);
-match(
- '\w+', utf8_encode('M�ller'),
- utf8_encode('M�ller'),
- '\w matches umlaut in utf-8 mode'
-);
-match(
- 'M.ller', utf8_encode('M�ller'),
- utf8_encode('M�ller'),
- '. matches umlaut in utf-8 mode'
-);
-ini_set('default_charset', $oldcharset);
-
-is(
- it::match( 'abc', "aBc", array('casesensitive' => 1 )),
- false,
- "set case sensitivity by parameter"
- );
-
-is(
- it::match( '\w+', 'word1 w�rd2 word_3', array('all' => 1 )),
- array( 'word1', 'w�rd2', 'word_3' ),
- "test all=>1 without captures"
- );
-is(
- it::match( '\w+\s+(\d+)', 'word1 12 w�rd2 3 word_3 4', array('all' => 1 )),
- array( '12', '3', '4' ),
- "test all=>1 with one capture"
- );
-is(
- it::match( '(\w+)\s+(\d+)', 'word1 12 w�rd2 3 word_3 4', array('all' => 1 )),
- array( array( 'word1', '12' ), array( 'w�rd2', '3' ), array( 'word_3', '4' ) ),
- "test all=>1 with captures"
- );
-is(
- it::match( '(\w+)\s+(\d+)', 'word1 12 w�rd2 3 word_3 4', array('all' => 1, 'pattern_order' => 1 )),
- array( array( 'word1', 'w�rd2', 'word_3' ), array( '12', '3', '4' ) ),
- "test all=>1,pattern_order=>1"
- );
-
-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");
-
-# 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
-
-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', time()), it::date('datetime'), 'recognize int as timestamp');
-is(it::date('datetime', time()*1.0), it::date('datetime'), 'recognize float as timestamp');
-is(it::date('datetime', time() . ''), it::date('datetime'), 'recognize digit string as timestamp');
-is(it::date('datetime', '@' . 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');
-
-?>
diff --git a/devel-utf8/tests/it_dbi.t b/devel-utf8/tests/it_dbi.t
deleted file mode 100755
index 4a58188..0000000
--- a/devel-utf8/tests/it_dbi.t
+++ /dev/null
@@ -1,254 +0,0 @@
-#!/www/server/bin/php -qC
-<?php
-
-# Tests for it_dbi.class
-
-# Initialize DB
-$db = array('db' => "lib_search_ch", 'safety' => 0);
-$dbi = new it_dbi($db);
-$dbi->query('create temporary table it_dbi_test (
- ID int not null auto_increment,
- x int,
- foo varchar(42),
- primary key(ID)
-);');
-
-$record = new it_dbi($db + array('table' => "it_dbi_test"));
-
-$record->insert(array('x' => 42, 'foo' => null));
-$record->insert(array('foo' => "bar"));
-$record->insert(array('x' => 64738, 'foo' => "q'uux"));
-
-is(
- $record->ID,
- 3,
- "auto_increment"
-);
-
-$record->read(1);
-is(
- array($record->_key, $record->x, $record->foo),
- array(1, 42, null),
- "read"
-);
-
-is(
- $record->select(),
- 3,
- "select without parameters select all"
-);
-
-is(
- $record->select(array('foo <>' => ""), "LIMIT 1"),
- 1,
- "select with multiple parameters (LIMIT part)"
-);
-is(
- $record->foo,
- "bar",
- "select with multiple parameters (foo part)"
-);
-is(
- $record->select(array('ID IN' => array(2,3))),
- 2,
- "select with IN"
-);
-is(
- $record->select(array('ID NI' => array(2,3))),
- 2,
- "select with NI"
-);
-is(
- $record->select(array('ID NOT IN' => array(2,3))),
- 1,
- "select with NOT IN"
-);
-is(
- $record->select(array('ID IN' => array())),
- 0,
- "select with empty IN"
-);
-is(
- $record->select(array('ID NOT IN' => array())),
- 3,
- "select with empty NOT IN"
-);
-
-it_dbi::createclass(array('table' => "it_dbi_test", 'forcecreate' => true));
-
-$record = new it_dbi_test;
-is(
- $record->x,
- null,
- "constructor of created class without argument"
-);
-
-$record = new it_dbi_test(2);
-is(
- $record->ID,
- 2,
- "constructor of created class with id parameter"
-);
-
-$record = new it_dbi_test(array('x >' => 0), "ORDER BY x DESC");
-is(
- $record->x,
- 64738,
- "constructor of created class with multiple select parameters"
-);
-
-$record = new it_dbi_test(array('foo' => 'bar'));
-is(
- $record->ID,
- 2,
- "constructor of created class with single array parameter"
-);
-
-$record = new it_dbi($db + array('table' => "it_dbi_test"));
-is(
- $record->x,
- null,
- "constructor without parameters"
-);
-
-$record = new it_dbi($db + array('table' => "it_dbi_test"), array('x >' => 0), "ORDER BY x DESC");
-is(
- $record->x,
- 64738,
- "constructor with multiple select parameters"
-);
-
-$record->select(array('x' => 64738));
-is(
- array($record->_key, $record->x, $record->foo),
- array(3, 64738, "q'uux"),
- "select"
-);
-
-$record->update(array('x' => 17));
-is(
- array($record->_key, $record->x, $record->foo),
- array(3, 17, "q'uux"),
- "update"
-);
-
-is(
- $record->update(array('x' => 18), array('x' => 17)),
- 1,
- "return affected rows",
-);
-
-is(
- $record->update(array('x' => 18), array('x' => 17)),
- 0,
- "return zero affected rows",
-);
-
-$record->update(array('-x' => 'RAND() * 10'));
-isnt(
- array($record->_key, $record->x, $record->foo),
- array(3, 17, "q'uux"),
- "update with function"
-);
-
-$rand = $record->x;
-is (
- $record->_set(array('x' => $rand, 'foo' => "bar")),
- "SET `foo`='bar'",
- 'update: _set optimization'
-);
-
-$record->update(array('foo' => "bar"));
-$record->select(array('foo' => "bar"));
-$record->iterate();
-is(
- array($record->_key, $record->x, $record->foo),
- array(2, null, "bar"),
- "iterate record 2"
-);
-$record->update(array('foo' => "qux"));
-$record->iterate();
-is(
- array($record->_key, $record->x, $record->foo),
- array(3, $rand, "bar"),
- "iterate record 3"
-);
-$record->update(array('foo' => "quux"));
-
-$record->read(2);
-is(
- array($record->_key, isset($record->x), $record->foo),
- array(2, false, "qux"),
- "iterate update record 2"
-);
-
-$record->read(3);
-is(
- array($record->_key, $record->x, $record->foo),
- array(3, $rand, "quux"),
- "iterate update record 3"
-);
-
-is(
- gettype($record->_key) . "/" . gettype($record->x) . "/" . gettype($record->_data['x']) . "/" . gettype($record->foo),
- "integer/integer/integer/string",
- "automatic type detection"
-);
-
-$count = 0;
-foreach (new it_dbi_test as $id => $record)
-{
- $count++;
- is($record->_key, $id, "Iterator id $id");
-}
-is($count, 3, "Iterator without select");
-
-$count = 0;
-foreach (new it_dbi_test(array('foo <>' => "")) as $id => $record)
-{
- $count++;
- is($record->_key, $id, "Iterator id $id");
-}
-is($count, 2, "Iterator with select");
-
-$count = 0;
-foreach ($record as $dummy_rec)
- $count++;
-is($count, 2, "Iterator reused");
-
-# Test field localization feature
-
-$dbi->query('create temporary table it_dbi_testlocalized (
- ID int not null auto_increment,
- foobar_de varchar(42),
- foobar_fr varchar(42),
- primary key(ID)
-);');
-
-$record = new it_dbi($db + array('table' => "it_dbi_testlocalized"));
-$record->insert(array('foobar_de' => "deutsch", 'foobar_fr' => "franz"));
-$record->insert(array('foobar_de' => "deutsch2", 'foobar_fr' => "franz2"));
-
-T_set_language('de');
-$record->select(array());
-$record->iterate();
-is(
- array($record->_key, $record->foobar),
- array(1, "deutsch"),
- "localized field foobar_de"
-);
-$record->iterate();
-is(
- array($record->_key, $record->foobar),
- array(2, "deutsch2"),
- "localized field foobar_de iterate"
-);
-
-T_set_language('fr');
-$record->read(1);
-is(
- array($record->_key, $record->foobar),
- array(1, "franz"),
- "localized field foobar_fr"
-);
-
diff --git a/devel-utf8/tests/it_html.t b/devel-utf8/tests/it_html.t
deleted file mode 100755
index 0def431..0000000
--- a/devel-utf8/tests/it_html.t
+++ /dev/null
@@ -1,159 +0,0 @@
-#!/www/server/bin/php -qC
-<?php
-
-# Tests for html.class
-
-# Traditional html generation
-new it_html(array('htmltype' => "html"));
-
-is(
- a(array('href' => "&foo", 'true' => true, 'false' => false, 'null' => null, 'empty' => ""), "bar"),
- '<a href="&foo" true empty="">bar</a>',
- "tag with attributes"
-);
-
-is(
- div(),
- "<div></div>\n",
- "empty div tag"
-);
-
-is(
- img(array('src' => "foo.png", 'alt' => "ALT")),
- '<img src="foo.png" alt="ALT">',
- "img tag with attributes"
-);
-
-is(
- tag('link'),
- "<link>\n",
- "empty link tag"
-);
-
-is(
- tag('link', "foo"),
- "<link>foo</link>\n",
- "link tag with data"
-);
-
-is(
- it::replace(array('\n+\s*' => ""), select(array('name' => "gna", 'multiple' => true), '1:foo,2:bar', '1,2')),
- '<select name="gna" multiple><option value="1" selected>foo</option><option value="2" selected>bar</option></select>',
- "select tag with multiselect"
-);
-
-is(
- it::replace(array('\n+\s*' => ""), select(array('name' => "gna"), array("1" => "foo", "2" => 'bar', '1,2' => "qux"), '1,2')),
- '<select name="gna"><option value="1">foo</option><option value="2">bar</option><option value="1,2" selected>qux</option></select>',
- "select tag without multiselect"
-);
-
-# XML generation
-unset($GLOBALS['it_html']);
-new it_html(array('htmltype' => "xhtml", 'tags' => "xmltest"));
-
-is(
- xmltest(),
- "<xmltest />\n",
- "empty xmltest tag"
-);
-
-is(
- xmltest("foo"),
- "<xmltest>foo</xmltest>\n",
- "empty xmltest tag"
-);
-
-is(
- xmltest(array('href' => "&foo", 'true' => true, 'false' => false, 'null' => null, 'empty' => "")),
- '<xmltest href="&foo" true="true" empty="" />' . "\n",
- "xmltest tag with attributes"
-);
-
-# Inheriting and extending it_html
-class myhtml extends it_html
-{
-function myimg($args)
-{
- array_unshift($args, array('alt' => "ALT", 'bar' => "BAR"));
-
- return parent::img($args);
-}
-}
-
-unset($GLOBALS['it_html']);
-new myhtml(array('htmltype' => "html"));
-
-is(
- myimg(array('src' => "foo.gif", 'alt' => "foo")),
- '<img alt="foo" bar="BAR" src="foo.gif">',
- "it_html inheritance"
-);
-
-is(
- it_html::sanitize(" \r \n " . ' <p><a href="http://www.flickr.com/people/swisspics%/">swisspics</a> posted < < ä & yesterday <b>a <i>photo</i></b> <b><i>tag missmatch</b></i>:</p><br><BR />
-
-<P><a href="javascript:window.close()" title="Wolken"><img src="http://farm1.static.flickr.com/177/377214376_bcba167a7d_m.jpg" width="240" height="180" alt="Wolken" style="border: 1px solid #ddd;" /></a></p>
-'),
- ' <a href="http://www.flickr.com/people/swisspics%25/">swisspics</a> posted < < � & yesterday a <i>photo</i> <i>tag missmatch</i>:<br /><br /> <p><img src="http://farm1.static.flickr.com/177/377214376_bcba167a7d_m.jpg" alt="" /></p> ',
- 'it_html::sanitize tag soup'
-);
-
-is(
- it_html::sanitize('q←x'),
- "q←x",
- 'it_html::sanitize preserve numeric entities'
-);
-
-it_html::configure(array('charset' => "utf-8"));
-is(
- it_html::sanitize('qüx'),
- "q\xc3\xbcx",
- 'it_html::sanitize with utf-8'
-);
-
-it_html::configure(array('charset' => "iso-8859-1"));
-is(
- it_html::sanitize('qüx'),
- "q\xfcx",
- 'it_html::sanitize with latin1'
-);
-
-is(
- it_html::sanitize('<b>a<br>b</b>'),
- "<b>a<br />b</b>",
- 'it_html::sanitize with b and br (tag prefix of other tag bug)'
-);
-
-is(
- U("/foo.html", array('bar' => array('gna' => 42, 'qux' => array('quux' => "<Z�rich>", 'gn�p' => "fasel")))),
- '/foo.html?bar[gna]=42&bar[qux][quux]=%3CZ%FCrich%3E&bar[qux][gn%F6p]=fasel',
- 'U() with nested arrays'
-);
-
-is(
- U("Jet d'eau"),
- 'Jet+d%27eau',
- 'U() with single quotes in URL'
-);
-
-is(
- U('%% %1%x %1x%x1%xx%11%ff%FF'),
- '%25%25+%251%25x+%251x%25x1%25xx%11%ff%FF',
- 'U() quoting of % if not followed by 2 hex digits'
-);
-
-is(
- U('a\\b'),
- 'a/b',
- 'U() converting of \ to /'
-);
-
-is(it_html::entity_decode("ä"), "�");
-is(it_html::entity_decode("’"), "'");
-is(it_html::entity_decode("J"), "J");
-is(it_html::entity_decode("J"), "J");
-is(it_html::entity_decode("࿿"), " ");
-is(it_html::entity_decode("A"), "A");
-is(it_html::entity_decode("ϧ"), " ");
-?>
diff --git a/devel-utf8/tests/it_text.t b/devel-utf8/tests/it_text.t
deleted file mode 100755
index bc4d5c0..0000000
--- a/devel-utf8/tests/it_text.t
+++ /dev/null
@@ -1,18 +0,0 @@
-#!/www/server/bin/php
-<?php
-
-$obj->x = "attr";
-$obj->y->z = "attr";
-
-is(it_text::transmogrify(""), "");
-is(it_text::transmogrify("foo"), "foo");
-is(it_text::transmogrify("{foo}"), "");
-is(it_text::transmogrify("{foo}", array('foo' => 1)), "1");
-is(it_text::transmogrify("{foo}{foo}", array('foo' => 1)), "11");
-is(it_text::transmogrify("{foo}X", array('foo' => 1)), "1X");
-is(it_text::transmogrify("{foo}X{foo}", array('foo' => 1)), "1X1");
-is(it_text::transmogrify("X{foo}", array('foo' => 1)), "X1");
-is(it_text::transmogrify("X{foo}{bar}", array('foo' => 1, 'bar' => 2)), "X12");
-is(it_text::transmogrify("X{foo}", array('foo' => "&")), "X&");
-is(it_text::transmogrify("X{x}", $obj), "Xattr");
-is(it_text::transmogrify("X{y.z}", $obj), "Xattr");
diff --git a/devel-utf8/tests/it_url.t b/devel-utf8/tests/it_url.t
deleted file mode 100755
index e8507aa..0000000
--- a/devel-utf8/tests/it_url.t
+++ /dev/null
@@ -1,135 +0,0 @@
-#!/www/server/bin/php -qC
-<?php
-
-# Tests for url.class, currently only constructor's parser
-
-# Create object and parse url
-$url = new it_url('HTTP://falcon:joshua@www.Relog.CH:80/default.asp');
-
-is(
- $url->url,
- 'http://www.relog.ch/',
- '$url->url'
-);
-
-is(
- $url->protocol,
- 'http',
- '$url->protocol'
-);
-
-is(
- $url->hostname,
- 'relog.ch',
- '$url->hostname'
-);
-
-is(
- $url->realhostname,
- 'www.relog.ch',
- '$url->realhostname'
-);
-
-is(
- $url->port,
- 80,
- '$url->port'
-);
-
-is(
- $url->path,
- '',
- '$url->path'
-);
-
-is(
- $url->user,
- 'falcon',
- '$url->user'
-);
-
-is(
- $url->pass,
- 'joshua',
- '$url->pass'
-);
-
-# and now check for path
-$url = new it_url('HTTP://falcon:joshua@www.Relog.CH:80/foo/bar.html');
-
-is(
- $url->path,
- 'foo/bar.html',
- '$url->path'
-);
-
-$_SERVER['HTTP_HOST'] = "gna.ch";
-is(
- it_url::absolute("/"),
- 'http://gna.ch:/',
- 'it_url::absolute basic'
-);
-
-$_SERVER['SERVER_PORT'] = 42;
-is(
- it_url::absolute("/port"),
- 'http://gna.ch:42/port',
- 'it_url::absolute with non-standard port'
-);
-
-$_SERVER['HTTPS'] = true;
-$_SERVER['SERVER_PORT'] = 443;
-is(
- it_url::absolute("/https"),
- 'https://gna.ch/https',
- 'it_url::absolute for https'
-);
-
-$url = new it_url('http://www.gna.ch/');
-$page = $url->get();
-is(
- it::match('(</html>)', $page),
- '</html>',
- '$url->get with url in constructor'
-);
-
-$url = new it_url('http://bogus.url');
-$page = $url->get('http://www.gna.ch/');
-is(
- it::match('(</html>)', $page),
- '</html>',
- '$url->get(url) with url as string arg'
-);
-
-$url = new it_url('http://bogus.url');
-$page = $url->get(array('url' => 'http://www.gna.ch/'));
-is(
- it::match('(</html>)', $page),
- '</html>',
- '$url->get(\'url\' => url) with url as named arg'
-);
-is(
- $url->result,
- 200,
- '$url->result = 200'
-);
-is(
- $url->headers['Connection'],
- 'close',
- '$url->headers correctly set'
-);
-
-unset($url, $page);
-$page = it_url::get('http://www.gna.ch/');
-is(
- it::match('(</html>)', $page),
- '</html>',
- 'it_url::get() static call'
-);
-
-$pages = it_url::get_multi('urls' => array('a' => 'http://www.gna.ch/', 'b' => 'http://search.ch/'));
-ok(it::match('</html>', $pages['a']), 'it_url::get_multi got first url');
-ok(it::match('</html>', $pages['b']), 'it_url::get_multi got second url');
-is(count($pages), 2, 'it_url::get_multi no additional array elements');
-
-?>
diff --git a/devel-utf8/tests/it_xml.t b/devel-utf8/tests/it_xml.t
deleted file mode 100755
index f74c54b..0000000
--- a/devel-utf8/tests/it_xml.t
+++ /dev/null
@@ -1,120 +0,0 @@
-#!/www/server/bin/php -qC
-<?php
-
-# Tests for xml.class
-
-function match($xmldata, $expected, $name, $prefix = "", $p = array())
-{
- $classname = $prefix ? ($prefix . "_xml") : "it_xml";
- $varname = $prefix . "foo";
- $xmldata = "<root>$xmldata</root>";
- $xml = new $classname($xmldata, $p);
-
- is(
- preg_replace('/[#\s]+/', " ", print_r($xml->$varname, true)),
- $expected,
- "$name (string)"
- );
-
- $tmpfile = tmpfile();
- fwrite($tmpfile, $xmldata);
- rewind($tmpfile);
-
- $xml = new $classname($tmpfile, $p);
- fclose($tmpfile);
-
- is(
- preg_replace('/[#\s]+/', " ", print_r($xml->$varname, true)),
- $expected,
- "$name (file)"
- );
-
-}
-
-match(
- '<foo />',
- 'foo Object ( ) ',
- 'empty tag'
-);
-
-match(
- '<foo /><foo />',
- 'Array ( [0] => foo Object ( ) [1] => foo Object ( ) ) ',
- 'multiple empty tags converted to array'
-);
-
-match(
- '<foo title="Z�rich">St�ssihofstadt</foo>',
- 'foo Object ( [attr] => Array ( [title] => Z�rich ) [val] => St�ssihofstadt ) ',
- 'simple tag with latin1 content and attribute'
-);
-
-match(
- '<foo><ns:a.b.-c ns2:d.e-f="value" /></foo>',
- 'foo Object ( [a_b__c] => a_b__c Object ( [attr] => Array ( [d_e_f] => value ) ) ) ',
- 'Tags and attributes with name space and special characters'
-);
-
-match(
- '<foo>x & y</foo>',
- 'foo Object ( [val] => x & y ) ',
- 'Character data with entities'
-);
-
-match(
- '<foo>&amp; <a> &amp; <b> &amp; <c> ü</foo>',
- 'foo Object ( [val] => & <a> & <b> & <c> � ) ',
- 'Predecode illegal entities while keeping properly encoded ones'
-);
-
-match(
- '<foo>&amp; <a> &amp; <b> &amp; <c> ü</foo>',
- utf8_encode('foo Object ( [val] => & <a> & <b> & <c> � ) '),
- 'Predecode illegal entities while keeping properly encoded ones (UTF-8)',
- "",
- array('encoding' => "UTF-8")
-);
-
-
-match(
- "<foo>a\x05b</foo>",
- 'foo Object ( [val] => a b ) ',
- 'Illegal latin 1 character',
- "",
- array('encoding' => "ISO-8859-1")
-);
-
-# Test inheritance
-class my_xml extends it_xml
-{
-
-function my_xml($xmldata)
-{
- parent::it_xml($xmldata);
-
- # Code which should be executed in root and only there
- $this->qux = new it_xml;
- $this->qux->val = "qux";
-
- if (is_object($this->myfoo))
- $this->myfoo->inheritbaseclass = is_a($this->myfoo, "my_xml");
-}
-
-}
-
-match(
- '<myfoo />',
- 'myfoo Object ( [inheritbaseclass] => ) ',
- 'Inheritance and constructor (critical for e.g. tel_xmlentry)',
- 'my'
-);
-
-$x = new foo("<foo></foo>", array('prefix' => "test"));
-$x->set(array('gna' => 42, 'bar' => array('baz' => array("qux", "quux"))));
-match(
- $x->to_xml(),
- 'foo Object ( [gna] => gna Object ( [val] => 42 ) [bar] => bar Object ( [baz] => Array ( [0] => baz Object ( [val] => qux ) [1] => baz Object ( [val] => quux ) ) ) ) ',
- "Method set()"
-);
-
-?>
diff --git a/devel-utf8/tests/itjs.t b/devel-utf8/tests/itjs.t
deleted file mode 100755
index f616ced..0000000
--- a/devel-utf8/tests/itjs.t
+++ /dev/null
@@ -1,50 +0,0 @@
-#!/www/server/bin/php -qC
-<?php
-
-# Tests for itjs.class, currently only itjs::serialize()
-
-$_GET['aa'] = 1;
-
-is(
- itjs::serialize(array()),
- '[]',
- 'empty array'
-);
-
-is(
- itjs::serialize(array(0, "0")),
- '[0, 0]',
- 'number 0'
-);
-
-is(
- itjs::serialize(array(null, "", false)),
- '["", "", false]',
- 'null, empty string, false'
-);
-
-is(
- itjs::serialize(array(42, "42", 42.5, "042")),
- '[42, 42, "42.5", "042"]',
- 'numbers'
-);
-
-is(
- itjs::serialize(array('foo' => "bar", "qux", 42 => "quux")),
- "{foo:\"bar\",\n'0':\"qux\",\n'42':\"quux\"}",
- 'key-value pairs'
-);
-
-is(
- itjs::serialize(array('foo' => array('bar' => array("qux", 42)))),
- '{foo:{bar:["qux", 42]}}',
- 'nested arrays'
-);
-
-is(
- itjs::serialize(array('import' => array('function' => array(true, 42)))),
- '{\'import\':{\'function\':[true, 42]}}',
- 'keywords'
-);
-
-?>
--
cgit v1.2.3