test_equal_diff_variables Subroutine

public subroutine test_equal_diff_variables()

Arguments

None

Calls

proc~~test_equal_diff_variables~~CallsGraph proc~test_equal_diff_variables Test_FileMetadata::test_equal_diff_variables assertfalse assertfalse proc~test_equal_diff_variables->assertfalse asserttrue asserttrue proc~test_equal_diff_variables->asserttrue none~add_attribute pFIO_VariableMod::Variable%add_attribute proc~test_equal_diff_variables->none~add_attribute none~add_dimension pFIO_FileMetadataMod::FileMetadata%add_dimension proc~test_equal_diff_variables->none~add_dimension none~add_variable pFIO_FileMetadataMod::FileMetadata%add_variable proc~test_equal_diff_variables->none~add_variable none~modify_variable pFIO_FileMetadataMod::FileMetadata%modify_variable proc~test_equal_diff_variables->none~modify_variable none~add_attribute_1d pFIO_VariableMod::Variable%add_attribute_1d none~add_attribute->none~add_attribute_1d insert insert none~add_dimension->insert proc~mapl_return MAPL_ErrorHandlingMod::MAPL_Return none~add_dimension->proc~mapl_return at at none~add_variable->at begin begin none~add_variable->begin get get none~add_variable->get interface~mapl_assert MAPL_ErrorHandlingMod::MAPL_Assert none~add_variable->interface~mapl_assert next next none~add_variable->next none~get_const_value pFIO_VariableMod::Variable%get_const_value none~add_variable->none~get_const_value none~get_dimensions pFIO_VariableMod::Variable%get_dimensions none~add_variable->none~get_dimensions none~get_shape pFIO_UnlimitedEntityMod::UnlimitedEntity%get_shape none~add_variable->none~get_shape none~insert~4 pFIO_StringVariableMapMod::StringVariableMap%insert none~add_variable->none~insert~4 none~is_empty pFIO_UnlimitedEntityMod::UnlimitedEntity%is_empty none~add_variable->none~is_empty none~add_variable->proc~mapl_return push_back push_back none~add_variable->push_back none~modify_variable->at none~modify_variable->begin none~modify_variable->get none~modify_variable->interface~mapl_assert none~modify_variable->next none~modify_variable->none~get_dimensions none~set~2 pFIO_StringVariableMapMod::StringVariableMap%set none~modify_variable->none~set~2 none~modify_variable->proc~mapl_return none~add_attribute_1d->proc~mapl_return none~insert~2 pFIO_StringAttributeMapMod::StringAttributeMap%insert none~add_attribute_1d->none~insert~2 none~get_shape->proc~mapl_return none~insert_pair~3 pFIO_StringVariableMapMod::StringVariableMap%insert_pair none~insert~4->none~insert_pair~3 none~is_empty->proc~mapl_return none~get_value pFIO_UnlimitedEntityMod::UnlimitedEntity%get_value none~is_empty->none~get_value proc~mapl_return->at proc~mapl_return->insert proc~mapl_throw_exception MAPL_ThrowMod::MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception none~get_value->proc~mapl_return none~insert_pair pFIO_StringAttributeMapMod::StringAttributeMap%insert_pair none~insert~2->none~insert_pair

Source Code

   subroutine test_equal_diff_variables()
      type (FileMetadata) :: cf1, cf2
      type (Variable) :: v1, v2, v3

      call cf1%add_dimension('x', 10)
      call cf1%add_dimension('y', 20)
      call cf1%add_dimension('z', 30)
      cf2 = cf1

      v1 = Variable(type=pFIO_INT32, dimensions='x')
      v2 = Variable(type=pFIO_REAL64, dimensions='x,y,z')
      call v3%add_attribute('flag', .true.)

      call cf1%add_variable('v1', v1)
      @assertTrue(cf1 == cf1)
      @assertFalse(cf1 /= cf1)
      
      call cf1%add_variable('v2', v2)
      @assertFalse(cf1 == cf2)
      @assertFalse(cf2 == cf1)

      call cf2%add_variable('v2', v2)
      @assertFalse(cf1 == cf2)
      @assertFalse(cf2 == cf1)

      call cf2%add_variable('v1', v1)
      @assertTrue(cf1 == cf2)

      v3 = v1
      call cf1%add_variable('v3', v3)
      ! Modify v3 before adding to cf2
      ! Deep copy means v3 in cf1 is not affected.
      call v3%add_attribute('other', [1,2,3])
      call cf2%add_variable('v3', v3)
      @assertFalse(cf1 == cf2)

      ! get back to v1 
      call cf2%modify_variable('v3',v1)
      @assertTrue(cf1 == cf2)
      
   end subroutine test_equal_diff_variables