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 (file)
--- 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 (file)
--- 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();
 }