test_suite_M_hashkeys__sha3 Subroutine

subroutine test_suite_M_hashkeys__sha3()
use M_framework__verify, only : unit_check_start,unit_check,unit_check_done,unit_check_good,unit_check_bad,unit_check_msg
use M_framework__verify, only : unit_check_level

!! setup
   call test_sha3()
   call test_sha3_auto_test()
   call test_sha3_digest()
   call test_sha3_file()
   call test_sha3_hexdigest()
   call test_sha3_update()
!! teardown
contains
!TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT
subroutine test_sha3()

   call unit_check_start('sha3',msg='')
   !!call unit_check('sha3', 0.eq.0, 'checking',100)
   call unit_check_done('sha3',msg='')
end subroutine test_sha3
!TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT
subroutine test_sha3_auto_test()

   call unit_check_start('sha3_auto_test',msg='')
   !!call unit_check('sha3_auto_test', 0.eq.0, 'checking',100)
   call unit_check_done('sha3_auto_test',msg='')
end subroutine test_sha3_auto_test
!TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT
subroutine test_sha3_digest()

   call unit_check_start('sha3_digest',msg='')
   !!call unit_check('sha3_digest', 0.eq.0, 'checking',100)
   call unit_check_done('sha3_digest',msg='')
end subroutine test_sha3_digest
!TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT
subroutine test_sha3_file()

   call unit_check_start('sha3_file',msg='')
   !!call unit_check('sha3_file', 0.eq.0, 'checking',100)
   call unit_check_done('sha3_file',msg='')
end subroutine test_sha3_file
!TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT
subroutine test_sha3_hexdigest()

   call unit_check_start('sha3_hexdigest',msg='')
   !!call unit_check('sha3_hexdigest', 0.eq.0, 'checking',100)
   call unit_check_done('sha3_hexdigest',msg='')
end subroutine test_sha3_hexdigest
!TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT
subroutine test_sha3_update()

   call unit_check_start('sha3_update',msg='')
   !!call unit_check('sha3_update', 0.eq.0, 'checking',100)
   call unit_check_done('sha3_update',msg='')
end subroutine test_sha3_update
!===================================================================================================================================
end subroutine test_suite_M_hashkeys__sha3