+++ /dev/null
-# -*- sh -*-
-# Does the current (working-dir.) file system support sparse files?
-
-# Copyright (C) 2006, 2007 Free Software Foundation, Inc.
-
-# This program is free software: you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation, either version 3 of the License, or
-# (at your option) any later version.
-
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-
-# You should have received a copy of the GNU General Public License
-# along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-# Test whether we can create a sparse file.
-# For example, on Darwin6.5 with a file system of type hfs, it's not possible.
-# NTFS requires 128K before a hole appears in a sparse file.
-t=sparse.$$
-dd bs=1 seek=128K of=$t < /dev/null 2> /dev/null
-set x `du -sk $t`
-kb_size=$2
-rm -f $t
-if test $kb_size -ge 128; then
- skip_test_ 'this file system does not support sparse files'
-fi
esac
}
+# Does the current (working-dir) file system support sparse files?
+require_sparse_support_()
+{
+ test $# = 0 || framework_failure
+ # Test whether we can create a sparse file.
+ # For example, on Darwin6.5 with a file system of type hfs, it's not possible.
+ # NTFS requires 128K before a hole appears in a sparse file.
+ t=sparse.$$
+ dd bs=1 seek=128K of=$t < /dev/null 2> /dev/null
+ set x `du -sk $t`
+ kb_size=$2
+ rm -f $t
+ if test $kb_size -ge 128; then
+ skip_test_ 'this file system does not support sparse files'
+ fi
+}
+
mkfifo_or_skip_()
{
test $# = 1 || framework_failure