!!  Copyright (C)  Stichting Deltares, 2012-2019.
!!
!!  This program is free software: you can redistribute it and/or modify
!!  it under the terms of the GNU General Public License version 3,
!!  as published by the Free Software Foundation.
!!
!!  This program is distributed in the hope that it will be useful,
!!  but WITHOUT ANY WARRANTY; without even the implied warranty of
!!  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
!!  GNU General Public License for more details.
!!
!!  You should have received a copy of the GNU General Public License
!!  along with this program. If not, see <http://www.gnu.org/licenses/>.
!!
!!  contact: delft3d.support@deltares.nl
!!  Stichting Deltares
!!  P.O. Box 177
!!  2600 MH Delft, The Netherlands
!!
!!  All indications and logos of, and references to registered trademarks
!!  of Stichting Deltares remain the property of Stichting Deltares. All
!!  rights reserved.

module test_properties
    use ftnunit
    use properties

    implicit none

contains
subroutine tests_properties
    call test( test_properties_load, 'Simply load a properties file' )
    call test( test_properties_check, 'Checking if the values in a properties file get loaded correctly' )
end subroutine tests_properties

subroutine test_properties_load
    character(len=20)        :: filename
    type(tree_data), pointer :: tree
    integer                  :: error
    logical                  :: preprocess

    !
    ! Check that a non-existing file causes an error
    !
    ! Note:
    ! Apparently, the tree variable needs to be associated/allocated beforehand
    !
    allocate( tree )

    call prop_inifile( 'non-existent.ini', tree, error )
    !
    ! The code does not return 1 in this case, but leaves it to the compiler
    !
    call assert_false( error == 0, "The error code should not have been 0" )
    call assert_equal( error, 1, "The error code should have been 1" )
    !
    ! This check makes no sense, as the tree variable needs to be associated anyway
    !
    !call assert_false( associated(tree), "The tree variable should not be associated" )

    !
    ! Check that a straightforward ini-file is loaded without error
    !
    call prop_inifile( 'simple-file.ini', tree, error )
    call assert_equal( error, 0, "There should have been no error" )

end subroutine test_properties_load

subroutine test_properties_check
    character(len=20)        :: filename
    type(tree_data), pointer :: tree1, tree2, tree
    integer                  :: error
    logical                  :: preprocess

    logical                  :: success
    integer                  :: integerValue
    real                     :: realValue

    integer, parameter       :: dp = kind(1.0d0)
    real(kind=dp)            :: doubleValue
    character(len=80)        :: stringValue
    character(len=80)        :: expectedString = 'A short sentence of several words'

    integer                         :: i
    character(len=10), dimension(3) :: chapter = ['general   ', '*         ', 'specific  ']

    !
    ! Check that a non-existing file causes an error
    !
    ! Note:
    ! Apparently, the tree variable needs to be associated/allocated beforehand
    !
    allocate( tree )

    !
    ! Note: A chapter "*" is considered to indicate a keyword outside a (named) chapter
    ! So use two different ini files
    !
    call prop_inifile( 'simple-file.ini', tree1, error )
    call prop_inifile( 'no-chapters.ini', tree2, error )
    call assert_equal( error, 0, "There should have been no error" )

    !
    ! Get numerical values from any chapter
    !
    do i = 1,2
        tree => tree1
        if ( i == 2 ) then
            tree => tree2
        endif

        integerValue = -999
        call prop_get( tree, chapter(i), 'integerValue', integerValue, success )
        call assert_true( success, "Retrieving the integer value should succeed (chapter: " // trim(chapter(i)) // ")" )
        call assert_equal( integerValue, 1, "The integer value should be 1 (chapter: " // trim(chapter(i)) // ")"  )

        realValue = -999.0
        call prop_get( tree, chapter(i), 'realValue', realValue, success )
        call assert_true( success, "Retrieving the real value should succeed (chapter: " // trim(chapter(i)) // ")"   )
        call assert_comparable( realValue, 2.2, 1.0e-6, "The real value should be 2.2 (chapter: " // trim(chapter(i)) // ")"   )

        realValue = -999.0
        call prop_get( tree, chapter(i), 'integerValue', realValue, success )
        call assert_true( success, "Retrieving the real value (from 'integerValue') should succeed (chapter: " // trim(chapter(i)) // ")"   )
        call assert_comparable( realValue, 1.0, 1.0e-6, "The real value (from 'integerValue') should be 1 (chapter: " // trim(chapter(i)) // ")"   )

        doubleValue = -999.0_dp
        call prop_get( tree, chapter(i), 'doubleValue', doubleValue, success )
        call assert_true( success, "Retrieving the double value should succeed (chapter: " // trim(chapter(i)) // ")"   )
        call assert_comparable( doubleValue, 2.3e2_dp, 1.0_dp, "The double value should be 230.0 (chapter: " // trim(chapter(i)) // ")"   )

        doubleValue = -999.0_dp
        call prop_get( tree, chapter(i), 'realValue', doubleValue, success )
        call assert_true( success, "Retrieving the double value (from 'realValue') should succeed (chapter: " // trim(chapter(i)) // ")"   )
        call assert_comparable( doubleValue, 2.2_dp, 1.0_dp, "The double value (from 'realValue') should be 2.2 (chapter: " // trim(chapter(i)) // ")"   )
    enddo

    !
    ! Get the string values from any chapter
    !
    do i = 2,3
        tree => tree1
        if ( i == 2 ) then
            tree => tree2
        endif

        stringValue = '?'
        call prop_get( tree, chapter(i), 'plainString', stringValue, success )
        call assert_true( success, "Retrieving the string value should succeed (chapter: " // trim(chapter(i)) // ")" )
        call assert_equal( stringValue, "plain", "Single words should be treated correctly (chapter: " // trim(chapter(i)) // ")"  )

        stringValue = '?'
        call prop_get( tree, chapter(i), 'stringValue1', stringValue, success )
        call assert_true( success, "Retrieving the string value should succeed (chapter: " // trim(chapter(i)) // ")" )
        call assert_equal( stringValue,expectedString, "Strings in double quotes should be treated correctly (chapter: " // trim(chapter(i)) // ")"  )

        stringValue = '?'
        call prop_get( tree, chapter(i), 'stringValue2', stringValue, success )
        call assert_true( success, "Retrieving the string value should succeed (chapter: " // trim(chapter(i)) // ")" )
        call assert_equal( stringValue, expectedString, "Strings in single quotes should be treated correctly (chapter: " // trim(chapter(i)) // ")"  )

        stringValue = '?'
        call prop_get( tree, chapter(i), 'stringValue3', stringValue, success )
        call assert_true( success, "Retrieving the string value should succeed (chapter: " // trim(chapter(i)) // ")" )
        call assert_equal( stringValue, expectedString, "Strings enclosed in hashes should be treated correctly (chapter: " // trim(chapter(i)) // ")"  )
    enddo

end subroutine test_properties_check

end module test_properties