test_q_indices_mod Module Reference

Functions/Subroutines
subroutine	test_get_q_index
subroutine	test_q_indices_set
subroutine	test_q_indices_limits

Function/Subroutine Documentation

test_get_q_index()

subroutine test_q_indices_mod::test_get_q_index

Definition at line 12 of file test_q_indices.F90.

    character(7), parameter :: name='First'
    integer :: numActive,index
    index =  get_q_index(name)
    numactive =  get_number_active_q_indices()
 
    call assert_equals(1, numactive, "First element")
    ! add the same element for second time
    index =  get_q_index(name)
    numactive =  get_number_active_q_indices()
    call assert_equals(1, numactive, "Repeated element")    

Here is the call graph for this function:

Here is the caller graph for this function:

test_q_indices_limits()

subroutine test_q_indices_mod::test_q_indices_limits

Definition at line 45 of file test_q_indices.F90.

    integer :: numActive,new_numActive,index
    !number of elements active before
    numactive =  get_number_active_q_indices()
    !set new value out of range
    call set_q_index(101,"Limit")
    !number of elements active after
    new_numactive =  get_number_active_q_indices()
    !check the number of active elements has not changed
    call assert_equals(new_numactive, numactive, "Out of range element")
 

Here is the call graph for this function:

Here is the caller graph for this function:

test_q_indices_set()

subroutine test_q_indices_mod::test_q_indices_set

Definition at line 26 of file test_q_indices.F90.

    type(q_metadata_type) :: descriptor
    character(7), parameter :: name='Set'
    integer :: numActive,new_numActive,index
    index =  get_q_index(name)
    numactive =  get_number_active_q_indices()
 
    ! add the same element for second time
    call set_q_index(index,"New")
    new_numactive =  get_number_active_q_indices()
    call assert_equals(new_numactive, numactive, "Overwritten element")   
 
    ! we expect to have overwritten the previous descriptor
    descriptor = get_indices_descriptor(index)
    call assert_equals("New",descriptor%name,"Check name of set element")

Here is the call graph for this function:

Here is the caller graph for this function: