skeleton PSGI response test

[scpubgit/App-SCS.git] / t / 02simple.t

diff --git a/t/02simple.t b/t/02simple.t
index 8d57fcb..e0a8ec8 100644 (file)
--- a/t/02simple.t
+++ b/t/02simple.t
@@ -47,4 +47,9 @@ like(
   'Page data interpolated'
 );
 
+my $res = $simple1->_psgi_response;
+
+is(ref($res),'ARRAY','PSGI response');
+is($res->[0],200,'200 OK');
+
 done_testing;