test_serialize_buffer_length_int_1d Subroutine

public subroutine test_serialize_buffer_length_int_1d()

Arguments

None

Calls

proc~~test_serialize_buffer_length_int_1d~~CallsGraph proc~test_serialize_buffer_length_int_1d test_serialize_buffer_length_int_1d assertequal assertequal proc~test_serialize_buffer_length_int_1d->assertequal interface~serialize_buffer_length serialize_buffer_length proc~test_serialize_buffer_length_int_1d->interface~serialize_buffer_length

Source Code

   subroutine test_serialize_buffer_length_int_1d()
      integer :: empty(0)
      
      @assertEqual(1, serialize_buffer_length(empty))
      @assertEqual(2, serialize_buffer_length([1]))
      @assertEqual(5, serialize_buffer_length([1,2,3,4]))


   end subroutine test_serialize_buffer_length_int_1d