skeleton PSGI response test

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

diff --git a/t/02simple.t b/t/02simple.t
index 1854a8f..e0a8ec8 100644 (file)
--- a/t/02simple.t
+++ b/t/02simple.t
@@ -41,6 +41,15 @@ like(
   'Layout woven correctly'
 );
 
-warn $simple1->_content_zoom->to_html;
+like(
+  $simple1->_content_zoom->to_html,
+  qr{<title[^>]*>Simple 1<}s,
+  'Page data interpolated'
+);
+
+my $res = $simple1->_psgi_response;
+
+is(ref($res),'ARRAY','PSGI response');
+is($res->[0],200,'200 OK');
 
 done_testing;