From 8c00f5572466200df6112b0f8401005e9377e5f8 Mon Sep 17 00:00:00 2001
From: Eric Wong <e@80x24.org>
Date: Fri, 4 Jan 2019 11:32:00 +0000
Subject: t/cgi.t: move expected failure tests to t/plack.t

No point in implementing these slowly with the CGI wrapper
when PSGI is sufficient for testing.
---
 t/cgi.t   | 10 ----------
 t/plack.t | 13 +++++++++++++
 2 files changed, 13 insertions(+), 10 deletions(-)

(limited to 't')

diff --git a/t/cgi.t b/t/cgi.t
index a25d2eeb..e705cd76 100644
--- a/t/cgi.t
+++ b/t/cgi.t
@@ -80,16 +80,6 @@ EOF
 	$im->done;
 }
 
-# obvious failures, first
-{
-	local $ENV{HOME} = $home;
-	my $res = cgi_run("/", "", "PUT");
-	like($res->{head}, qr/Status:\s*405/i, "PUT not allowed");
-
-	$res = cgi_run("/");
-	like($res->{head}, qr/Status:\s*404/i, "index returns 404");
-}
-
 # message-id pages
 {
 	local $ENV{HOME} = $home;
diff --git a/t/plack.t b/t/plack.t
index 14c9b657..9901186b 100644
--- a/t/plack.t
+++ b/t/plack.t
@@ -240,6 +240,19 @@ EOF
 		is(206, $res->code, 'got partial another response');
 		is($res->content, substr($orig, 5), 'partial body OK past end');
 	});
+
+	# things which should fail
+	test_psgi($app, sub {
+		my ($cb) = @_;
+
+		my $res = $cb->(PUT('/'));
+		is(405, $res->code, 'no PUT to / allowed');
+		$res = $cb->(PUT('/test/'));
+		is(405, $res->code, 'no PUT /$INBOX allowed');
+
+		# TODO
+		# $res = $cb->(GET('/'));
+	});
 }
 
 done_testing();
-- 
cgit v1.2.3-24-ge0c7