added tests for get_all_chaining_keys

Author: degawa

test/hashmaps/test_chaining_maps.f90

@@ -51,6 +51,7 @@ program test_chaining_maps
     call map % init( fnv_1_hasher, slots_bits=10 )
     call input_random_data( map, test_16, 'FNV-1', "16 byte words" )
     call test_inquire_data( map, test_16, 'FNV-1', "16 byte words" )
+    call test_get_all_keys( map, test_16, 'FNV-1', '16 byte words' )
     call test_get_data( map, test_16, 'FNV-1', '16 byte words' )
     call report_rehash_times( map, fnv_1_hasher, 'FNV-1', '16 byte words' )
     call report_hash_statistics( map, 'FNV-1', '16 byte words' )
@@ -60,6 +61,7 @@ program test_chaining_maps
     call input_random_data( map, test_256, 'FNV-1', "256 byte words" )
     call test_inquire_data( map, test_256, 'FNV-1', "256 byte words" )
     call test_get_data( map, test_256, 'FNV-1', '256 byte words' )
+    call test_get_all_keys( map, test_256, 'FNV-1', '256 byte words' )
     call report_rehash_times( map, fnv_1_hasher, 'FNV-1', '256 byte words' )
     call report_hash_statistics( map, 'FNV-1', '256 byte words' )
     call report_removal_times( map, test_256, 'FNV-1', '256 byte words' )
@@ -68,6 +70,7 @@ program test_chaining_maps
     call input_random_data( map, test_16, 'FNV-1A', "16 byte words" )
     call test_inquire_data( map, test_16, 'FNV-1A', "16 byte words" )
     call test_get_data( map, test_16, 'FNV-1A', '16 byte words' )
+    call test_get_all_keys( map, test_16, 'FNV-1A', '16 byte words' )
     call report_rehash_times( map, fnv_1a_hasher, 'FNV-1', '16 byte words' )
     call report_hash_statistics( map, 'FNV-1A', '16 byte words' )
     call report_removal_times( map, test_16, 'FNV-1a', '16 byte words' )
@@ -76,6 +79,7 @@ program test_chaining_maps
     call input_random_data( map, test_256, 'FNV-1A', "256 byte words" )
     call test_inquire_data( map, test_256, 'FNV-1A', "256 byte words" )
     call test_get_data( map, test_256, 'FNV-1A', '256 byte words' )
+    call test_get_all_keys( map, test_256, 'FNV-1A', '256 byte words' )
     call report_rehash_times( map, fnv_1_hasher, 'FNV-1A', '256 byte words' )
     call report_hash_statistics( map, 'FNV-1A', '256 byte words' )
     call report_removal_times( map, test_256, 'FNV-1A', '256 byte words' )
@@ -84,6 +88,7 @@ program test_chaining_maps
     call input_random_data( map, test_16, 'Seeded_Nmhash32', "16 byte words" )
     call test_inquire_data( map, test_16, 'Seeded_Nmhash32', "16 byte words" )
     call test_get_data( map, test_16, 'Seeded_Nmhash32', '16 byte words' )
+    call test_get_all_keys( map, test_16, 'Seeded_Nmhash32', '16 byte words' )
     call report_rehash_times( map, seeded_nmhash32_hasher, 'Seeded_Nmhash32', &
         '16 byte words' )
     call report_hash_statistics( map, 'Seeded_Nmhash32', '16 byte words' )
@@ -94,6 +99,7 @@ program test_chaining_maps
     call input_random_data( map, test_256, 'Seeded_Nmhash32', "256 byte words" )
     call test_inquire_data( map, test_256, 'Seeded_Nmhash32', "256 byte words" )
     call test_get_data( map, test_256, 'Seeded_Nmhash32', '256 byte words' )
+    call test_get_all_keys( map, test_256, 'Seeded_Nmhash32', '256 byte words' )
     call report_rehash_times( map, seeded_nmhash32_hasher, 'Seeded_Nmhash32', &
         '256 byte words' )
     call report_hash_statistics( map, 'Seeded_Nmhash32', '256 byte words' )
