btrfs: test btrfs filesystem usage command on missing seed device
[xfstests-dev.git] / tools / interop
1 #!/usr/sbin/perl
2 # SPDX-License-Identifier: GPL-2.0
3 # Copyright (c) 2001 Silicon Graphics, Inc.  All Rights Reserved.
4 #
5 sub setup()
6 {
7     $PATH="$PATH:/usr/local/bin/ptools:/sbin:/usr/sbin";
8     $DISPLAY="clouds:0";
9     
10     if ("$HOST" eq "bruce") {
11         $TOOLS="/home/dxm/isms/slinx-xfs/cmd/xfs/tools";
12         $SCRATCH_DEV="/dev/sdf1";
13         $SCRATCH_MNT="/mnt/xfs3";
14         $MKFS="/sbin/mkfs -t xfs -f";
15         $SUDO="/home/dxm/su -c";
16         $MOUNT="/bin/mount -t xfs";
17         $UMOUNT="/bin/umount";
18         $MKFS_EXTRA="-f";
19     } elsif ("$HOST" eq "whack") {
20         $TOOLS="/hosts/snort/build1/people/dxm/isms/slinx-xfs/cmd/xfs/tools";
21         $SCRATCH_DEV="/dev/dsk/20000080e5114459/lun2s0/c2p1";
22         $SCRATCH_MNT="/lun2";
23         $MKFS="/sbin/mkfs";
24         $SUDO="su root -c";
25         $MOUNT="/sbin/mount -t xfs";
26         $UMOUNT="/sbin/umount";
27         $MKFS_EXTRA="";
28     } else {
29         die "unconfigured host \"$HOST\"\n"
30     }
31 }
32
33 sub run_no_check(@)
34 {
35     system(@_);
36 }
37
38 sub run(@)
39 {
40     system(@_)  == 0
41         || die "ERROR \"" . join(" ",@_) . "\" returned error\n";
42 }
43
44 sub run_expect_fail(@)
45 {
46     system(@_)  == 0
47         && die "ERROR \"" . join(" ",@_) . "\" returned non-error\n";
48 }
49
50 sub umount_no_check()
51 {
52     run_no_check("umount $SCRATCH_DEV");
53 }
54
55 sub umount()
56 {
57     run("umount $SCRATCH_DEV");
58 }
59
60 sub mount($)
61 {
62     my ($ops)=@_;
63     run("mount -t xfs $ops $SCRATCH_DEV $SCRATCH_MNT");
64 }
65
66 chomp($HOST=`hostname -s`);
67
68 die "usage: $ARGV0 <operation> [parameters]\n" unless (scalar(@ARGV));
69 print "*** $HOST: Interop started\n";
70 print "    *** ", join(" ", @ARGV), "\n";
71
72 setup();
73
74 $op=shift(@ARGV);
75
76 umount_no_check();
77
78 if ($op eq "init") {
79
80     run("mkfs -t xfs $MKFS_EXTRA $SCRATCH_DEV");
81     
82 } elsif ($op eq "test") {
83
84     run("xfs_repair -n $SCRATCH_DEV");
85     
86 } elsif ($op eq "easy") {
87
88     mount("");
89     system("mount");
90     mkdir("$SCRATCH_MNT/fish",0777);
91     
92 } elsif ($op eq "check") {
93
94     mount("-o ro");
95     system("cd $SCRATCH_MNT ; $TOOLS/fs-walk .");
96
97 } else {
98     die "unknown operation \"$op\"\n";
99 }
100
101 umount_no_check();