core
/
eccodes
mirror of https://github.com/ecmwf/eccodes.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

ECC-1392: Add tests

This commit is contained in:
Shahram Najm 2022-05-20 13:45:22 +01:00
parent 3c67e26184
commit 7eae7f474b
3 changed files with 75 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
examples/F90/CMakeLists.txt
View File

@ -8,6 +8,7 @@ configure_file( include.ctest.sh.in include.ctest.sh @ONLY )
#################### ####################
if( HAVE_BUILD_TOOLS ) if( HAVE_BUILD_TOOLS )
list( APPEND tests_sanity list( APPEND tests_sanity
codes_ecc-1392
grib_set_pv grib_set_pv
grib_set_data grib_set_data
bufr_ecc-1284 bufr_ecc-1284

22
examples/F90/codes_ecc-1392.f90 Normal file
View File

@ -0,0 +1,22 @@
! (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.
!
!
program codes_ecc_1392
use eccodes
implicit none
integer :: ifile, igrib
character(len=60) :: inputfile
call getarg(1, inputfile)
call codes_open_file(ifile, inputfile, 'R')
write (*, *) 'Opened file OK: |',inputfile,'|'
call grib_close_file(ifile)
end program codes_ecc_1392

52
examples/F90/codes_ecc-1392.sh Executable file
View File

@ -0,0 +1,52 @@
#!/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
set -u
label="codes_ecc-1392_test_f"
TEMP_ERR=temp.$label.err
# Create files with spaces in various places
# -------------------------------------------
TEMP_INPUT="temp.$label.space in middle"
touch "$TEMP_INPUT"
${examples_dir}/eccodes_f_codes_ecc-1392 "$TEMP_INPUT"
rm -f "$TEMP_INPUT"
TEMP_INPUT=" temp.$label.space in beg"
touch "$TEMP_INPUT"
${examples_dir}/eccodes_f_codes_ecc-1392 "$TEMP_INPUT"
rm -f "$TEMP_INPUT"
# Test non-existent files
# ----------------------------
TEMP_INPUT="temp.nonexistent.file"
set +e
${examples_dir}/eccodes_f_codes_ecc-1392 "$TEMP_INPUT" 2>$TEMP_ERR
status=$?
set -e
[ $status -ne 0 ]
fgrep -q "open_file: (temp.nonexistent.file) Input output problem" $TEMP_ERR
TEMP_INPUT="temp nonexistent file"
set +e
${examples_dir}/eccodes_f_codes_ecc-1392 "$TEMP_INPUT" 2>$TEMP_ERR
status=$?
set -e
[ $status -ne 0 ]
fgrep -q "open_file: (temp nonexistent file) Input output problem" $TEMP_ERR
# Clean up
rm -f $TEMP_ERR