From 15c3cd5319936be528826878cfa46d925b9bec55 Mon Sep 17 00:00:00 2001
From: Jonas Jucker <jonas.jucker@c2sm.ethz.ch>
Date: Wed, 31 Jan 2024 09:50:15 +0100
Subject: [PATCH] more tests for hashmap
---
test/fortran/test_hash_table.f90 | 14 ++++++++++++--
1 file changed, 12 insertions(+), 2 deletions(-)
diff --git a/test/fortran/test_hash_table.f90 b/test/fortran/test_hash_table.f90
index 68fa797..4080e0a 100644
--- a/test/fortran/test_hash_table.f90
+++ b/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
--
GitLab