}
$error = '';
if (isset($alpha)) {
$result = $p->SetRGBColor($arg, $alpha);
} else {
$result = $p->SetRGBColor($arg);
}
if (expect_equal($expected, $result, $title, $error)) {
$n_pass++;
} else {
$n_fail++;
echo "{$error}\n";
}
}
# ===== Test Cases =====
test_init();
# ===========================================================
if ($test_verbose) {
echo "Testing base SetRGBColor forms...\n";
}
# These duplicate tests in u.colors but with a 4th parameter (alpha) = 0
# in the return value.
test('SetRGBColor empty string', array(0, 0, 0, 0), $p, '');
test('SetRGBColor #rrggbb black', array(0, 0, 0, 0), $p, '#000000');
test('SetRGBColor #rrggbb white', array(255, 255, 255, 0), $p, '#ffffff');
test('SetRGBColor #rrggbb white upper case', array(255, 255, 255, 0), $p, '#FFFFFF');
test('SetRGBColor array', array(20, 30, 40, 0), $p, array(20, 30, 40));
test('SetRGBColor black array', array(0, 0, 0, 0), $p, array(0, 0, 0));
# Named colors from the RGB array:
test('SetRGBColor by name', array(0, 0, 255, 0), $p, 'blue');
test('SetRGBColor by name', array(250, 128, 114, 0), $p, 'salmon');
function test_is_https($k, $v, $should_be_https)
{
global $host, $path;
global $https_key, $https_value;
test_init("off", $host, $path, null, true);
unset($_SERVER[$https_key]);
$_SERVER[$k] = $v;
$is_https = is_https();
$pass = $is_https === $should_be_https ? true : false;
pass_fail($pass);
echo "\t\t\tHTTPS ({$k}) is set to " . ($is_https ? "on" : "off");
if (!$pass) {
echo "\n\t\t\tand it should be " . ($should_be_https ? "on" : "off");
}
echo "\n\n";
}
