more tests for hashmap

test/fortran/test_hash_table.f90

@@ -30,7 +30,7 @@ CONTAINS
 
     TYPE(t_HashTable), POINTER :: hashTable
     TYPE(t_HashIterator) :: iterator
-    CLASS(*), POINTER :: key, val
+    CLASS(*), POINTER :: key, val, retrieved_val
     CHARACTER(8), TARGET, ALLOCATABLE :: keyword(:)
     INTEGER, TARGET, ALLOCATABLE :: int_value(:)
     LOGICAL :: success
@@ -51,9 +51,19 @@ CONTAINS
       CALL hashTable%setEntry(key, val)
     END DO
 
-    CALL TAG_TEST("TEST_hash_table_int")
+    CALL TAG_TEST("TEST_hash_table_entry_count")
     CALL ASSERT_EQUAL(hashTable%getEntryCount(), table_size)
 
+    CALL TAG_TEST("TEST_hash_table_getEntry_3")
+    key => keyword(3)
+    retrieved_val => hashTable%getEntry(key)
+    CALL ASSERT_EQUAL(TRANSFER(retrieved_val, 0), int_value(3))
+
+    CALL TAG_TEST("TEST_hash_table_getEntry_10")
+    key => keyword(10)
+    retrieved_val => hashTable%getEntry(key)
+    CALL ASSERT_EQUAL(TRANSFER(retrieved_val, 0), int_value(10))
+
   END SUBROUTINE TEST_hash_table_int
 
 END MODULE TEST_mo_hash_table