From b948423fa27928dae94a4b06811fa23064f5c0c2 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Fri, 17 Sep 1999 12:16:34 +0000 Subject: [PATCH] Diagnose possible quota limits. p4raw-id: //depot/cfgperl@4169 --- t/lib/syslfs.t | 8 +++++--- t/op/lfs.t | 8 +++++--- 2 files changed, 10 insertions(+), 6 deletions(-) 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(); } -- 2.7.4