mirror of
https://github.com/linux-apfs/apfstests.git
synced 2026-05-01 15:01:44 -07:00
Felix Blyakher
491d467f3c
Signed-off-by: Felix Blyakher <felixb@sgi.com> Reviewed-by: Eric Sandeen <sandeen@sandeen.net> Reviewed-by: Christoph Hellwig <hch@lst.de> Signed-off-by: Felix Blyakher <felixb@sgi.com>
116 lines
2.6 KiB
Perl
Executable File
116 lines
2.6 KiB
Perl
Executable File
#!/usr/sbin/perl
|
|
#
|
|
# Copyright (c) 2001 Silicon Graphics, Inc. All Rights Reserved.
|
|
#
|
|
# This program is free software; you can redistribute it and/or
|
|
# modify it under the terms of the GNU General Public License as
|
|
# published by the Free Software Foundation.
|
|
#
|
|
# This program is distributed in the hope that it would be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program; if not, write the Free Software Foundation,
|
|
# Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
|
|
#
|
|
|
|
sub setup()
|
|
{
|
|
$PATH="$PATH:/usr/local/bin/ptools:/sbin:/usr/sbin";
|
|
$DISPLAY="clouds:0";
|
|
|
|
if ("$HOST" eq "bruce") {
|
|
$TOOLS="/home/dxm/isms/slinx-xfs/cmd/xfs/tools";
|
|
$SCRATCH_DEV="/dev/sdf1";
|
|
$SCRATCH_MNT="/mnt/xfs3";
|
|
$MKFS="/sbin/mkfs -t xfs -f";
|
|
$SUDO="/home/dxm/su -c";
|
|
$MOUNT="/bin/mount -t xfs";
|
|
$UMOUNT="/bin/umount";
|
|
$MKFS_EXTRA="-f";
|
|
} elsif ("$HOST" eq "whack") {
|
|
$TOOLS="/hosts/snort/build1/people/dxm/isms/slinx-xfs/cmd/xfs/tools";
|
|
$SCRATCH_DEV="/dev/dsk/20000080e5114459/lun2s0/c2p1";
|
|
$SCRATCH_MNT="/lun2";
|
|
$MKFS="/sbin/mkfs";
|
|
$SUDO="su root -c";
|
|
$MOUNT="/sbin/mount -t xfs";
|
|
$UMOUNT="/sbin/umount";
|
|
$MKFS_EXTRA="";
|
|
} else {
|
|
die "unconfigured host \"$HOST\"\n"
|
|
}
|
|
}
|
|
|
|
sub run_no_check(@)
|
|
{
|
|
system(@_);
|
|
}
|
|
|
|
sub run(@)
|
|
{
|
|
system(@_) == 0
|
|
|| die "ERROR \"" . join(" ",@_) . "\" returned error\n";
|
|
}
|
|
|
|
sub run_expect_fail(@)
|
|
{
|
|
system(@_) == 0
|
|
&& die "ERROR \"" . join(" ",@_) . "\" returned non-error\n";
|
|
}
|
|
|
|
sub umount_no_check()
|
|
{
|
|
run_no_check("umount $SCRATCH_DEV");
|
|
}
|
|
|
|
sub umount()
|
|
{
|
|
run("umount $SCRATCH_DEV");
|
|
}
|
|
|
|
sub mount($)
|
|
{
|
|
my ($ops)=@_;
|
|
run("mount -t xfs $ops $SCRATCH_DEV $SCRATCH_MNT");
|
|
}
|
|
|
|
chomp($HOST=`hostname -s`);
|
|
|
|
die "usage: $ARGV0 <operation> [parameters]\n" unless (scalar(@ARGV));
|
|
print "*** $HOST: Interop started\n";
|
|
print " *** ", join(" ", @ARGV), "\n";
|
|
|
|
setup();
|
|
|
|
$op=shift(@ARGV);
|
|
|
|
umount_no_check();
|
|
|
|
if ($op eq "init") {
|
|
|
|
run("mkfs -t xfs $MKFS_EXTRA $SCRATCH_DEV");
|
|
|
|
} elsif ($op eq "test") {
|
|
|
|
run("xfs_repair -n $SCRATCH_DEV");
|
|
|
|
} elsif ($op eq "easy") {
|
|
|
|
mount("");
|
|
system("mount");
|
|
mkdir("$SCRATCH_MNT/fish",0777);
|
|
|
|
} elsif ($op eq "check") {
|
|
|
|
mount("-o ro");
|
|
system("cd $SCRATCH_MNT ; $TOOLS/fs-walk .");
|
|
|
|
} else {
|
|
die "unknown operation \"$op\"\n";
|
|
}
|
|
|
|
umount_no_check();
|