From c977d5de8d0cb83d9193dea860ed7f395df89858 Mon Sep 17 00:00:00 2001
From: Jim Meyering <meyering@redhat.com>
Date: Sun, 9 Oct 2011 09:28:37 +0200
Subject: tests: skip rather than failing when perl is not available

* tests/df/total-verify: Use require_perl_, so that this test is
skipped when perl is not available.
* tests/rm/deep-2: Likewise, and fix wording in a comment.
Reported by Bruno Haible.
---
 tests/df/total-verify | 1 +
 tests/rm/deep-2       | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/tests/df/total-verify b/tests/df/total-verify
index bbf2e3b9c..6098c0e24 100755
--- a/tests/df/total-verify
+++ b/tests/df/total-verify
@@ -18,6 +18,7 @@
 
 . "${srcdir=.}/init.sh"; path_prepend_ ../src
 print_ver_ df
+require_perl_
 
 df || skip_ "df fails"
 
diff --git a/tests/rm/deep-2 b/tests/rm/deep-2
index b7651da32..d9566aace 100755
--- a/tests/rm/deep-2
+++ b/tests/rm/deep-2
@@ -18,6 +18,7 @@
 
 . "${srcdir=.}/init.sh"; path_prepend_ ../src
 print_ver_ rm
+require_perl_
 
 # Root can run this test, but it always succeeds, since for root, all
 # files are writable, and write_protected_non_symlink never reaches
@@ -27,7 +28,7 @@ skip_if_root_
 mkdir x || framework_failure_
 cd x || framework_failure_
 
-# Construct a hierarchy containing a relative file with a name
+# Construct a hierarchy containing a relative file with a long name
 : ${PERL=perl}
 $PERL \
     -e 'my $d = "x" x 200; foreach my $i (1..52)' \
-- 
cgit v1.2.3-54-g00ecf