[pve-cluster.git] / data / PVE / test.pl

#!/usr/bin/perl -w

use strict;

use PVE::IPCC;

if (defined(my $res = PVE::IPCC::ipcc_send_rec(2))) {
    print "GOT: $res\n";
} else {
    die "ipcc_send_rec failed: $!\n";
}
exit 0;

my $i = 0;
    

for($i = 0; $i < 10000; $i++) {
    print "t1\n";
    print "c1: " . PVE::IPCC::ipcc_send_rec(1, "adas\0defg") . "\n";
    print "t1\n";
}
Commit	Line	Data
fe000966 DM	1	#!/usr/bin/perl -w
	2
	3	use strict;
	4
	5	use PVE::IPCC;
	6
	7	if (defined(my $res = PVE::IPCC::ipcc_send_rec(2))) {
	8	print "GOT: $res\n";
	9	} else {
	10	die "ipcc_send_rec failed: $!\n";
	11	}
	12	exit 0;
	13
	14	my $i = 0;
	15
	16
	17	for($i = 0; $i < 10000; $i++) {
	18	print "t1\n";
	19	print "c1: " . PVE::IPCC::ipcc_send_rec(1, "adas\0defg") . "\n";
	20	print "t1\n";
	21	}
	22