#!/usr/bin/perl # # $Copyright$ # # $TAHI: ct/mip6-mn-19/Initialization.seq,v 1.4 2003/01/08 01:35:02 akisada Exp $ # ################################################################ BEGIN {$V6evalTool::TestVersion = '$Name: $';} use V6evalTool; use MIP6; my $IF0 = 'Link0'; if($V6evalTool::NutDef{'Type'} ne 'host') { vLogHTML('This test is for only the host.
'); exit($V6evalTool::exitHostOnly); } vCapture($IF0); #--------------------------------------------------------------# vLogHTML('INITIALIZATION
'); vClear($IF0); vLogHTML('Initialize target
'); if(vRemote('reboot.rmt', '')) { vLogHTML('reboot.rmt: Can\'t reboot
'); exit($V6evalTool::exitFatal); } vSleep(3); #--------------------------------------------------------------# vLogHTML('TEST PROCEDURE
'); vClear($IF0); vLogHTML('Check Reachability
'); if(MIP6_CheckReachability($IF0) < 0) { vLogHTML('Can\'t get Echo Reply
'); exit($V6evalTool::exitFail); } vStop($IF0); vLogHTML('PASS
'); exit($V6evalTool::exitPass); # # perldoc # ################################################################ __END__ =head1 NAME Initialization - Initialization =head1 TARGET =begin html 
Host
=end html =head1 SYNOPSIS =begin html 
Initialization.seq [-tooloption ...] -pkt Initialization.def

-tooloption: v6eval tool option
=end html =head1 TOPOLOGY =begin html 
       NUT     HA0
        |       |
--------+-------+------- Link0
Link0 link-local fe80::/64
HA0 link-local fe80::200:ff:fe00:a0a0
ether 0:0:0:0:a0:a0
=end html =head1 INITIALIZATION =begin html
  • Reboot NUT (reboot.rmt)
=end html =head1 TEST PROCEDURE =begin html 
NUT     HA0
 |       |
 | <---- | Echo Request
 | ----> | Echo Reply
 |       |


1. Send Echo Request
2. Wait Echo Reply
3. Receive Echo Reply
=end html =head1 JUDGEMENT =begin html 
PASS: HA0 receives Echo Reply
=end html =head1 SEE ALSO =begin html 
MIP6.pm
MIP6.def
=end html =cut