import net.http

fn test_https_get() {
	$if !network ? {
		return
	}
	assert http.get_text('https://vlang.io/version') == '0.1.5'
	println('https ok')
}

fn test_http_get_from_vlang_utc_now() {
	$if !network ? {
		return
	}
	url := 'http://vlang.io/utc_now'
	println('Test getting current time from HTTP ${url} by http.get')
	res := http.get(url) or { panic(err) }
	assert res.status() == .ok
	assert res.body != ''
	assert res.body.int() > 1566403696
	println('Current time is: ${res.body.int()}')
}

fn test_https_get_from_vlang_utc_now() {
	$if !network ? {
		return
	}
	url := 'https://vlang.io/utc_now'
	println('Test getting current time from HTTPS ${url} by http.get')
	res := http.get(url) or { panic(err) }
	assert res.status() == .ok
	assert res.body != ''
	assert res.body.int() > 1566403696
	println('Current time is: ${res.body.int()}')
}

fn test_http_public_servers() {
	$if !network ? {
		return
	}
	urls := [
		'http://github.com/robots.txt',
		'http://google.com/robots.txt',
		// 'http://yahoo.com/robots.txt',
	]
	for url in urls {
		println('Testing http.get on public HTTP url: ${url} ')
		res := http.get(url) or { panic(err) }
		assert res.status() == .ok
		assert res.body != ''
	}
}

fn test_https_public_servers() {
	$if !network ? {
		return
	}
	urls := [
		'https://github.com/robots.txt',
		'https://google.com/robots.txt',
		// 'https://yahoo.com/robots.txt',
	]
	for url in urls {
		println('Testing http.get on public HTTPS url: ${url} ')
		res := http.get(url) or { panic(err) }
		assert res.status() == .ok
		assert res.body != ''
	}
}

fn test_relative_redirects() {
	$if !network ? {
		return
	}
	res := http.get('https://httpbin.org/relative-redirect/3?abc=xyz') or { panic(err) }
	assert res.status() == .ok
	assert res.body != ''
	assert res.body.contains('"abc": "xyz"')
}

fn test_default_user_agent() {
	$if !network ? {
		return
	}
	res := http.get('https://httpbin.org/user-agent') or { panic(err) }
	assert res.status() == .ok
	assert res.body != ''
	assert res.body.contains('"user-agent": "v.http"')
}

fn test_custom_user_agent() {
	$if !network ? {
		return
	}
	ua := 'V http test for UA'
	mut req := http.new_request(.get, 'https://httpbin.org/user-agent', '')
	req.user_agent = ua
	res := req.do() or { panic(err) }
	assert res.status() == .ok
	assert res.body != ''
	assert res.body.contains('"user-agent": "${ua}"')
}