let DEV_2 be trunk

[m6w6/ext-http] / tests / client006.phpt

diff --git a/tests/client006.phpt b/tests/client006.phpt
new file mode 100644 (file)
index 0000000..762e044
--- /dev/null
+++ b/tests/client006.phpt
@@ -0,0 +1,42 @@
+--TEST--
+client response callback + dequeue
+--SKIPIF--
+<?php
+include "skipif.inc";
+?>
+--FILE--
+<?php
+echo "Test\n";
+
+function response($response) {
+       echo "R\n";
+       if (!($response instanceof http\Client\Response)) {
+               var_dump($response);
+       }
+       
+       /* automatically dequeue */
+       return true;
+}
+
+$request = new http\Client\Request("GET", "http://www.example.org");
+
+foreach (http\Client::getAvailableDrivers() as $driver) {
+       $client = new http\Client($driver);
+       for ($i=0; $i < 2; ++ $i) {
+               $client->enqueue($request, "response");
+               $client->send();
+               try {
+                       $client->dequeue($request);
+               } catch (Exception $e) {
+                       echo $e->getMessage(),"\n";
+               }
+       }
+}
+
+?>
+Done
+--EXPECTREGEX--
+Test
+(?:(?:R
+Failed to dequeue request; request not in queue
+)+)+Done