lustre/tests/obdfilter-survey.sh

   1 #!/bin/bash
   2 #set -x
   3 set -e
   4
   5 LUSTRE=${LUSTRE:-`dirname $0`/..}
   6 . $LUSTRE/tests/test-framework.sh
   7 init_test_env $@
   8 init_logging
   9
  10 nobjhi=${nobjhi:-1}
  11 thrhi=${thrhi:-16}
  12 size=${size:-1024}
  13
  14 # the summary file a bit smaller than OSTSIZE
  15 . ${CONFIG:=$LUSTRE/tests/cfg/$NAME.sh}
  16
  17 [ "$SLOW" = no ] && { nobjhi=1; thrhi=4; }
  18 thrlo=${thrlo:-$(( thrhi / 2))}
  19
  20 # Skip these tests
  21 ALWAYS_EXCEPT="$OBDFILTER_SURVEY_EXCEPT"
  22
  23 OBDSURVEY=${OBDSURVEY:-$(which obdfilter-survey)}
  24
  25 build_test_filter
  26 check_and_setup_lustre
  27
  28 # FIXME: the summary file a bit smaller than OSTSIZE, add estimation
  29 minsize=$(min_ost_size)
  30 if [ $(( size * 1024 )) -ge $minsize  ]; then
  31     size=$((minsize * 10 / 1024 / 12 ))
  32     echo min kbytesavail: $minsize using size=${size} MBytes per obd instance
  33 fi
  34
  35 get_targets () {
  36         local targets
  37         local devs
  38         local oss
  39
  40         for oss in $(osts_nodes); do
  41                 devs=$(do_node $oss "lctl dl |grep obdfilter |sort" | awk '{print $4}')
  42                 for d in $devs; do
  43                         # if oss is local -- obdfilter-survey needs dev wo/ host
  44                         target=$d
  45                         [[ $oss = `hostname` ]] || target=$oss:$target
  46                         targets="$targets $target"
  47                 done
  48         done
  49
  50         echo $targets
  51 }
  52
  53 obdflter_survey_targets () {
  54         local case=$1
  55         local targets
  56
  57         case $case in
  58                 disk)    targets=$(get_targets);;
  59                 netdisk) targets=$(get_targets);;
  60                 network) targets="$(osts_nodes)";;
  61                 *) error "unknown obdflter-survey case!" ;;
  62         esac
  63         echo $targets
  64 }
  65
  66 obdflter_survey_run () {
  67         local case=$1
  68
  69         rm -f ${TMP}/obdfilter_survey*
  70
  71         local targets=$(obdflter_survey_targets $case)
  72         local cmd="NETTYPE=$NETTYPE thrlo=$thrlo nobjhi=$nobjhi thrhi=$thrhi size=$size case=$case rslt_loc=${TMP} targets=\"$targets\" $OBDSURVEY"
  73         echo + $cmd
  74         eval $cmd
  75
  76         cat ${TMP}/obdfilter_survey*
  77 }
  78 test_1a () {
  79         obdflter_survey_run disk
  80 }
  81 run_test 1a "Object Storage Targets survey"
  82
  83 print_jbd () {
  84         local file=$1
  85         local facet=$2
  86         local varsvc=${facet}_svc
  87         local dev=$(ldiskfs_canon "*.${!varsvc}.mntdev" $facet)
  88
  89         # ext4: /proc/fs/jbd2/sda1:8/history
  90         # ext3: /proc/fs/jbd/sdb1/history
  91
  92         do_facet $facet cat /proc/fs/jbd*/${dev}*/$file
  93 }
  94
  95 check_jbd_values () {
  96         local facet=$1
  97         local thrhi=$2
  98
  99         # last two lines from history
 100         # $4: run >= 5000
 101         # $8: hndls >= thrhi * 2
 102         local hist=("$(print_jbd history $facet | tail -3 | head -2)")
 103         echo "$hist"
 104         local run=($(echo "${hist[*]}" | awk '{print $4}'))
 105         local hndls=($(echo "${hist[*]}" | awk '{print $8}'))
 106
 107         local rc=0
 108         for (( i=0; i<1; i++)); do
 109                 [[ ${run[i]} -lt 5000 ]] && \
 110                         error "$facet: run expected 5000, have ${run[i]}" && rc=1
 111                 [[ ${hndls[i]} -lt $((thrhi * 2)) ]] && \
 112                         error "$facet: hndls expected > $((thrhi * 2)), have ${hndls[i]}" && rc=2
 113         done
 114         return $rc
 115 }
 116
 117 check_jbd_values_facets () {
 118         local facets=$1
 119         local thrhi=$2
 120         local facet
 121         local rc=0
 122         for facet in  ${facets//,/ }; do
 123                 check_jbd_values $facet $thrhi || rc=$((rc+$?))
 124         done
 125         return $rc
 126 }
 127
 128 test_1b () {
 129         local major=$(get_mds_kernel_major)
 130         local minor=$(get_mds_kernel_minor)
 131         [ "$major"=="2.6" -a $minor -eq 32 ]  && \
 132                 skip "There is no jbd history in this kernel version." && return
 133         local param_file=$TMP/$tfile-params
 134
 135         do_nodesv $(comma_list $(osts_nodes)) lctl get_param obdfilter.${FSNAME}-*.sync_journal
 136
 137         save_lustre_params $(comma_list $(osts_nodes)) "obdfilter.${FSNAME}-*.sync_journal" >$param_file
 138         do_nodesv $(comma_list $(osts_nodes)) lctl set_param obdfilter.${FSNAME}-*.sync_journal=0
 139
 140         thrlo=4 nobjhi=1 thrhi=4 obdflter_survey_run disk
 141
 142         check_jbd_values_facets $(get_facets OST) 4 || rc=$((rc+$?))
 143
 144         restore_lustre_params < $param_file
 145
 146         rm -f $param_file
 147         return $rc
 148 }
 149 run_test 1b "Object Storage Targets survey, async journal"
 150
 151 test_2a () {
 152         obdflter_survey_run netdisk
 153 }
 154 run_test 2a "Stripe F/S over the Network"
 155
 156 test_2b () {
 157         local major=$(get_mds_kernel_major)
 158         local minor=$(get_mds_kernel_minor)
 159         [ "$major"=="2.6" -a $minor -eq 32 ]  && \
 160                 skip "There is no jbd history in this kernel version." && return
 161         local param_file=$TMP/$tfile-params
 162
 163         do_nodesv $(comma_list $(osts_nodes)) lctl get_param obdfilter.${FSNAME}-*.sync_journal
 164
 165         save_lustre_params $(comma_list $(osts_nodes)) "obdfilter.${FSNAME}-*.sync_journal" >$param_file
 166         do_nodesv $(comma_list $(osts_nodes)) lctl set_param obdfilter.${FSNAME}-*.sync_journal=0
 167
 168         thrlo=4 nobjhi=1 thrhi=4 obdflter_survey_run netdisk
 169
 170         check_jbd_values_facets $(get_facets OST) 4 || rc=$((rc+$?))
 171
 172         restore_lustre_params < $param_file
 173
 174         rm -f $param_file
 175         return $rc
 176 }
 177 run_test 2b "Stripe F/S over the Network, async journal"
 178
 179
 180 # README.obdfilter-survey: In network test only automated run is supported.
 181 test_3a () {
 182         remote_servers || { skip "Local servers" && return 0; }
 183
 184         # The Network survey test needs:
 185         # Start lctl and check for the device list. The device list must be empty.
 186         cleanupall
 187
 188         obdflter_survey_run network
 189
 190         setupall
 191 }
 192 run_test 3a "Network survey"
 193
 194 complete $(basename $0) $SECONDS
 195 cleanup_echo_devs
 196 check_and_cleanup_lustre
 197 exit_status