From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 17 Sep 1999 12:16:34 +0000 (+0000)
Subject: Diagnose possible quota limits.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b948423fa27928dae94a4b06811fa23064f5c0c2;p=p5sagit%2Fp5-mst-13.2.git

Diagnose possible quota limits.

p4raw-id: //depot/cfgperl@4169
---

diff --git a/t/lib/syslfs.t b/t/lib/syslfs.t
index 14a968a..80f0ebf 100644
--- a/t/lib/syslfs.t
+++ b/t/lib/syslfs.t
@@ -96,10 +96,12 @@ unless($syswrite && $close) {
     } else {
         print "# close failed: $!\n"
     }
-    if ($! =~/File too large/) {
-	print "1..0\n# writing past 2GB failed\n";
-	explain();
+    if ($! =~/too large/i) {
+	print "1..0\n# writing past 2GB failed: process limits?\n";
+    } elsif ($! =~ /quota/i) {
+	print "1..0\n# filesystem quota limits?\n";
     }
+lain();
     bye();
 }
 
diff --git a/t/op/lfs.t b/t/op/lfs.t
index af7853b..2384c96 100644
--- a/t/op/lfs.t
+++ b/t/op/lfs.t
@@ -100,10 +100,12 @@ unless ($print && $close) {
     } else {
         print "# close failed: $!\n"
     }
-    if ($! =~/File too large/) {
-	print "1..0\n# writing past 2GB failed\n";
-	explain();
+    if ($! =~/too large/i) {
+	print "1..0\n# writing past 2GB failed: process limits?\n";
+    } elsif ($! =~ /quota/i) {
+	print "1..0\n# filesystem quota limits?\n";
     }
+ ain();
     bye();
 }