data/PVE/test.pl

   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