test_is_valid_dso_extension Subroutine

public subroutine test_is_valid_dso_extension()

Arguments

None

Calls

proc~~test_is_valid_dso_extension~~CallsGraph proc~test_is_valid_dso_extension test_is_valid_dso_extension assert_that assert_that proc~test_is_valid_dso_extension->assert_that false false proc~test_is_valid_dso_extension->false proc~is_valid_dso_extension is_valid_dso_extension proc~test_is_valid_dso_extension->proc~is_valid_dso_extension true true proc~test_is_valid_dso_extension->true

Source Code

   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