network.t 318 Bytes
Newer Older
1 2 3 4 5 6
#!/usr/bin/perl
use SemiModern::Perl;
use TBConfig;
use Tools::Network;
use Tools::TBSSH;
use Data::Dumper;
7
use Test::More tests => 2;
8

9
ok(Tools::Network::ping($TBConfig::OPS_SERVER), 'ping');
Kevin Tew's avatar
Kevin Tew committed
10
ok(Tools::Network::traceroute($TBConfig::OPS_SERVER, 'boss.emulab.net', 'public-router', 'boss'), 'traceroute ops to boss');