test_version.F90

Go to the documentation of this file.

! Copyright (c) 2024 The YAC Authors
!
! SPDX-License-Identifier: BSD-3-Clause
 
 
#include "yac_config.h"
#include "yac_version_check.h"
 
#include "test_macros.inc"
 
program test_version
 
  use utest
  use yac, only : yac_fget_version
 
  implicit none
 
  character(len=1024) :: macro_version
  character(len=:), allocatable :: function_version
  logical :: yac_version_is_greater_equal
 
  call start_test("yac_version")
 
  allocate(character(32) :: function_version)
  function_version = yac_fget_version()
 
  call test(allocated(function_version))
 
  if (allocated(function_version)) then
    write(macro_version, '(A,I0,A,I0,A,I0,A)') &
      "v", yac_version_major, ".", &
          yac_version_minor, ".", &
          yac_version_patch, &
          yac_version_tweak
    call test(trim(macro_version) == trim(function_version))
 
    write(macro_version, '(A,A)') "v", yac_version
    call test(trim(macro_version) == trim(function_version))
 
    print *, 'YAC Version: ' // trim(function_version)
  end if
 
# if YAC_VERSION_GREATER_EQUAL(YAC_VERSION_MAJOR-1, YAC_VERSION_MINOR, YAC_VERSION_PATCH)
  yac_version_is_greater_equal = .true.
# else
  yac_version_is_greater_equal = .false.
# endif
  call test(yac_version_is_greater_equal)
 
# if YAC_VERSION_GREATER_EQUAL(YAC_VERSION_MAJOR, YAC_VERSION_MINOR-1, YAC_VERSION_PATCH)
  yac_version_is_greater_equal = .true.
# else
  yac_version_is_greater_equal = .false.
# endif
  call test(yac_version_is_greater_equal)
 
# if YAC_VERSION_GREATER_EQUAL(YAC_VERSION_MAJOR, YAC_VERSION_MINOR, YAC_VERSION_PATCH-1)
  yac_version_is_greater_equal = .true.
# else
  yac_version_is_greater_equal = .false.
# endif
  call test(yac_version_is_greater_equal)
 
# if YAC_VERSION_GREATER_EQUAL(YAC_VERSION_MAJOR, YAC_VERSION_MINOR, YAC_VERSION_PATCH)
  yac_version_is_greater_equal = .true.
# else
  yac_version_is_greater_equal = .false.
# endif
  call test(yac_version_is_greater_equal)
 
# if YAC_VERSION_GREATER_EQUAL(YAC_VERSION_MAJOR, YAC_VERSION_MINOR, YAC_VERSION_PATCH+1)
  yac_version_is_greater_equal = .true.
# else
  yac_version_is_greater_equal = .false.
# endif
  call test(.NOT. yac_version_is_greater_equal)
 
# if YAC_VERSION_GREATER_EQUAL(YAC_VERSION_MAJOR, YAC_VERSION_MINOR+1, YAC_VERSION_PATCH)
  yac_version_is_greater_equal = .true.
# else
  yac_version_is_greater_equal = .false.
# endif
  call test(.NOT. yac_version_is_greater_equal)
 
# if YAC_VERSION_GREATER_EQUAL(YAC_VERSION_MAJOR+1, YAC_VERSION_MINOR, YAC_VERSION_PATCH)
  yac_version_is_greater_equal = .true.
# else
  yac_version_is_greater_equal = .false.
# endif
  call test(.NOT. yac_version_is_greater_equal)
 
  call stop_test
 
  call exit_tests
 
end program test_version