Added test for GET request (#13)

* Added test for GET request

* replace print with write for errors

* added error stop 1

Co-authored-by: Milan Curcic <caomaco@gmail.com>

---------

Co-authored-by: Milan Curcic <caomaco@gmail.com>

Author: rajkumardongre

example/response_header.f90

@@ -9,7 +9,7 @@ program response_header
     type(response_type) :: response
     character(:), allocatable :: val
 
-    response = request(url='http://jsonplaceholder.typicode.com/todos/1')
+    response = request(url='https://gorest.co.in/public/v2/todos')
     if(.not. response%ok) then
         print *,"Error message : ", response%err_msg
     else

example/simple_get.f90

@@ -3,14 +3,14 @@ program simple_get
     implicit none
     type(response_type) :: response
 
-    response = request(url='http://jsonplaceholder.typicode.com/todos/1')
+    response = request(url='https://jsonplaceholder.typicode.com/todos/1')
     if(.not. response%ok) then
-        print *,"Error message : ", response%err_msg
+        print *,'Error message : ', response%err_msg
     else
-        print *, "Response Code    : ", response%status_code
-        print *, "Response Length  : ", response%content_length
-        print *, "Response Method  : ", response%method
-        print *, "Response Content : ", response%content
+        print *, 'Response Code    : ', response%status_code
+        print *, 'Response Length  : ', response%content_length
+        print *, 'Response Method  : ', response%method
+        print *, 'Response Content : ', response%content
     end if
 
-end program simple_get
+end program simple_get

src/http/http_client.f90

@@ -179,12 +179,15 @@ function client_header_callback(ptr, size, nmemb, client_data) bind(c)
         ! Convert C pointer to Fortran allocatable character.
         call c_f_str_ptr(ptr, buf, nmemb)
         if (.not. allocated(buf)) return
+        ! Parsing Header, and storing in hashmap
         if(len(response%header_string) /= 0 .and. len(buf) > 2) then
             i = index(buf, ':')
             h_key = trim(buf(:i-1))
             h_value = buf(i+2 : )
             h_value = h_value( : len(h_value)-2)
-            call response%header%set(key(h_key), value=h_value)
+            if(len(h_value) > 0 .and. len(h_key) > 0) then
+                call response%header%set(key(h_key), value=h_value)
+            end if
         end if
         response%header_string = response%header_string // buf
         deallocate (buf)

test/check.f90

@@ -0,0 +1,64 @@
+program test_get
+    use iso_fortran_env, only: stderr => error_unit
+    use fhash, only:  key => fhash_key, fhash_iter_t, fhash_key_t
+    use http, only : response_type, request
+    implicit none
+    type(response_type) :: res
+    character(:), allocatable :: msg, original_content
+    logical :: ok = .true.
+
+    type(fhash_iter_t) :: iter
+    class(fhash_key_t), allocatable :: ikey
+    class(*), allocatable :: idata
+    integer :: header_counter = 0, original_header_count = 19
+
+    original_content = '{"id":15726,"user_id":2382773,&
+    &"title":"Somnus ventosus theatrum delinquo spargo.",&
+    &"due_on":"2023-06-09T00:00:00.000+05:30",&
+    &"status":"completed"}'
+
+    res = request(url='https://gorest.co.in/public/v2/todos/15726')
+    
+    msg = 'test_get: '
+    if (.not. res%ok) then
+        ok = .false.
+        msg = msg // res%err_msg
+        write(stderr, *) msg
+        error stop 1
+    end if
+
+    if (res%status_code /= 200) then
+        ok = .false.
+        msg = msg // 'test case 1, '
+    end if
+
+    if (res%content_length /= len(original_content) .or. len(res%content) /= len(original_content)) then
+        ok = .false.
+        msg = msg // 'test case 2, '
+        print *, res%content_length, " ", len(original_content), " ", len(res%content)
+    end if
+
+    if (res%content /= original_content) then
+        ok = .false.
+        msg = msg // 'test case 3, '
+    end if
+
+    iter = fhash_iter_t(res%header)
+    do while(iter%next(ikey,idata))
+        header_counter = header_counter + 1
+    end do
+
+    if (header_counter /= original_header_count) then
+        ok = .false.
+        msg = msg // 'test case 4, '
+    end if
+
+    if (.not. ok) then
+        msg = msg // 'Failed.'
+        write(stderr, *) msg
+        error stop 1
+    else
+        msg = msg // 'All Test case Passed.'
+        print '(a)', msg 
+    end if
+end program test_get