QA test 004 updated to stash full mkfs output in .full file for reference
[xfstests-dev.git] / 004
1 #! /bin/sh
2 # XFS QA Test No. 004
3 # $Id: 1.1 $
4 #
5 # exercise xfs_db bug #789674 and other freesp functionality
6 #
7 #-----------------------------------------------------------------------
8 # Copyright (c) 2000-2002 Silicon Graphics, Inc.  All Rights Reserved.
9
10 # This program is free software; you can redistribute it and/or modify it
11 # under the terms of version 2 of the GNU General Public License as
12 # published by the Free Software Foundation.
13
14 # This program is distributed in the hope that it would be useful, but
15 # WITHOUT ANY WARRANTY; without even the implied warranty of
16 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
17
18 # Further, this software is distributed without any warranty that it is
19 # free of the rightful claim of any third person regarding infringement
20 # or the like.  Any license provided herein, whether implied or
21 # otherwise, applies only to this software file.  Patent licenses, if
22 # any, provided herein do not apply to combinations of this program with
23 # other software, or any other product whatsoever.
24
25 # You should have received a copy of the GNU General Public License along
26 # with this program; if not, write the Free Software Foundation, Inc., 59
27 # Temple Place - Suite 330, Boston MA 02111-1307, USA.
28
29 # Contact information: Silicon Graphics, Inc., 1600 Amphitheatre Pkwy,
30 # Mountain View, CA  94043, or:
31
32 # http://www.sgi.com 
33
34 # For further information regarding this notice, see: 
35
36 # http://oss.sgi.com/projects/GenInfo/SGIGPLNoticeExplan/
37 #-----------------------------------------------------------------------
38 #
39 # creator
40 owner=nathans@sgi.com
41
42 seq=`basename $0`
43 echo "QA output created by $seq"
44
45 here=`pwd`
46 tmp=/tmp/$$
47 status=0
48
49 _cleanup()
50 {
51         umount $SCRATCH_MNT
52         rm -f $tmp.*
53         exit $status
54 }
55 trap "_cleanup" 0 1 2 3 15
56
57 _populate_scratch()
58 {
59         echo "=== mkfs output ===" >>$seq.full
60         mkfs_xfs $SCRATCH_DEV | tee -a $seq.full | _filter_mkfs 2>$tmp.mkfs
61         source $tmp.mkfs
62         mount -t xfs $SCRATCH_DEV $SCRATCH_MNT
63         dd if=/dev/zero of=$SCRATCH_MNT/foo count=200 bs=4096 >/dev/null 2>&1 &
64         dd if=/dev/zero of=$SCRATCH_MNT/goo count=400 bs=4096 >/dev/null 2>&1 &
65         dd if=/dev/zero of=$SCRATCH_MNT/moo count=800 bs=4096 >/dev/null 2>&1 &
66         wait
67         umount $SCRATCH_MNT                     # flush everything
68         mount -t xfs $SCRATCH_DEV $SCRATCH_MNT  # and then remount
69 }
70
71
72 # get standard environment, filters and checks
73 . ./common.rc
74 . ./common.filter
75
76 _need_to_be_root
77 _require_scratch
78
79 # real QA test starts here
80 rm -f $seq.full
81
82 _populate_scratch
83
84 eval `df -P -T --block-size=512 $SCRATCH_MNT 2>&1 \
85         | $AWK_PROG 'END { printf "blocks=%u used=%u avail=%u\n", $3, $4, $5 }'`
86 echo "df gave: blocks=$blocks used=$used avail=$avail" >>$seq.full
87 echo "blocksize from mkfs is '$dbsize'" >>$seq.full
88
89 xfs_db -r -c "freesp -s" $SCRATCH_DEV >$tmp.xfs_db
90 echo "xfs_db for $SCRATCH_DEV" >>$seq.full
91 cat $tmp.xfs_db >>$seq.full
92
93 # check the 'blocks' field from freesp command is OK
94 perl -ne '
95             BEGIN       { $avail ='$avail' * 512;
96                           $answer="(no xfs_db free blocks line?)" }
97             /free blocks (\d+)$/        || next;
98             $freesp = $1 * '$dbsize';
99             if ($freesp == $avail)      { $answer = "yes"; }
100             else                        { $answer = "no ($freesp != $avail)"; }
101             END { print "$answer\n" }
102         ' <$tmp.xfs_db >$tmp.ans
103 ans="`cat $tmp.ans`"
104 echo "Checking blocks column same as df: $ans"
105 if [ "$ans" != yes ]
106 then
107         echo "Error: $SCRATCH_DEV: freesp mismatch: $ans"
108         echo "xfs_db output ..."
109         cat $tmp.xfs_db
110         status=1
111 fi
112
113 # check the 'pct' field from freesp command is good
114 perl -ne '
115             BEGIN       { $percent = 0; }
116             /free/      && next;        # skip over free extent size number
117             if (/\s+(\d+\.\d+)$/) {
118                 $percent += $1;
119             }
120             END { $percent += 0.5; print int($percent), "\n" }  # round up
121 ' <$tmp.xfs_db >$tmp.ans
122 ans="`cat $tmp.ans`"
123 echo "Checking percent column yields 100: $ans"
124 if [ "$ans" != 100 ]
125 then
126         echo "Error: $SCRATCH_DEV: pct mismatch: $ans (expected 100)"
127         echo "xfs_db output ..."
128         cat $tmp.xfs_db
129         status=1
130 fi
131
132 exit