2 # FSQA Test No. btrfs/004
4 # Run fsstress to create a reasonably strange file system, make a
5 # snapshot and run more fsstress. Then select some files from that fs,
6 # run filefrag to get the extent mapping and follow the backrefs.
7 # We check to end up back at the original file with the correct offset.
9 #-----------------------------------------------------------------------
10 # Copyright (C) 2011 STRATO. All rights reserved.
12 # This program is free software; you can redistribute it and/or
13 # modify it under the terms of the GNU General Public License as
14 # published by the Free Software Foundation.
16 # This program is distributed in the hope that it would be useful,
17 # but WITHOUT ANY WARRANTY; without even the implied warranty of
18 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 # GNU General Public License for more details.
21 # You should have received a copy of the GNU General Public License
22 # along with this program; if not, write the Free Software Foundation,
23 # Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
25 #-----------------------------------------------------------------------
29 seqres=$RESULT_DIR/$seq
30 echo "QA output created by $seq"
43 trap "_cleanup; exit \$status" 0 1 2 3 15
45 # get standard environment, filters and checks
49 # real QA test starts here
54 _require_no_large_scratch_dev
55 _require_btrfs inspect-internal
56 _require_command "/usr/sbin/filefrag" filefrag
61 if (/blocks? of (\d+) bytes/) {
65 ($ext, $logical, $physical, $length) =
66 (/^\s*(\d+):\s+(\d+)..\s+\d+:\s+(\d+)..\s+\d+:\s+(\d+):/)
68 ($flags) = /.*:\s*(\S*)$/;
69 print $physical * $blocksize, "#",
70 $length * $blocksize, "#",
71 $logical * $blocksize, "#",
74 # this makes filefrag output script readable by using a perl helper.
75 # output is one extent per line, with three numbers separated by '#'
76 # the numbers are: physical, length, logical (all in bytes)
77 # sample output: "1234#10#5678" -> physical 1234, length 10, logical 5678
80 tee -a $seqres.full | $PERL_PROG -ne "$FILEFRAG_FILTER"
86 echo "# $cmd" >> $seqres.full
87 out=`$cmd | _filter_extents`
88 if [ -z "$out" ]; then
91 echo "after filter: $out" >> $seqres.full
96 # use a logical address and walk the backrefs back to the inode.
97 # compare to the expected result.
98 # returns 0 on success, 1 on error (with output made)
106 cmd="$BTRFS_UTIL_PROG inspect-internal logical-resolve -P $addr $mp"
107 echo "# $cmd" >> $seqres.full
109 echo "$out" >> $seqres.full
110 grep_expr="inode $expect_inum offset $expect_addr root"
111 echo "$out" | grep "^$grep_expr 5$" >/dev/null
113 if [ $ret -eq 0 ]; then
114 # look for a root number that is not 5
115 echo "$out" | grep "^$grep_expr \([0-46-9][0-9]*\|5[0-9]\+\)$" \
119 if [ $ret -eq 0 ]; then
122 echo "unexpected output from"
124 echo "expected inum: $expect_inum, expected address: $expect_addr,"\
130 # use an inode number and walk the backrefs back to the file name.
131 # compare to the expected result.
132 # returns 0 on success, 1 on error (with output made)
133 _btrfs_inspect_inum()
138 mp="$SCRATCH_MNT/$snap_name"
139 cmd="$BTRFS_UTIL_PROG inspect-internal inode-resolve $inum $mp"
140 echo "# $cmd" >> $seqres.full
142 echo "$out" >> $seqres.full
144 cnt=`echo "$out" | grep "$grep_expr" | wc -l`
145 if [ $cnt -ge "1" ]; then
148 echo "unexpected output from"
150 echo "expected path: $file, got:"
155 _btrfs_inspect_check()
162 cmd="stat -c %i $file"
163 echo "# $cmd" >> $seqres.full
165 echo "$inum" >> $seqres.full
166 _btrfs_inspect_addr $SCRATCH_MNT $physical $logical $inum $file
168 if [ $ret -eq 0 ]; then
169 _btrfs_inspect_inum $file $inum $snap_name
183 umount $SCRATCH_DEV >/dev/null 2>&1
184 echo "*** mkfs -dsize=$fsz" >>$seqres.full
185 echo "" >>$seqres.full
186 _scratch_mkfs_sized $fsz >>$seqres.full 2>&1 \
187 || _fail "size=$fsz mkfs failed"
188 run_check _scratch_mount
189 # -w ensures that the only ops are ones which cause write I/O
190 run_check $FSSTRESS_PROG -d $SCRATCH_MNT -w -p $procs -n 2000 \
193 _run_btrfs_util_prog subvolume snapshot $SCRATCH_MNT \
194 $SCRATCH_MNT/$snap_name
196 run_check umount $SCRATCH_DEV >/dev/null 2>&1
197 run_check _scratch_mount "-o compress=lzo"
199 # make some noise but ensure we're not touching existing data
201 run_check $FSSTRESS_PROG -d $SCRATCH_MNT -p $procs -n 4000 \
202 -z -f chown=3 -f link=1 -f mkdir=2 -f mknod=2 \
203 -f rename=2 -f setxattr=1 -f symlink=2
205 clean_dir="$SCRATCH_MNT/next"
207 # now make more files to get a higher tree
208 run_check $FSSTRESS_PROG -d $clean_dir -w -p $procs -n 2000 \
210 run_check umount $SCRATCH_DEV >/dev/null 2>&1
211 run_check _scratch_mount "-o atime"
213 if [ $do_bg_noise -ne 0 ]; then
214 # make background noise while backrefs are being walked
215 while [ -f "$tmp.running" ]; do
216 echo background fsstress >>$seqres.full
217 run_check $FSSTRESS_PROG -d $SCRATCH_MNT/bgnoise -n 999
218 echo background rm >>$seqres.full
219 rm -rf $SCRATCH_MNT/bgnoise/
221 noise_pid=`jobs -p %1`
222 echo "background noise by $noise_pid" >>$seqres.full
227 dir="$SCRATCH_MNT/$snap_name/"
228 for file in `find $dir -name f\* -size +0 | sort -R`; do
229 extents=`_check_file_extents $file`
231 if [ $ret -ne 0 ]; then
234 for i in $extents; do
235 physical=`echo $i | cut -d '#' -f 1`
236 length=`echo $i | cut -d '#' -f 2`
237 logical=`echo $i | cut -d '#' -f 3`
238 flags=`echo $i | cut -d '#' -f 4`
239 # Skip inline extents, otherwise btrfs inspect-internal
240 # logical-resolve will fail (with errno ENOENT), as it
241 # can't find an extent with a start address of 0 in the
243 if [ $physical -eq 0 ]; then
244 echo "$flags" | grep -E '(^|,)inline(,|$)' \
247 if [ $ret -ne 0 ]; then
248 echo "Unexpected physical address 0 for non-inline extent, file $file, flags $flags"
251 _btrfs_inspect_check $file $physical $length \
255 if [ $ret -ne 0 ]; then
256 errcnt=`expr $errcnt + 1`
260 if [ $cnt -ge $nfiles ]; then
265 if [ $errcnt -gt 0 ]; then
266 _fail "test failed: $errcnt error(s)"
270 echo "*** test backref walking"
273 filesize=`expr 2000 \* 1024 \* 1024`
280 workout $filesize $nfiles $numprocs $snap_name $do_bg_noise