RateLimitParallelExample.pm 423 Bytes
Newer Older
1
#!/usr/bin/perl
Mike Hibler's avatar
Mike Hibler committed
2 3 4 5 6
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# All rights reserved.
#
7
package RateLimitParallelExample;
8
use TestBed::TestSuite;
9
use BasicNSs;
10
use Test::More;
11

12 13
my $test_body = sub {
  my $e = shift;
Kevin Tew's avatar
Kevin Tew committed
14
  my $eid = $e->eid;
Kevin Tew's avatar
Kevin Tew committed
15
  sleep(5);
Kevin Tew's avatar
Kevin Tew committed
16
  ok($e->ping_test, "$eid Ping Test");
Kevin Tew's avatar
Kevin Tew committed
17
  sleep(5);
18 19
};

20
rege(e("ksks$_"), $BasicNSs::SingleNode, $test_body, 1, "k$_ desc" ) for (1..5);
21

22
1;