test_DSO_Utilities.pf Source File


This file depends on

sourcefile~~test_dso_utilities.pf~~EfferentGraph sourcefile~test_dso_utilities.pf test_DSO_Utilities.pf sourcefile~dso_utilities.f90 DSO_Utilities.F90 sourcefile~test_dso_utilities.pf->sourcefile~dso_utilities.f90 sourcefile~filesystemutilities.f90 FileSystemUtilities.F90 sourcefile~dso_utilities.f90->sourcefile~filesystemutilities.f90

Source Code

module test_DSO_Utilities
   use mapl_DSO_Utilities
   use funit
   implicit none

contains

   @test
   subroutine test_is_supported_dso_extension()
      @assert_that(is_supported_dso_extension('.a'), is(false()))
      @assert_that(is_supported_dso_extension('.so'), is(true()))
      @assert_that(is_supported_dso_extension('.dylib'), is(true()))
      @assert_that(is_supported_dso_extension('.dll'), is(true()))
      @assert_that(is_supported_dso_extension(''), is(true()))
   end subroutine test_is_supported_dso_extension

   @test
   subroutine test_is_valid_dso_extension
      @assert_that(is_valid_dso_extension(''), is(true()))
      select case (SYSTEM_DSO_EXTENSION)
      case ('.so')
         @assert_that(is_valid_dso_extension(''), is(true()))
         @assert_that(is_valid_dso_extension('.so'), is(true()))
         @assert_that(is_valid_dso_extension('.dylib'),is(false()))
         @assert_that(is_valid_dso_extension('.dll'),is(false()))
      case ('.dylib')
         @assert_that(is_valid_dso_extension(''), is(true()))
         @assert_that(is_valid_dso_extension('.so'), is(false()))
         @assert_that(is_valid_dso_extension('.dylib'),is(true()))
         @assert_that(is_valid_dso_extension('.dll'),is(false()))
      end select
   end subroutine test_is_valid_dso_extension

end module test_DSO_Utilities