test/swfdec_test_http_request.c

   1 /* Swfdec
   2  * Copyright (C) 2007 Benjamin Otte <otte@gnome.org>
   3  *               2008 Pekka Lampila <pekka.lampila@iki.fi>
   4  *
   5  * This library is free software; you can redistribute it and/or
   6  * modify it under the terms of the GNU Lesser General Public
   7  * License as published by the Free Software Foundation; either
   8  * version 2.1 of the License, or (at your option) any later version.
   9  *
  10  * This library is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13  * Lesser General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU Lesser General Public
  16  * License along with this library; if not, write to the Free Software
  17  * Foundation, Inc., 51 Franklin Street, Fifth Floor,
  18  * Boston, MA  02110-1301  USA
  19  */
  20
  21 #ifdef HAVE_CONFIG_H
  22 #include "config.h"
  23 #endif
  24
  25 #include <string.h>
  26
  27 #include "swfdec_test_http_request.h"
  28 #include "swfdec_test_http_server.h"
  29 #include "swfdec_test_buffer.h"
  30 #include "swfdec_test_function.h"
  31 #include "swfdec_test_utils.h"
  32
  33 SwfdecAsObject *
  34 swfdec_test_http_request_new (SwfdecAsContext *context,
  35     SwfdecTestHTTPServer *server, SoupMessage *message)
  36 {
  37   SwfdecAsValue val;
  38   SwfdecAsObject *ret;
  39
  40   g_return_val_if_fail (SWFDEC_IS_AS_CONTEXT (context), NULL);
  41   g_return_val_if_fail (SWFDEC_IS_TEST_HTTP_SERVER (server), NULL);
  42   g_return_val_if_fail (SOUP_IS_MESSAGE (message), NULL);
  43
  44   if (!swfdec_as_context_use_mem (context, sizeof (SwfdecTestHTTPRequest)))
  45     return NULL;
  46
  47   ret = g_object_new (SWFDEC_TYPE_TEST_HTTP_REQUEST, NULL);
  48   swfdec_as_object_add (ret, context, sizeof (SwfdecTestHTTPRequest));
  49   swfdec_as_object_get_variable (context->global,
  50       swfdec_as_context_get_string (context, "HTTPRequest"), &val);
  51
  52   if (SWFDEC_AS_VALUE_IS_OBJECT (&val))
  53     swfdec_as_object_set_constructor (ret, SWFDEC_AS_VALUE_GET_OBJECT (&val));
  54
  55   soup_message_headers_set_encoding (message->response_headers,
  56       SOUP_ENCODING_CHUNKED);
  57   soup_message_set_flags (message, SOUP_MESSAGE_OVERWRITE_CHUNKS);
  58   soup_message_set_status (message, SOUP_STATUS_OK);
  59
  60   SWFDEC_TEST_HTTP_REQUEST (ret)->server = server;
  61   SWFDEC_TEST_HTTP_REQUEST (ret)->message = message;
  62
  63   return ret;
  64 }
  65
  66 /*** SWFDEC_TEST_HTTP_REQUEST ***/
  67
  68 G_DEFINE_TYPE (SwfdecTestHTTPRequest, swfdec_test_http_request, SWFDEC_TYPE_AS_OBJECT)
  69
  70 static void
  71 swfdec_test_http_request_dispose (GObject *object)
  72 {
  73   SwfdecTestHTTPRequest *request = SWFDEC_TEST_HTTP_REQUEST (object);
  74
  75   g_object_unref (request->message);
  76   request->message = NULL;
  77
  78   G_OBJECT_CLASS (swfdec_test_http_request_parent_class)->dispose (object);
  79 }
  80
  81 static void
  82 swfdec_test_http_request_mark (SwfdecAsObject *object)
  83 {
  84   SwfdecTestHTTPRequest *request = SWFDEC_TEST_HTTP_REQUEST (object);
  85
  86   swfdec_as_object_mark (SWFDEC_AS_OBJECT (request->server));
  87   swfdec_as_object_mark (SWFDEC_AS_OBJECT (request->headers));
  88
  89   SWFDEC_AS_OBJECT_CLASS (swfdec_test_http_request_parent_class)->mark (object);
  90 }
  91
  92 static void
  93 swfdec_test_http_request_class_init (SwfdecTestHTTPRequestClass *klass)
  94 {
  95   GObjectClass *object_class = G_OBJECT_CLASS (klass);
  96   SwfdecAsObjectClass *asobject_class = SWFDEC_AS_OBJECT_CLASS (klass);
  97
  98   object_class->dispose = swfdec_test_http_request_dispose;
  99   asobject_class->mark = swfdec_test_http_request_mark;
 100 }
 101
 102 static void
 103 swfdec_test_http_request_init (SwfdecTestHTTPRequest *this)
 104 {
 105 }
 106
 107 /*** AS CODE ***/
 108
 109 SWFDEC_TEST_FUNCTION ("HTTPRequest_toString", swfdec_test_http_request_toString, 0)
 110 void
 111 swfdec_test_http_request_toString (SwfdecAsContext *cx, SwfdecAsObject *object,
 112     guint argc, SwfdecAsValue *argv, SwfdecAsValue *retval)
 113 {
 114   SwfdecTestHTTPRequest *request;
 115   GString *string;
 116   SoupURI *uri;
 117
 118   SWFDEC_AS_CHECK (SWFDEC_TYPE_TEST_HTTP_REQUEST, &request, "");
 119
 120   string = g_string_new (request->message->method);
 121   string = g_string_append (string, " ");
 122
 123   uri = soup_message_get_uri (request->message);
 124   string = g_string_append (string, soup_uri_to_string (uri, FALSE));
 125
 126   SWFDEC_AS_VALUE_SET_STRING (retval,
 127       swfdec_as_context_give_string (cx, g_string_free (string, FALSE)));
 128 }
 129
 130 SWFDEC_TEST_FUNCTION ("HTTPRequest_get_server", swfdec_test_http_request_get_server, 0)
 131 void
 132 swfdec_test_http_request_get_server (SwfdecAsContext *cx,
 133     SwfdecAsObject *object, guint argc, SwfdecAsValue *argv,
 134     SwfdecAsValue *retval)
 135 {
 136   SwfdecTestHTTPRequest *request;
 137
 138   SWFDEC_AS_CHECK (SWFDEC_TYPE_TEST_HTTP_REQUEST, &request, "");
 139
 140   SWFDEC_AS_VALUE_SET_OBJECT (retval, SWFDEC_AS_OBJECT (request->server));
 141 }
 142
 143 SWFDEC_TEST_FUNCTION ("HTTPRequest_get_url", swfdec_test_http_request_get_url, 0)
 144 void
 145 swfdec_test_http_request_get_url (SwfdecAsContext *cx, SwfdecAsObject *object,
 146     guint argc, SwfdecAsValue *argv, SwfdecAsValue *retval)
 147 {
 148   SwfdecTestHTTPRequest *request;
 149   SoupURI *uri;
 150
 151   SWFDEC_AS_CHECK (SWFDEC_TYPE_TEST_HTTP_REQUEST, &request, "");
 152
 153   uri = soup_message_get_uri (request->message);
 154
 155   SWFDEC_AS_VALUE_SET_STRING (retval,
 156       swfdec_as_context_give_string (cx, soup_uri_to_string (uri, FALSE)));
 157 }
 158
 159 SWFDEC_TEST_FUNCTION ("HTTPRequest_get_path", swfdec_test_http_request_get_path, 0)
 160 void
 161 swfdec_test_http_request_get_path (SwfdecAsContext *cx, SwfdecAsObject *object,
 162     guint argc, SwfdecAsValue *argv, SwfdecAsValue *retval)
 163 {
 164   SwfdecTestHTTPRequest *request;
 165   SoupURI *uri;
 166
 167   SWFDEC_AS_CHECK (SWFDEC_TYPE_TEST_HTTP_REQUEST, &request, "");
 168
 169   uri = soup_message_get_uri (request->message);
 170
 171   SWFDEC_AS_VALUE_SET_STRING (retval,
 172       swfdec_as_context_give_string (cx, soup_uri_to_string (uri, TRUE)));
 173 }
 174
 175 static void
 176 swfdec_test_http_request_foreach_set_headers (const char *name,
 177     const char *value, gpointer user_data)
 178 {
 179   SwfdecTestHTTPRequest *request = user_data;
 180   SwfdecAsContext *cx;
 181   SwfdecAsValue val;
 182
 183   g_return_if_fail (SWFDEC_IS_AS_OBJECT (request->headers));
 184
 185   cx = request->headers->context;
 186
 187   SWFDEC_AS_VALUE_SET_STRING (&val, swfdec_as_context_get_string (cx, value));
 188   swfdec_as_object_set_variable (request->headers,
 189       swfdec_as_context_get_string (cx, name), &val);
 190 }
 191
 192 SWFDEC_TEST_FUNCTION ("HTTPRequest_get_headers", swfdec_test_http_request_get_headers, 0)
 193 void
 194 swfdec_test_http_request_get_headers (SwfdecAsContext *cx,
 195     SwfdecAsObject *object, guint argc, SwfdecAsValue *argv,
 196     SwfdecAsValue *retval)
 197 {
 198   SwfdecTestHTTPRequest *request;
 199
 200   SWFDEC_AS_CHECK (SWFDEC_TYPE_TEST_HTTP_REQUEST, &request, "");
 201
 202   if (!request->headers) {
 203     request->headers = swfdec_as_object_new_empty (cx);
 204     soup_message_headers_foreach (request->message->request_headers,
 205         swfdec_test_http_request_foreach_set_headers, request);
 206   }
 207
 208   SWFDEC_AS_VALUE_SET_OBJECT (retval, request->headers);
 209 }
 210
 211 SWFDEC_TEST_FUNCTION ("HTTPRequest_get_contentType", swfdec_test_http_request_get_contentType, 0)
 212 void
 213 swfdec_test_http_request_get_contentType (SwfdecAsContext *cx,
 214     SwfdecAsObject *object, guint argc, SwfdecAsValue *argv,
 215     SwfdecAsValue *retval)
 216 {
 217   SwfdecTestHTTPRequest *request;
 218   const char *value;
 219
 220   SWFDEC_AS_CHECK (SWFDEC_TYPE_TEST_HTTP_REQUEST, &request, "");
 221
 222   value = soup_message_headers_get (request->message->response_headers,
 223       "Content-Type");
 224
 225   if (value != NULL) {
 226     SWFDEC_AS_VALUE_SET_STRING (retval,
 227         swfdec_as_context_get_string (cx, value));
 228   } else {
 229     SWFDEC_AS_VALUE_SET_NULL (retval);
 230   }
 231 }
 232
 233 SWFDEC_TEST_FUNCTION ("HTTPRequest_set_contentType", swfdec_test_http_request_set_contentType, 0)
 234 void
 235 swfdec_test_http_request_set_contentType (SwfdecAsContext *cx,
 236     SwfdecAsObject *object, guint argc, SwfdecAsValue *argv,
 237     SwfdecAsValue *retval)
 238 {
 239   SwfdecTestHTTPRequest *request;
 240   SwfdecAsValue val;
 241
 242   SWFDEC_AS_CHECK (SWFDEC_TYPE_TEST_HTTP_REQUEST, &request, "v", &val);
 243
 244   if (request->state > SWFDEC_TEST_HTTP_REQUEST_STATE_WAITING) {
 245     swfdec_test_throw (cx, "Headers have already been sent");
 246     return;
 247   }
 248
 249   if (SWFDEC_AS_VALUE_IS_NULL (&val) || SWFDEC_AS_VALUE_IS_UNDEFINED (&val)) {
 250     soup_message_headers_remove (request->message->response_headers,
 251         "Content-Type");
 252   } else {
 253     soup_message_headers_replace (request->message->response_headers,
 254         "Content-Type", swfdec_as_value_to_string (cx, &val));
 255   }
 256 }
 257
 258 SWFDEC_TEST_FUNCTION ("HTTPRequest_get_statusCode", swfdec_test_http_request_get_statusCode, 0)
 259 void
 260 swfdec_test_http_request_get_statusCode (SwfdecAsContext *cx,
 261     SwfdecAsObject *object, guint argc, SwfdecAsValue *argv,
 262     SwfdecAsValue *retval)
 263 {
 264   SwfdecTestHTTPRequest *request;
 265
 266   SWFDEC_AS_CHECK (SWFDEC_TYPE_TEST_HTTP_REQUEST, &request, "");
 267
 268   SWFDEC_AS_VALUE_SET_INT (retval, request->message->status_code);
 269 }
 270
 271 SWFDEC_TEST_FUNCTION ("HTTPRequest_set_statusCode", swfdec_test_http_request_set_statusCode, 0)
 272 void
 273 swfdec_test_http_request_set_statusCode (SwfdecAsContext *cx,
 274     SwfdecAsObject *object, guint argc, SwfdecAsValue *argv,
 275     SwfdecAsValue *retval)
 276 {
 277   SwfdecTestHTTPRequest *request;
 278   int status_code;
 279
 280   SWFDEC_AS_CHECK (SWFDEC_TYPE_TEST_HTTP_REQUEST, &request, "i", &status_code);
 281
 282   if (status_code < 0)
 283     return;
 284
 285   if (request->state > SWFDEC_TEST_HTTP_REQUEST_STATE_WAITING) {
 286     swfdec_test_throw (cx, "Headers have already been sent");
 287     return;
 288   }
 289
 290   soup_message_set_status (request->message, status_code);
 291 }
 292
 293 SWFDEC_TEST_FUNCTION ("HTTPRequest_send", swfdec_test_http_request_send, 0)
 294 void
 295 swfdec_test_http_request_send (SwfdecAsContext *cx, SwfdecAsObject *object,
 296     guint argc, SwfdecAsValue *argv, SwfdecAsValue *retval)
 297 {
 298   SwfdecTestHTTPRequest *request;
 299   SwfdecAsValue val;
 300
 301   SWFDEC_AS_CHECK (SWFDEC_TYPE_TEST_HTTP_REQUEST, &request, "v", &val);
 302
 303   if (request->state > SWFDEC_TEST_HTTP_REQUEST_STATE_SENDING) {
 304     swfdec_test_throw (cx, "Reply has already been sent");
 305     return;
 306   }
 307
 308   if (SWFDEC_AS_VALUE_IS_OBJECT (&val) &&
 309       SWFDEC_IS_TEST_BUFFER (SWFDEC_AS_VALUE_GET_OBJECT (&val))) {
 310     SwfdecTestBuffer *buffer =
 311       SWFDEC_TEST_BUFFER (SWFDEC_AS_VALUE_GET_OBJECT (&val));
 312     soup_message_body_append (request->message->response_body,
 313         SOUP_MEMORY_COPY, buffer->buffer->data, buffer->buffer->length);
 314   } else {
 315     const char *data = swfdec_as_value_to_string (cx, &val);
 316     soup_message_body_append (request->message->response_body,
 317         SOUP_MEMORY_COPY, data, strlen (data));
 318   }
 319
 320   soup_server_unpause_message (request->server->server, request->message);
 321
 322   swfdec_test_http_server_run (request->server);
 323
 324   request->state = SWFDEC_TEST_HTTP_REQUEST_STATE_SENDING;
 325 }
 326
 327 SWFDEC_TEST_FUNCTION ("HTTPRequest_close", swfdec_test_http_request_close, 0)
 328 void
 329 swfdec_test_http_request_close (SwfdecAsContext *cx, SwfdecAsObject *object,
 330     guint argc, SwfdecAsValue *argv, SwfdecAsValue *retval)
 331 {
 332   SwfdecTestHTTPRequest *request;
 333
 334   SWFDEC_AS_CHECK (SWFDEC_TYPE_TEST_HTTP_REQUEST, &request, "");
 335
 336   if (request->state == SWFDEC_TEST_HTTP_REQUEST_STATE_SENT) {
 337     swfdec_test_throw (cx, "Reply has already been sent");
 338     return;
 339   }
 340
 341   soup_message_body_complete (request->message->response_body);
 342   soup_server_unpause_message (request->server->server, request->message);
 343
 344   swfdec_test_http_server_run (request->server);
 345
 346   request->state = SWFDEC_TEST_HTTP_REQUEST_STATE_SENT;
 347 }