From 50fcd7eb0b97c4b2106220dbeaa656d88ae91fc3 Mon Sep 17 00:00:00 2001
From: Alex Schroeder <alex@gnu.org>
Date: Fri, 5 Jan 2018 11:25:55 +0100
Subject: [PATCH] gopher-server: add a test for large uploads

---
 t/gopher-server.t | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/t/gopher-server.t b/t/gopher-server.t
index 287e7af1..07929cb1 100644
--- a/t/gopher-server.t
+++ b/t/gopher-server.t
@@ -270,4 +270,11 @@ like($copy, qr/\211PNG\r\n/, "Image copy download");
 
 is($copy, $image, "Image and copy are identical");
 
+# Test large pages
+my $garbage = (("0123456789" x 8) . "\n") x 1000 . "Last Line";
+$page = query_gopher("Large/write/text", "$garbage");
+like($page, qr/^iPage was saved./m, "Write large page");
+$page = query_gopher("Large");
+like($page, qr/Last Line/m, "Read large page");
+
 done_testing();