#Include "Json.au3"
#include <array.au3>

Local $Json1 = FileRead(@ScriptDir & "\test.json")
Local $Data1 = Json_Decode($Json1)

Test2()
;If Test1() And Test2() And Test3() Then MsgBox(0, "Json UDF Test", "All Passed !")

Func Test1()
	Local $Json1 = FileRead(@ScriptDir & "\test.json")
	Local $Data1 = Json_Decode($Json1)
	Local $Json2 = Json_Encode($Data1)

	Local $Data2 = Json_Decode($Json2)
	Local $Json3 = Json_Encode($Data2)

	ConsoleWrite("Test1 Result: " & $Json3 & @LF)
	Return ($Json2 = $Json3)
EndFunc

Func Test2()
	Local $Json1 = '[{"access_token":"25f64a9e27b7903eacdff8e36fd74c80","vehicles":[{"id":5649,"name":"Ebike6","petrol_usage_per_kilometer":null,"petrol_type":null,"frequency_usage_per_week":null,"co2_emission_per_km":null,"travel_time_per_day":null,"travel_distance_per_day":null,"type":{"id":3,"name":"Bike","combustion":false},"deleted_at":null},{"id":5650,"name":"Ebike7","petrol_usage_per_kilometer":null,"petrol_type":null,"frequency_usage_per_week":null,"co2_emission_per_km":null,"travel_time_per_day":null,"travel_distance_per_day":null,"type":{"id":3,"name":"Bike","combustion":false},"deleted_at":null},{"id":5651,"name":"Ebike8","petrol_usage_per_kilometer":null,"petrol_type":null,"frequency_usage_per_week":null,"co2_emission_per_km":null,"travel_time_per_day":null,"travel_distance_per_day":null,"type":{"id":3,"name":"Bike","combustion":false},"deleted_at":null},{"id":5652,"name":"Ebike9","petrol_usage_per_kilometer":null,"petrol_type":null,"frequency_usage_per_week":null,"co2_emission_per_km":null,"travel_time_per_day":null,"travel_distance_per_day":null,"type":{"id":3,"name":"Bike","combustion":false},"deleted_at":null},{"id":5657,"name":"Default Car","petrol_usage_per_kilometer":0.07142857142857142,"petrol_type":"gasoline","frequency_usage_per_week":5,"co2_emission_per_km":171,"travel_time_per_day":20,"travel_distance_per_day":15,"type":{"id":1,"name":"Car","combustion":true},"deleted_at":null},{"id":5658,"name":"Default Bike","petrol_usage_per_kilometer":null,"petrol_type":null,"frequency_usage_per_week":null,"co2_emission_per_km":null,"travel_time_per_day":null,"travel_distance_per_day":null,"type":{"id":3,"name":"Bike","combustion":false},"deleted_at":null}]}]'
	Local $Data1 = Json_Decode($Json1)

	Local $Json2 = Json_Encode($Data1, $Json_UNQUOTED_STRING)
	Local $Data2 = Json_Decode($Json2)

	Local $Json3 = Json_Encode($Data2, $Json_PRETTY_PRINT, "  ", "\n", "\n", ",")
	Local $Data3 = Json_Decode($Json3)

	Local $Json4 = Json_Encode($Data3, $Json_STRICT_PRINT)

	ConsoleWrite("Test3 Unquoted Result: " & $Json2 & @LF)
	ConsoleWrite("Test3 Pretty Result: " & $Json3 & @LF)
	Return ($Json1 = $Json4)
EndFunc

Func Test3()
	Local $Obj
	Json_Put($Obj, ".foo", "foo")
	Json_Put($Obj, ".bar[0]", "bar")
	Json_Put($Obj, ".test[1].foo.bar[2].foo.bar", "Test") ; dot notation

	Local $Json = Json_Encode($Obj)
	ConsoleWrite("Test3 Result: " & $Json & @LF)

	Return Json_Get($Obj, '["test"][1]["foo"]["bar"][2]["foo"]["bar"]') = "Test" ; square bracket notation
EndFunc