module test_ProtocolParser use pfunit use pFIO_ProtocolParserMod use pFIO_AbstractMessageMod use pFIO_TerminateMessageMod use pFIO_DoneMessageMod use pFIO_AddReadDataCollectionMessageMod use pFIO_IdMessageMod use pFIO_PrefetchDataMessageMod contains @test subroutine test_parse_terminate() type (ProtocolParser) :: parser type (TerminateMessage) :: expected_message integer, allocatable :: buffer(:) class (AbstractMessage), allocatable :: found_message parser = ProtocolParser() buffer = parser%encode(expected_message) call parser%decode(buffer, found_message) @assertTrue(same_type_as(expected_message, found_message)) end subroutine test_parse_terminate end module test_ProtocolParser