From 3b4d93fe795ecb77e797a5cfc150db6841795d44 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Mon, 11 Jul 2011 12:15:04 +0200
Subject: add test for timeout

Signed-off-by: franck cuny <franck@lumberjaph.net>
---
 t/spore-response/timeout.t | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 t/spore-response/timeout.t

(limited to 't/spore-response/timeout.t')

diff --git a/t/spore-response/timeout.t b/t/spore-response/timeout.t
new file mode 100644
index 0000000..e7503e6
--- /dev/null
+++ b/t/spore-response/timeout.t
@@ -0,0 +1,23 @@
+use strict;
+use warnings;
+use Test::More;
+use Net::HTTP::Spore::Response;
+
+sub res {
+    my $res = Net::HTTP::Spore::Response->new;
+    my %v   = @_;
+    while ( my ( $k, $v ) = each %v ) {
+        $res->$k($v);
+    }
+    $res->to_string;
+}
+
+is(
+    res(
+        status => 500,
+        body   => 'read timeout',
+    ),
+    "HTTP status: 500 - read timeout"
+);
+
+done_testing;
-- 
cgit 1.4.1