@@ -104,6 +110,7 @@ program test_chaining_maps
     call input_random_data( map, test_16, 'Seeded_Nmhash32x', "16 byte words" )
     call test_inquire_data( map, test_16, 'Seeded_Nmhash32x', "16 byte words" )
     call test_get_data( map, test_16, 'Seeded_Nmhash32x', '16 byte words' )
+    call test_get_all_keys( map, test_16, 'Seeded_Nmhash32x', '16 byte words' )
     call report_rehash_times( map, seeded_nmhash32x_hasher, &
         'Seeded_Nmhash32x', '16 byte words' )
     call report_hash_statistics( map, 'Seeded_Nmhash32x', '16 byte words' )
@@ -116,6 +123,7 @@ program test_chaining_maps
     call test_inquire_data( map, test_256, 'Seeded_Nmhash32x', &
         "256 byte words" )
     call test_get_data( map, test_256, 'Seeded_Nmhash32x', '256 byte words' )
+    call test_get_all_keys( map, test_256, 'Seeded_Nmhash32x', '256 byte words' )
     call report_rehash_times( map, seeded_nmhash32x_hasher, &
         'Seeded_Nmhash32x', '256 byte words' )
     call report_hash_statistics( map, 'Seeded_Nmhash32x', '256 byte words' )
@@ -126,6 +134,7 @@ program test_chaining_maps
     call input_random_data( map, test_16, 'Seeded_Water', "16 byte words" )
     call test_inquire_data( map, test_16, 'Seeded_Water', "16 byte words" )
     call test_get_data( map, test_16, 'Seeded_Water', '16 byte words' )
+    call test_get_all_keys( map, test_16, 'Seeded_Water', '16 byte words' )
     call report_rehash_times( map, seeded_water_hasher, &
         'Seeded_Water', '16 byte words' )
     call report_hash_statistics( map, 'Seeded_Water', '16 byte words' )
@@ -138,6 +147,7 @@ program test_chaining_maps
     call test_inquire_data( map, test_256, 'Seeded_Water', &
         "256 byte words" )
     call test_get_data( map, test_256, 'Seeded_Water', '256 byte words' )
+    call test_get_all_keys( map, test_256, 'Seeded_Water', '256 byte words' )
     call report_rehash_times( map, seeded_water_hasher, &
         'Seeded_Water', '256 byte words' )
     call report_hash_statistics( map, 'Seeded_Water', '256 byte words' )
@@ -227,6 +237,37 @@ subroutine test_get_data( map, test_block, hash_name, size_name )
     end subroutine test_get_data
 
 
+    subroutine test_get_all_keys( map, test_block, hash_name, size_name )
+        type(chaining_hashmap_type), intent(inout) :: map
+        integer(int_index), intent(in)          :: test_block
+        character(*), intent(in)                :: hash_name, size_name
+        integer :: index2, key_idx
+        type(key_type) :: key
+        type(key_type), allocatable :: all_keys(:)
+        real :: t1, t2, tdiff
+
+        call cpu_time(t1)
+        call map % get_all_keys(all_keys)
+        call cpu_time(t2)
+        tdiff = t2-t1
+
+        if (size( all_keys ) /= size( test_8_bits )/test_block) &
+            error stop "Number of keys is different from that of keys in a map."
+
+        do index2=1, size(test_8_bits), test_block
+            call set( key, test_8_bits( index2:index2+test_block-1 ) )
+
+            key_idx = ( index2/test_block ) + 1
+            if (.not. ( all_keys(key_idx) == key )) &
+                error stop "Invalid value of a key."
+        end do
+
+        write(lun, '("|", a18, " | ", a12, " | ", a15, " | ", f10.5, " |")') &
+            trim(hash_name), 'Get all keys', size_name, tdiff
+
+    end subroutine test_get_all_keys
+
+
     subroutine report_rehash_times( map, hasher, hash_name, size_name )
         type(chaining_hashmap_type), intent(inout) :: map
         procedure(hasher_fun)                   :: hasher