#! /bin/bash
# SPDX-License-Identifier: GPL-2.0
# Copyright (c) 2010 Dave Chinner.  All Rights Reserved.
#
# FS QA Test No. 227
#
# xfs_fsr QA tests
# run xfs_fsr over the test filesystem to give it a wide and varied set of
# inodes to try to defragment. This is effectively a crash/assert failure
# test looking for corruption induced by the kernel inadequately checking
# the indoes to be swapped. It also is good for validating fsr's attribute fork
# generation code.
#
. ./common/preamble
_begin_fstest auto fsr

# Import common functions.
. ./common/filter

_require_scratch

[ "$XFS_FSR_PROG" = "" ] && _notrun "xfs_fsr not found"

# create freespace holes of 1-3 blocks in length
#
# This is done to ensure that defragmented files have roughly 1/3 the
# number of extents they started with. This will ensure we get
# transistions from btree format (say 15 extents) to extent format
# (say 5 extents) and lots of variations around that dependent on the
# number of attributes in the files being defragmented.
#
# We have to make sure there are enough free inodes for the test to
# pass without needing to allocate new clusters during the test.
# With such fragemented free space, that will fail.
#
fragment_freespace()
{
	_file="$SCRATCH_MNT/not_free"
	_dir="$SCRATCH_MNT/saved"

	# allocate inode space
	mkdir -p $_dir
	for i in `seq 0 1 1000`; do
		echo -n > $_file.$i
	done
	for i in `seq 0 63 1000`; do
		mv $_file.$i $_dir
	done
	for i in `seq 0 1 1000`; do
		rm -f $_file.$i
	done

	$XFS_IO_PROG -fs -c "resvsp 0 40000k" $_file > /dev/null 2>&1

	for i in `seq 0 8 40000`; do
		$XFS_IO_PROG -f -c "unresvsp ${i}k 4k" $_file \
					> /dev/null 2>&1
	done
	for i in `seq 0 28 40000`; do
		$XFS_IO_PROG -f -c "unresvsp ${i}k 4k" $_file \
					> /dev/null 2>&1
	done
	_scratch_sync

	# and now use up all the remaining extents larger than 3 blocks
	$XFS_IO_PROG -fs -c "resvsp 0 4m" $_file.large > /dev/null 2>&1
}

create_attrs()
{
	( echo "# file: $2"
	for i in `seq 0 1 $1`; do
		echo "user.$foo=\"0xbabe\""
	done ) > $tmp.$1.attrs
	$SETFATTR_PROG --restore=$tmp.$1.attrs $2
}

create_data()
{
	local blocks=$1
	local cmd_str

	for off in `seq $blocks -1 0`; do
		cmd_str="-c \"resvsp $((off * 4096)) 4096\" $cmd_str"
	done
	$XFS_IO_PROG -f -c "truncate $((($blocks + 1) * 4096))" \
			$cmd_str $2 >> seqres.full 2>&1
}

# create the designated file with a certain number of attributes and a certain
# number of data extents. Reverse order synchronous data writes are used to
# create fragmented files, though with the way the filesystem freespace is
# fragmented, this is probably not necessary. Create the attributes first so
# that they cause the initial fork offset pressure to move it about.
#
create_target_attr_first()
{
	nattrs=$1
	file_blocks=$2
	target=$3

	rm -f $target
	touch $target
	create_attrs $nattrs $target
	create_data $file_blocks $target
}

# Same as create_target_attr_first, but this time put the attributes on after
# the data extents have been created. This puts different pressure on the
# inode fork offset, so should exercise the kernel code differently and give us
# a different pattern of fork offsets to work with compared to creating the
# attrs first.
#
create_target_attr_last()
{
	nattrs=$1
	file_blocks=$2
	target=$3

	rm -f $target
	touch $target
	create_data $file_blocks $target
	create_attrs $nattrs $target
}

do_fsr()
{
	local n=$1
	local i=$2
	local j

	for j in `seq 5 1 20`; do
		create_target_attr_first $i $j $targ.$i.$j >> $seqres.full 2>&1
	done
	xfs_bmap -vp $targ.$i.* >> $seqres.full 2>&1
	FSRXFSTEST=true xfs_fsr -d -v -C $n $targ.$i.* >> $seqres.full 2>&1
	xfs_bmap -vp $targ.$i.* >> $seqres.full 2>&1
	for j in `seq 5 1 20`; do
		create_target_attr_last $i $j $targ.$i.$j >> $seqres.full 2>&1
	done
	xfs_bmap -vp $targ.$i.* >> $seqres.full 2>&1
	FSRXFSTEST=true xfs_fsr -d -v -C $n $targ.$i.* >> $seqres.full 2>&1
	xfs_bmap -vp $targ.$i.* >> $seqres.full 2>&1
}


# use a small filesystem so we can control freespace easily
_scratch_mkfs_sized $((50 * 1024 * 1024)) >> $seqres.full 2>&1
_scratch_mount
fragment_freespace

# unmount and remount to reset all allocator indexes
_scratch_unmount
_scratch_mount

# create a range of source files, then fsr them to a known size
#
# This assumes 256 byte inodes.
#
# n = number of target fragments for xfs_fsr
#	- only a guideline, but forces multiple fragments via sync writes
#	- start at 4 as that typically covers all extent format situations
#	- end at 12 as that is beyond the maximum that canbe fit in extent
#	  format
# i = number of 2 byte attributes on the file
#	- it takes 6 attributes to change the fork offset from the start value
#	  of 120 bytes to 112 bytes, so we start at 5.
#	- 15 is enough to push to btree format, so we stop there.
# j = number of data extents on the file
#	- start in extent format, but we also want btree format as well, so
#	  start at 5 so that the number of attributes determines the starting
#	  format.
#	- need enough extents that if they are all 3 blocks in length the final
#	  format will be dependent on the number of attributes on the inode. 20
#	  initial single block extents gives us 6-8 extents after defrag which
#	  puts us right on the threshold of what the extent format can hold.

targ=$SCRATCH_MNT/fsr_test_file.$$
for n in `seq 4 1 12`; do
	echo "*** n == $n ***" >> $seqres.full
	for i in `seq 5 1 15`; do
		do_fsr $n $i &
	done
	wait
done

_scratch_unmount
echo "--- silence is golden ---"
status=0 ; exit
