Annotation of embedaddon/php/ext/interbase/tests/008.phpt, revision 1.1.1.1
1.1 misho 1: --TEST--
2: InterBase: event handling
3: --SKIPIF--
4: <?php
5: if (PHP_OS == "WINNT") echo "skip";
6: include("skipif.inc");
7: ?>
8: --FILE--
9: <?php /* $Id: 008.phpt 158958 2004-05-19 08:56:50Z helly $ */
10:
11: require("interbase.inc");
12:
13: $count = 0;
14:
15: function event_callback($event)
16: {
17: global $count;
18: if ($event == 'TEST1') echo "FAIL TEST1\n";
19: return (++$count < 5); /* cancel event */
20: }
21:
22: $link = ibase_connect($test_base);
23:
24: ibase_query("CREATE PROCEDURE pevent AS BEGIN POST_EVENT 'TEST1'; POST_EVENT 'TEST2'; END");
25: ibase_commit();
26:
27: $e = ibase_set_event_handler('event_callback','TEST1');
28: ibase_free_event_handler($e);
29:
30: ibase_set_event_handler('event_callback','TEST2');
31:
32: usleep(5E+5);
33:
34: for ($i = 0; $i < 8; ++$i) {
35: ibase_query("EXECUTE PROCEDURE pevent");
36: ibase_commit();
37:
38: usleep(3E+5);
39: }
40:
41: usleep(5E+5);
42:
43: if (!$count || $count > 5) echo "FAIL ($count)\n";
44: echo "end of test\n";
45:
46: ?>
47: --EXPECT--
48: end of test
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>