#!/bin/sh # (C) Copyright 2005- ECMWF. # # This software is licensed under the terms of the Apache Licence Version 2.0 # which can be obtained at http://www.apache.org/licenses/LICENSE-2.0. # # In applying this licence, ECMWF does not waive the privileges and immunities granted to it by # virtue of its status as an intergovernmental organisation nor does it submit to any jurisdiction. # . ./include.ctest.sh # --------------------------------------------------------- # This is the test for the JIRA issue ECC-686. # It tests changing the subtype in the ECMWF local section # --------------------------------------------------------- label="bufr_ecc-686_test" tempRules=temp.${label}.filter tempBufr=temp.${label}.bufr set_subtype() { oldSubtype=$1 newSubtype=$2 input=${data_dir}/bufr/aaen_55.bufr cat > $tempRules << EOF print " Setting oldSubtype $oldSubtype and newSubtype $newSubtype"; print " BEFORE: numObs=[localNumberOfObservations] satID=[satelliteID]"; transient old_localNumberOfObservations = localNumberOfObservations; transient old_satelliteID = satelliteID; set oldSubtype=$oldSubtype; set newSubtype=$newSubtype; print " AFTER: numObs=[localNumberOfObservations] satID=[satelliteID]"; set satelliteID = old_satelliteID; set localNumberOfObservations = old_localNumberOfObservations; print " RESTORE: numObs=[localNumberOfObservations] satID=[satelliteID]"; assert(localNumberOfObservations==128); assert(satelliteID==209); write; EOF ${tools_dir}/codes_bufr_filter -o $tempBufr $tempRules $input res=`${tools_dir}/bufr_get -p oldSubtype,newSubtype,localNumberOfObservations,satelliteID $tempBufr` [ "$res" = "$oldSubtype $newSubtype 128 209" ] rm -f $tempRules $tempBufr } # Non-special subType set_subtype 30 256 # Special range: 31, 121 <= x <= 130 set_subtype 31 256 set_subtype 121 256 set_subtype 130 256 # oldSubtype = maximum 255 and newSubtype takes over set_subtype 255 256 rm -f $tempRules $tempBufr