[BACK]Return to 008.phpt CVS log [TXT] [DIR] Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / php / ext / interbase / tests
File:  [ELWIX - Embedded LightWeight unIX -] / embedaddon / php / ext / interbase / tests / 008.phpt
Revision 1.1.1.2 (vendor branch): download - view: text, annotated - select for diffs - revision graph
Tue May 29 12:34:40 2012 UTC (12 years, 5 months ago) by misho
Branches: php, MAIN
CVS tags: v5_4_3elwix, v5_4_29p0, v5_4_29, v5_4_20p0, v5_4_20, v5_4_17p0, v5_4_17, HEAD
php 5.4.3+patches

--TEST--
InterBase: event handling
--SKIPIF--
<?php 
if (PHP_OS == "WINNT") echo "skip";
include("skipif.inc"); 
?>
--FILE--
<?php /* $Id: 008.phpt,v 1.1.1.2 2012/05/29 12:34:40 misho Exp $ */

require("interbase.inc");

$count = 0;

function event_callback($event)
{
	global $count;
	if ($event == 'TEST1') echo "FAIL TEST1\n";
	return (++$count < 5); /* cancel event */
}

$link = ibase_connect($test_base);

ibase_query("CREATE PROCEDURE pevent AS BEGIN POST_EVENT 'TEST1'; POST_EVENT 'TEST2'; END");
ibase_commit();

$e = ibase_set_event_handler('event_callback','TEST1');
ibase_free_event_handler($e);

ibase_set_event_handler('event_callback','TEST2');

usleep(5E+5);

for ($i = 0; $i < 8; ++$i) {
	ibase_query("EXECUTE PROCEDURE pevent");
	ibase_commit();

	usleep(3E+5);
}

usleep(5E+5);

if (!$count || $count > 5) echo "FAIL ($count)\n";
echo "end of test\n";

?>
--EXPECT--
end of test
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>