1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
# This file is sourced by init.sh, *before* its initialization.
# This goes hand in hand with the "exec 9>&2;" in tests/Makefile.am's
# TESTS_ENVIRONMENT definition.
stderr_fileno_=9
# For repeatability, reset the environment to known value.
LANG=C
LC_ALL=C
TZ=UTC
export LANG LC_ALL TZ
export PARTED_SUPPRESS_FILE_SYSTEM_MANIPULATION_WARNING=1
# Protect ourselves from common misconfiguration to export
# CDPATH into the environment
unset CDPATH
# Suppress readline initialization garbage.
unset TERM
sector_size_=${PARTED_SECTOR_SIZE:-512}
require_512_byte_sector_size_()
{
test $sector_size_ = 512 || skip_ 'FS test with sector size != 512'
}
# Having an unsearchable directory in PATH causes execve to fail with EACCES
# when applied to an unresolvable program name, contrary to the desired ENOENT.
# Avoid the problem by rewriting PATH to exclude unsearchable directories.
# Also, if PATH lacks /sbin and/or /usr/sbin, append it/them.
sanitize_path_()
{
# FIXME: remove double quotes around $IFS when all tests use init.sh.
# They constitute a work-around for a bug in FreeBSD 8.1's /bin/sh.
local saved_IFS="$IFS"
IFS=:
set -- $PATH
IFS=$saved_IFS
local d d1
local colon=
local new_path=
for d in "$@"; do
test -z "$d" && d1=. || d1=$d
if ls -d "$d1/." > /dev/null 2>&1; then
new_path="$new_path$colon$d"
colon=':'
fi
done
for d in /sbin /usr/sbin ; do
case ":$new_path:" in
*:$d:*) ;;
*) new_path="$new_path:$d" ;;
esac
done
PATH=$new_path
export PATH
}
require_udevadm_settle_()
{
udevadm --help > /dev/null \
|| skip_ 'udevadm command is required for this test'
}
require_perl_digest_crc_()
{
local ok=0
local t
t=$(perl -le 'use Digest::CRC qw(crc32); print crc32("123")') \
&& test $t = 2286445522 && ok=1
test $ok = 1 \
|| skip_ "this test requires Perl's Digest::CRC module"
}
# We need two cleanup functions. One, cleanup_final_, is sometimes
# used (transparently) via t-local.sh's modprobe/rmmod code.
# The other is used e.g., to unmount.
cleanup_final_() { :; }
cleanup_fn_() { :; }
cleanup_() { cleanup_fn_; cleanup_final_; }
# Use this for a test that requires an actual hardware device, e.g., a real
# disk, a USB key, or a CD-RW. The envvars $DEVICE_TO_ERASE and
# $DEVICE_TO_ERASE_SIZE must be set properly. Otherwise, skip the test.
require_erasable_()
{
# Skip quietly if both envvars are not specified.
test -n "$DEVICE_TO_ERASE" && test -n "$DEVICE_TO_ERASE_SIZE" \
|| skip_ 'This test requires an erasable device and you have not properly' \
'set the $DEVICE_TO_ERASE and $DEVICE_TO_ERASE_SIZE envvars.'
# Since testing a drive with parted destroys all data on that drive,
# we have rather draconian safety requirements that should help avoid
# accidents. If $dev_ is the name of the device,
# - running "parted -s $dev_ print" must succeed, and
# - its output must include a line matching /^Disk $dev_: $DEV_SIZE$/
# - Neither $dev_ nor any $dev_[0-9]* may be mounted.
dev_=$DEVICE_TO_ERASE
sz=$DEVICE_TO_ERASE_SIZE
parted_output=$(parted -s $dev_ print) || fail_ "no such device: $dev_"
parted -s $dev_ print|grep "^Disk $dev_: $sz$" \
> /dev/null || fail_ "actual device size is not $sz"
# Try to see if $dev_ or any of its partitions is mounted.
# This is not reliable. FIXME: find a better way.
# Maybe expose parted's own test for whether a disk is in use.
# The following assume that $dev_ is canonicalized, e.g., that $dev_
# contains no "//" or "/./" components.
# Prefer df --local, if it works, so we don't waste time
# enumerating lots of automounted file systems.
( df --local / > /dev/null 2>&1 ) && df='df --local' || df=df
$df | grep "^$dev_" && fail_ "$dev_ is already mounted"
$df | grep "^$dev_[0-9]" && fail_ "a partition of $dev_ is already mounted"
}
# At least Fedora 16 (kernel 3.1.6-1.fc16.x86_64) fails this test.
require_partitionable_loop_device_()
{
local f=/sys/devices/virtual/block/$(basename $1)/ext_range
case $(cat "$f") in
''|0|1) skip_ your system is not configured to partition loop devices;;
esac
}
sanitize_path_
. "$abs_top_srcdir/tests/t-lib-helpers.sh"
. "$abs_top_srcdir/tests/t-local.sh"
|
