common: add leading underscore to get_block_size
[xfstests-dev.git] / tests / xfs / 328
1 #! /bin/bash
2 # FS QA Test No. 328
3 #
4 # See how well xfs_fsr handles "defragging" a file with a hojillion extents.
5 #
6 #-----------------------------------------------------------------------
7 # Copyright (c) 2016, Oracle and/or its affiliates.  All Rights Reserved.
8 #
9 # This program is free software; you can redistribute it and/or
10 # modify it under the terms of the GNU General Public License as
11 # published by the Free Software Foundation.
12 #
13 # This program is distributed in the hope that it would be useful,
14 # but WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16 # GNU General Public License for more details.
17 #
18 # You should have received a copy of the GNU General Public License
19 # along with this program; if not, write the Free Software Foundation,
20 # Inc.,  51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
21 #-----------------------------------------------------------------------
22
23 seq=`basename "$0"`
24 seqres="$RESULT_DIR/$seq"
25 echo "QA output created by $seq"
26
27 here=`pwd`
28 tmp=/tmp/$$
29 status=1    # failure is the default!
30 trap "_cleanup; exit \$status" 0 1 2 3 15
31
32 _cleanup()
33 {
34         cd /
35         rm -rf "$tmp".*
36 }
37
38 # get standard environment, filters and checks
39 . ./common/rc
40 . ./common/filter
41 . ./common/attr
42 . ./common/reflink
43
44 # real QA test starts here
45 _supported_os Linux
46 _supported_fs xfs
47 _require_scratch_reflink
48 _require_cp_reflink
49 _require_test_program "punch-alternating"
50 _require_command "$XFS_FSR_PROG" "xfs_fsr"
51
52 rm -f "$seqres.full"
53
54 echo "Format and mount"
55 _scratch_mkfs > "$seqres.full" 2>&1
56 _scratch_mount >> "$seqres.full" 2>&1
57
58 testdir="$SCRATCH_MNT/test-$seq"
59 mkdir "$testdir"
60
61 # Setup for 16000 blocks, but we'll accept stress testing down to
62 # 2^10 blocks... that should be plenty for anyone.
63 fnr=$((12 + LOAD_FACTOR))
64 free_blocks=$(stat -f -c '%a' "$testdir")
65 blksz=$(_get_block_size $testdir)
66 space_avail=$((free_blocks * blksz))
67 calc_space()
68 {
69         blocks_needed=$(( 2 ** (fnr + 1) ))
70         space_needed=$((blocks_needed * blksz * 5 / 4))
71 }
72 calc_space
73 while test $space_needed -gt $space_avail; do
74         fnr=$((fnr - 1))
75         calc_space
76 done
77 test $fnr -lt 10 && _notrun "Insufficient space for stress test; would only create $blocks_needed extents."
78 bytes=$((blocks_needed * blksz))
79
80 echo "Create a many-block file"
81 echo "creating $blocks_needed blocks..." >> "$seqres.full"
82 _pwrite_byte 0x62 0 $blksz $testdir/file0 >> $seqres.full
83 $XFS_IO_PROG -f -c "pwrite -S 0x61 -b 4194304 0 $bytes" "$testdir/file1" >> "$seqres.full"
84 echo "punching..." >> "$seqres.full"
85 "$here/src/punch-alternating" "$testdir/file1" >> "$seqres.full"
86 seq 0 2 $((2 ** (fnr + 1) )) | while read lblk; do
87         _reflink_range $testdir/file0 0 $testdir/file1 $((lblk * blksz)) $blksz >> $seqres.full
88 done
89 echo "...done" >> "$seqres.full"
90 _scratch_cycle_mount
91
92 echo "Reflink the big file"
93 echo "reflinking $((blocks_needed / 2)) blocks, $((bytes / 2)) bytes" >> "$seqres.full"
94 _reflink_range "$testdir/file1" 0 "$testdir/file2" 0 $bytes >> "$seqres.full"
95
96 echo "Defrag the big file"
97 old_nextents=$(_count_extents $testdir/file1)
98 $XFS_FSR_PROG -v -d $testdir/file1 >> $seqres.full
99 new_nextents=$(_count_extents $testdir/file1)
100
101 echo "Check extent count"
102 $XFS_IO_PROG -c 'stat -v' $testdir/file1 >> $seqres.full
103 $XFS_IO_PROG -c 'stat -v' $testdir/file2 >> $seqres.full
104 echo "extents: $old_nextents -> $new_nextents" >> $seqres.full
105 test $old_nextents -gt $new_nextents || echo "FAIL: $old_nextents -> $new_nextents"
106
107 # success, all done
108 status=0
109 exit