#!perl -w
# -*- Mode: Perl -*-
# $Basename$
# $Revision: 1.7 $
# Author : Ulrich Pfeifer
# Created On : Thu Feb 22 23:18:12 2001
# Last Modified By: Ulrich Pfeifer
# Last Modified On: Fri Feb 23 03:57:11 2001
# Language : CPerl
#
# (C) Copyright 2001, UUNET Deutschland GmbH, Germany
#
use strict;
use Test;
BEGIN { plan tests => 9 }
use Parallel::Pvm;
my $inum = Parallel::Pvm::joingroup("foo");
ok($inum >= 0);
my $onum = Parallel::Pvm::lvgroup("foo");
ok($onum >= 0);
#ok($inum == $onum);
my $qnum = Parallel::Pvm::lvgroup("foo");
ok($qnum < 0);
$inum = Parallel::Pvm::joingroup("foo");
Parallel::Pvm::initsend(PvmDataRaw);
Parallel::Pvm::pack("Hello");
my $info = Parallel::Pvm::bcast("foo",17);
ok($info == -21); # nobody listening
$info = Parallel::Pvm::freezegroup("foo");
ok($info >= 0);
$info = Parallel::Pvm::barrier("foo", 1);
ok($info >= 0);
$info = Parallel::Pvm::getinst("foo", -1); # -1 seems to be "any"
ok($info >= 0);
$info = Parallel::Pvm::gettid("foo", $inum);
ok($info >= 0);
$info = Parallel::Pvm::gsize("foo");
ok($info == 1);