added_response_parsing

Author: phgachoud

sheets/src/eg_sheets_api.e

@@ -41,6 +41,8 @@ feature -- Access
 	version: STRING_8
 			-- Google Sheets version
 
+	spreadsheet_id: detachable STRING
+
 
 feature -- Spreedsheets
 
@@ -54,6 +56,22 @@ feature -- Spreedsheets
 				attached last_response as l_response and then
 				attached l_response.body as l_body
 			then
+				parse_last_response
+				Result := l_body
+			end
+		end
+
+	get_from_id (a_spreadsheet_id: attached like spreadsheet_id): detachable like last_response.body
+			-- https://developers.google.com/sheets/api/reference/rest/v4/spreadsheets/get
+		require
+			not a_spreadsheet_id.is_empty
+		do
+			api_post_call (sheets_url ("spreadsheets/" + a_spreadsheet_id, Void ), Void, Void)
+			check
+				attached last_response as l_response and then
+				attached l_response.body as l_body
+			then
+				parse_last_response
 				Result := l_body
 			end
 		end
@@ -83,6 +101,39 @@ feature -- Parameters Factory
 
 feature -- Error Report
 
+	parse_last_response
+		require
+			attached last_response
+		local
+			l_json_parser: JSON_PARSER
+		do
+			check
+				attached last_response as l_response
+			then
+				if attached l_response.body as l_body then
+					create l_json_parser.make_with_string (l_body)
+					l_json_parser.parse_content
+					if l_json_parser.is_valid then
+						if attached {JSON_OBJECT} l_json_parser.parsed_json_value as l_main_jso then
+							if attached {JSON_OBJECT} l_main_jso.item ("error") as l_error_jso then
+								if attached {JSON_NUMBER} l_error_jso.item ("code") as l_jso then
+									print ("parse_last_response-> error code:" + l_jso.representation)
+								end
+								if attached {JSON_STRING} l_error_jso.item ("message") as l_jso then
+									print ("parse_last_response-> error message:" + l_jso.unescaped_string_8)
+								end
+								if attached {JSON_STRING} l_error_jso.item ("status") as l_jso then
+									print ("parse_last_response-> error status:" + l_jso.unescaped_string_8)
+								end
+							end
+						end
+					else
+						print ("parse_last_response-> Error: Invalid json body content:" + l_body + "%N")
+					end
+				end
+			end
+		end
+
 	has_error: BOOLEAN
 			-- Last api call raise an error?
 		do

sheets/test/test_sheets_api.e

@@ -20,6 +20,7 @@ feature -- {NONE}
 			set_from_json_credentials_file_path (create {PATH}.make_from_string ("/home/pg/tmp/eg-sheets/eg-sheets_credentials_eg-suite-desktop-api.json"))
 			retrieve_access_token
 			test_create_sheet
+--			test_get_sheet ("1v1N4nRa6mmLcP9rUuyQPiCnLuUcBQFDEC7E0CDg3ASI")
 		end
 
 
@@ -60,6 +61,39 @@ feature -- Tests
 			end
 		end
 
+	test_get_sheet (an_id: attached like {EG_SHEETS_API}.spreadsheet_id)
+		local
+			l_esapi: EG_SHEETS_API
+		do
+			create l_esapi.make (last_token.token)
+			if attached l_esapi.get_from_id (an_id) as l_spreedsheet_get_result then
+				if l_esapi.has_error then
+--					debug ("test_create_sheet")
+						print ("test_create_sheet-> Error   %N" )
+						print ("test_create_sheet-> Error: msg:" + l_esapi.error_message)
+						print ("test_create_sheet-> See codes here: https://developers.google.com/maps-booking/reference/rest-api-v3/status_codes")
+						print ("%N")
+--					end
+					check
+						cannot_create_the_spreedsheet: False
+					end
+				else
+					check  Json_Field_spreadsheetId: l_spreedsheet_get_result.has_substring ("spreadsheetId") end
+					check  Json_Field_properties: l_spreedsheet_get_result.has_substring ("properties") end
+					check  Json_Field_sheets: l_spreedsheet_get_result.has_substring ("sheets") end
+					check  Json_Field_spreadsheetUrl: l_spreedsheet_get_result.has_substring ("spreadsheetUrl") end
+						-- developerMetadata and namedRanges are optional.
+--					debug ("test_create_sheet")
+						print ("test_get_sheet-> success. Result:%N")
+						print (l_spreedsheet_get_result + "%N")
+--					end
+				end
+			else
+					-- Bad scope. no connection, etc
+				check Unexptected_Behavior: False end
+			end
+		end
+
 	test_create_sheet_json
 		local
 			l_esapi: EG_SHEETS_JSON