apfs/apfstests
0
0
Fork 0
mirror of https://github.com/linux-apfs/apfstests.git synced 2026-05-01 15:01:44 -07:00
Code Issues Packages Projects Releases Wiki Activity

Big filesystem testing update - skip the repair check for the moment, takes too long; allow ag-wipe to keep high bits in an AG free as well

Browse Source
This commit is contained in:
fsgqa
2003-09-12 00:38:26 +00:00
parent 6f7119b648
commit 0c5a70757a
3 changed files with 108 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files
common.rc
+10 -5
View File
@@ -127,8 +127,10 @@ _scratch_mkfs_xfs()
SCRATCH_OPTIONS="$SCRATCH_OPTIONS -llogdev=$SCRATCH_LOGDEV"
/sbin/mkfs.xfs -f $SCRATCH_OPTIONS $MKFS_OPTIONS $* $SCRATCH_DEV
mkfs_status=$?
[ "$USE_BIG_LOOPFS" = yes ] && \
./tools/ag-wipe -c $SCRATCH_DEV >/dev/null
if [ "$USE_BIG_LOOPFS" = yes ]; then
[ -z "$RETAIN_AG_BYTES" ] && RETAIN_AG_BYTES=0
./tools/ag-wipe -q -r $RETAIN_AG_BYTES $SCRATCH_DEV
fi
return $mkfs_status
}
@@ -595,8 +597,11 @@ _check_filesystem()
ok=0
fi
if ! /sbin/xfs_repair -n $device $extra_log_options >$tmp.fs_check 2>&1
# repair doesn't scale massively at this stage, optionally skip it for now
[ "$USE_BIG_LOOPFS" = yes ] || \
/sbin/xfs_repair -n $device $extra_log_options >$tmp.fs_check 2>&1
if [ $? -ne 0 ]
then
echo "_check_fs: filesystem on $device is inconsistent (r) (see $seq.full)"
@@ -608,7 +613,7 @@ _check_filesystem()
ok=0
fi
rm -f $tmp.fs_check
if [ $ok -eq 0 ]
then
echo "*** mount output ***" >>$seq.full
tools/ag-wipe
+94 -36
View File
@@ -44,29 +44,30 @@ use Getopt::Std;
# the block addresses are large).
#
my @sbprint = ( '"print fdblocks"', '"print agcount"' );
my @agfprint = ( '"print freeblks"', '"print flcount"' );
my @agfcommands = ( '"write freeblks 0"',
'"write longest 0"', '"write flcount 0"',
'"write bnolevel 1"', '"write cntlevel 1"',
'"write flfirst 0"', '"write fllast 0"' );
my @bnoprint = ( '"addr bnoroot"', '"print numrecs"' );
my @bnocommands = ( '"addr bnoroot"', '"write numrecs 0"',
'"write leftsib -1"', '"write rightsib -1"' );
my @cntprint = ( '"addr cntroot"', '"print numrecs"' );
my @cntcommands = ( '"addr cntroot"', '"write numrecs 0"',
'"write leftsib -1"', '"write rightsib -1"' );
my %opt;
getopts('cf:l:v', \%opt);
die "Usage: ag-wipe [-f firstAG] [-l lastAG] [-cv] device\n" unless (@ARGV == 1);
getopts('cf:l:qr:v', \%opt);
die "Usage: $0 [-f AG] [-l AG] [-r bytes] [-cqv] device\n" unless (@ARGV == 1);
my $device = shift @ARGV;
die "$device: no such file\n" unless (-e $device);
my $clearall = defined($opt{'c'}) ? 1 : 0;
my $retain = defined($opt{'r'}) ? $opt{'r'} : -1;
my $quiet = defined($opt{'q'}) ? 1 : 0;
my $verbose = defined($opt{'v'}) ? 1 : 0;
my $nagfirst = defined($opt{'f'}) ? $opt{'f'} : 0;
my $naglast = defined($opt{'l'}) ? $opt{'l'} : 0;
#
# "clearall" means clear everything barring the final AG.
# "retain" means clearall and retain a specified amount in the
# second-from-last AG as well (value is the number of bytes).
# [NB: retain with a value of zero is now the same as clearall].
#
if ($retain >= 0) {
$clearall = 1;
}
sub xfs_db {
my $xfsdb = "xfs_db -x $device";
my %hash;
@@ -86,57 +87,114 @@ sub xfs_db {
return %hash;
}
#
# Stage 1: Get control information from the superblock
#
my @sbprint = ( '"print fdblocks"', '"print agcount"', '"print blocksize"' );
my @agffree = ( '"print freeblks"' );
my %sb = xfs_db 'sb', @sbprint;
print "=== Initially ", $sb{'fdblocks'}, " blocks free across ",
$sb{'agcount'}, " AGs\n";
$sb{'agcount'}, " AGs\n" unless $quiet;
if ($clearall && ($nagfirst || $naglast)) {
print STDERR " o Clearall specified with first/last AG, quiting\n";
print STDERR " o Clearall/retain specified with first/last AG\n";
exit(1);
}
if ($nagfirst >= $sb{'agcount'}) {
print " o First AG number is too large, quiting\n";
print STDERR " o First AG number is too large\n";
exit(1);
}
if ($naglast >= $sb{'agcount'}) {
print " o Last AG number is too large, quiting\n";
print STDERR " o Last AG number is too large\n";
exit(1);
}
if ($naglast - $nagfirst < 0) {
print " o No AGs to clear, quiting\n";
print STDERR " o No AGs to clear\n";
exit(1);
}
if ($clearall) {
$naglast = $sb{'agcount'} - 2;
if ($retain > 0) {
my %check;
$naglast--;
$retain /= $sb{'blocksize'}; # convert to fsblocks
%check = xfs_db "'agf $naglast'", @agffree;
if ($check{'freeblks'} < $retain) {
print STDERR " o Insufficient space to retain\n";
exit(1);
}
}
}
#
# Stage 2: Wipe out all completely masked allocation groups.
#
my @agfprint = ( '"print freeblks"', '"print flcount"' );
my @agfcommands = ( '"write freeblks 0"',
'"write longest 0"', '"write flcount 0"',
'"write bnolevel 1"', '"write cntlevel 1"',
'"write flfirst 0"', '"write fllast 0"' );
my @bnoprint = ( '"addr bnoroot"', '"print numrecs"' );
my @bnocommands = ( '"addr bnoroot"', '"write numrecs 0"',
'"write leftsib -1"', '"write rightsib -1"' );
my @cntprint = ( '"addr cntroot"', '"print numrecs"' );
my @cntcommands = ( '"addr cntroot"', '"write numrecs 0"',
'"write leftsib -1"', '"write rightsib -1"' );
print "=== Wiping ", $naglast - $nagfirst + 1,
" AGs starting from AG #", $nagfirst, "\n";
" AGs starting from AG #", $nagfirst, "\n" unless $quiet;
my $ag = $nagfirst;
while ($ag <= $naglast) {
my %btree;
my %agf;
print " o AG#", $ag, " AGF fields\n" unless $quiet;
print " o AG#", $ag, " AGF fields\n";
%agf = xfs_db "'agf $ag'", @agfprint;
my %agf = xfs_db "'agf $ag'", @agfprint;
xfs_db "'agf $ag'", @agfcommands;
my $blockcnt = $agf{'freeblks'} + $agf{'flcount'};
$sb{'fdblocks'} -= $blockcnt;
print " cleared ", $blockcnt, " blocks from AG#", $ag, "\n";
print " cleared ", $blockcnt, " blocks from AG#", $ag, "\n"
unless $quiet;
%btree = xfs_db "'agf $ag'", @bnoprint;
xfs_db "'agf $ag'", @bnocommands;
print " cleared ", $btree{'numrecs'}, " BNO btree records in AG#",
$ag, "\n";
my %btree = xfs_db "'agf $ag'", @bnoprint;
xfs_db "'agf $ag'", @bnocommands, "'agf $ag'", @cntcommands;
print " cleared ", $btree{'numrecs'}, " BNO/CNT btree recs in AG#",
$ag, "\n" unless $quiet;
%btree = xfs_db "'agf $ag'", @cntprint;
xfs_db "'agf $ag'", @cntcommands;
print " cleared ", $btree{'numrecs'}, " CNT btree in AG#",
$ag, "\n";
$ag++;
}
print "=== Updating final freespace count, ", $sb{'fdblocks'}, " blocks\n";
#
# Stage 3: Wipe out any partially masked allocation group.
#
if ($retain > 0) {
print " o AG#", $ag, " AGF fields (partial)\n" unless $quiet;
my %ragf = xfs_db "'agf $ag'", '"print freeblks"',
'"addr bnoroot"', '"print recs[1].startblock"';
my $maskblks = $ragf{'freeblks'} - $retain;
my $newstart = $ragf{'recs[1].startblock'} + $maskblks;
xfs_db "'agf $ag'",
"'write freeblks $retain'", "'write longest $retain'",
"'agf $ag'", '"addr bnoroot"',
"'write recs[1].startblock $newstart'",
"'write recs[1].blockcount $retain'",
"'agf $ag'", '"addr cntroot"',
"'write recs[1].startblock $newstart'",
"'write recs[1].blockcount $retain'";
$sb{'fdblocks'} -= $maskblks;
print " cleared ", $maskblks, " blocks from AG#", $ag, "\n"
unless $quiet;
}
print "=== Updating final freespace count, ", $sb{'fdblocks'}, " blocks\n"
unless $quiet;
xfs_db "'sb 0'", "'write fdblocks $sb{'fdblocks'}'"
tools/auto-qa
+4 -2
View File
@@ -217,8 +217,10 @@ _test_mkfs_xfs()
TEST_OPTIONS="$TEST_OPTIONS -llogdev=$TEST_LOGDEV"
_sudo /sbin/mkfs.xfs -f $TEST_OPTIONS $MKFS_OPTIONS $* $TEST_DEV
mkfs_status=$?
[ "$USE_BIG_LOOPFS" = yes ] && \
_sudo $QADIR/tools/ag-wipe -c $TEST_DEV >/dev/null
if [ "$USE_BIG_LOOPFS" = yes ]; then
[ -z "$RETAIN_AG_BYTES" ] && RETAIN_AG_BYTES=0
_sudo $QADIR/tools/ag-wipe -q -r $RETAIN_AG_BYTES $TEST_DEV
fi
return $mkfs_status
}