#! perl -w

######################### We start with some black magic to print on failure.
BEGIN { $| = 1; print "1..3\n"; }
END {print "not ok 1\n" unless $loaded;}
use Win32::API::Guid 'generate';
$loaded = 1;
print "ok 1\n";
######################### End of black magic.

{
	local $" = "\n";
	@a = generate();
	print "@a\n";
	print scalar(@a) == 1 ? "ok" : "not ok", " 2\n";
	@a = generate(5);
	print "@a\n";
	print scalar(@a) == 5 ? "ok" : "not ok", " 3\n";
}