#include <stdio.h>

#include <winpr/crt.h>

#include <winpr/tchar.h>

#include <winpr/environment.h>

int TestEnvironmentGetEnvironmentStrings(int argc, char* argv[])

{

	int r = -1;

	TCHAR* p;

	size_t length;

	LPTCH lpszEnvironmentBlock;

	WINPR_UNUSED(argc);

	WINPR_UNUSED(argv);

	lpszEnvironmentBlock = GetEnvironmentStrings();

	p = lpszEnvironmentBlock;

	while (p[0] && p[1])

	{

		const int rc = _sntprintf(NULL, 0, _T("%s\n"), p);

		if (rc < 1)

		{

			_tprintf(_T("test failed: return %d\n"), rc);

			goto fail;

		}

		length = _tcslen(p);

		if (length != (size_t)(rc - 1))

		{

			_tprintf(_T("test failed: length %") _T(PRIuz) _T(" != %d [%s]\n"), length, rc - 1, p);

			goto fail;

		}

		p += (length + 1);

	}

	r = 0;

fail:

	FreeEnvironmentStrings(lpszEnvironmentBlock);

	return r;

}