Add comments, diganostics, pass back some errors from funcs.
[xfstests-dev.git] / 052
1 #! /bin/sh
2 # FS QA Test No. 052
3 #
4 # Ensure that quota(1) displays blocksizes matching ondisk dquots.
5 #
6 # MOUNT_OPTIONS can be set to gquota to test group quota,
7 # defaults to uquota if MOUNT_OPTIONS is not set.
8 #
9 #-----------------------------------------------------------------------
10 # Copyright (c) 2000-2002 Silicon Graphics, Inc.  All Rights Reserved.
11
12 # This program is free software; you can redistribute it and/or modify it
13 # under the terms of version 2 of the GNU General Public License as
14 # published by the Free Software Foundation.
15
16 # This program is distributed in the hope that it would be useful, but
17 # WITHOUT ANY WARRANTY; without even the implied warranty of
18 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
19
20 # Further, this software is distributed without any warranty that it is
21 # free of the rightful claim of any third person regarding infringement
22 # or the like.  Any license provided herein, whether implied or
23 # otherwise, applies only to this software file.  Patent licenses, if
24 # any, provided herein do not apply to combinations of this program with
25 # other software, or any other product whatsoever.
26
27 # You should have received a copy of the GNU General Public License along
28 # with this program; if not, write the Free Software Foundation, Inc., 59
29 # Temple Place - Suite 330, Boston MA 02111-1307, USA.
30
31 # Contact information: Silicon Graphics, Inc., 1600 Amphitheatre Pkwy,
32 # Mountain View, CA  94043, or:
33
34 # http://www.sgi.com 
35
36 # For further information regarding this notice, see: 
37
38 # http://oss.sgi.com/projects/GenInfo/SGIGPLNoticeExplan/
39 #-----------------------------------------------------------------------
40 #
41 # creator
42 owner=nathans@sgi.com
43
44 seq=`basename $0`
45 echo "QA output created by $seq"
46
47 here=`pwd`
48 tmp=/tmp/$$
49 status=1        # failure is the default!
50
51 # get standard environment, filters and checks
52 . ./common.rc
53 . ./common.filter
54 . ./common.quota
55
56 _cleanup()
57 {
58         cd /
59         umount $SCRATCH_MNT 2>/dev/null
60         rm -f $tmp.*
61 }
62 trap "_cleanup; exit \$status" 0 1 2 3 15
63
64 # real QA test starts here
65 _supported_fs xfs
66 _supported_os IRIX Linux
67
68 rm -f $seq.full
69
70 _require_scratch
71 _require_quota
72 _require_nobody
73
74 # setup a default run
75 if [ -z "$MOUNT_OPTIONS" ]; then
76         export MOUNT_OPTIONS="-o uquota"
77 fi
78
79 _scratch_mkfs_xfs | _filter_mkfs 2>$tmp.mkfs
80 cat $tmp.mkfs >>$seq.full
81 chmod a+w $seq.full     # arbitrary users will write here
82
83 # keep the blocksize from mkfs ($dbsize)
84 . $tmp.mkfs
85
86 _qmount
87
88 # setup user/group to test
89 if src/feature -U $SCRATCH_DEV ; then
90         type=u; eval `_choose_uid`
91 elif src/feature -G $SCRATCH_DEV ; then
92         type=g; eval `_choose_gid`
93 else
94         _notrun "No quota support at mount time"
95 fi
96
97 # create 100 (fs-blocksize) blocks
98 _file_as_id $SCRATCH_MNT/foo $id $type $dbsize 220
99 sync
100
101 # Irix uses filesystem name and Linux uses device of filesystem
102 if [ $HOSTOS = "Linux" ]; then
103     QUOTA_FS=$SCRATCH_DEV
104 else
105     QUOTA_FS=$SCRATCH_MNT
106 fi
107
108 # set limit at 1001 (1k) blocks
109 bsoft=1001
110 bhard=1001
111 isoft=10
112 ihard=10
113 _setquota -$type $id $bsoft $bhard $isoft $ihard $QUOTA_FS
114
115 _filter_quota()
116 {
117     perl -ne '
118         if (m[^\s*'$QUOTA_FS'\s+(\d+)\s+(\d+)\s+(\d+)] ||
119                 ($next == 1 && m,^\s+(\d+)\s+(\d+)\s+(\d+),)) {
120                 print "used_blocks=", $1, "\n";
121                 print "soft_blocks=", $2, "\n";
122                 print "hard_blocks=", $3, "\n";
123                 $next = 0;
124         }
125         elsif (m[^\s*'$QUOTA_FS']) {            # devfs (long) names
126                 $next = 1;
127         }' | LC_COLLATE=POSIX sort
128 }
129
130 # cross check blks, softblks, hardblks <-> quota, xfs_db
131 _quota -$type $id | tee -a $seq.full | _filter_quota >$tmp.quota
132
133 echo ===quota output >> $seq.full
134 cat $tmp.quota >> $seq.full
135 [ ! -s $tmp.quota ] && echo "warning: quota output file is empty"
136
137 umount $SCRATCH_MNT
138
139 # note - does (insitu) conversion from fs blocks to 1K blocks
140 xfs_db -rc "dquot -$type $id" -c p $SCRATCH_DEV | tee -a $seq.full | perl -ne '
141         if (/^diskdq.bcount = (\d+)$/) {
142                  print "used_blocks=", $1 * '$dbsize' / 1024, "\n";
143         }
144         elsif (/^diskdq.blk_hardlimit = (\d+)$/) {
145                  print "hard_blocks=", $1 * '$dbsize' / 1024, "\n";
146         }
147         elsif (/^diskdq.blk_softlimit = (\d+)$/) {
148                 print "soft_blocks=", $1 * '$dbsize' / 1024, "\n";
149         }' | LC_COLLATE=POSIX sort >$tmp.xfs_db
150
151 echo ===xfs_db output >> $seq.full
152 cat $tmp.xfs_db >> $seq.full
153 [ ! -s $tmp.xfs_db ] && echo "warning: xfs_db output file is empty"
154
155 echo Comparing out of quota and xfs_db
156 diff $tmp.quota $tmp.xfs_db 
157 [ $? -eq 0 ] && echo OK.
158
159 # success, all done
160 status=0
161 exit