#!/usr/bin/perl # # $Copyright$ # # $TAHI: ct/mip6-cn-19/HoTI_HaO.seq,v 1.1 2003/01/10 13:21:24 akisada Exp $ # ################################################################ BEGIN {$V6evalTool::TestVersion = '$Name: $';} use V6evalTool; use MIP6; my $IF0 = 'Link0'; my $NutType = $V6evalTool::NutDef{'Type'}; vCapture($IF0); #--------------------------------------------------------------# vLogHTML('INITIALIZATION
'); vClear($IF0); vLogHTML('Check Reachability
'); if(MIP6_CheckReachability($IF0) < 0) { vLogHTML('Can\'t get Echo Reply
'); exit($V6evalTool::exitFail); } vClear($IF0); vLogHTML('Return Routability Procedure
'); my %rr = MIP6_ReturnRoutability($IF0); if($rr{'status'} < 0) { vLogHTML('Can\'t complete RR
'); exit($V6evalTool::exitFail); } vClear($IF0); vLogHTML('Requests to Cache a Binding
'); my $sn = 0; my $a = 0; my $lt = 0xffff; if(MIP6_ProcessingBindingsNoAck($IF0, $sn, $a, $lt, %rr) < 0) { vLogHTML('BA SHOULD NOT be sent.
'); exit($V6evalTool::exitWarn); } vClear($IF0); vLogHTML('Check Binding Cache
'); if(MIP6_CheckBindingCache($IF0) < 0) { vLogHTML('Can\'t get Echo Reply
'); exit($V6evalTool::exitFail); } #--------------------------------------------------------------# vLogHTML('TEST PROCEDURE
'); vClear($IF0); vLogHTML('Receiving HoTI
'); if(MIP6_NoResponse($IF0, 'HoTI_HaO') < 0) { vLogHTML('Recv unexpect packets
'); exit($V6evalTool::exitFail); } vStop($IF0); vLogHTML('PASS
'); exit($V6evalTool::exitPass); # # perldoc # ################################################################ __END__ =head1 NAME HoTI_HaO - Receiving invalid HoTI (include HaO) =head1 TARGET =begin html

Host/Router

=end html =head1 SYNOPSIS =begin html

HoTI_HaO.seq [-tooloption ...] -pkt HoTI_HaO.def

-tooloption: v6eval tool option

=end html =head1 TOPOLOGY =begin html

                                MN'
                                |
                --------+-------+------- LinkY
                        |
                        R1      MN
                        |       |
        --------+-------+-------+------- LinkX
                |
       NUT      R0
        |       |
--------+-------+----------------------- Link0

Link0 global 3ffe:501:ffff:100::/64

LinkX global 3ffe:501:ffff:102::/64 home link

LinkY global 3ffe:501:ffff:103::/64 foreign link

R0(Link0) global 3ffe:501:ffff:100::a0a0

link-local fe80::200:ff:fe00:a0a0

ether 00:00:00:00:a0:a0

MN global 3ffe:501:ffff:102:200:ff:fe00:21 home address

MN' global 3ffe:501:ffff:103:200:ff:fe00:21 care-of address

=end html =head1 INITIALIZATION =begin html

NUT      MN      MN'
 |       |       |
 | <------------ | Echo Request
 | ------------> | Echo Reply
 |       |       |
 | <---- |       | HoTI
 | <------------ | CoTI
 | ----> |       | HoT
 | ------------> | CoT
 |       |       |
 | <------------ | BU
 | --X   |       | no response
 |       |       |
 | <------------ | Echo Request w/ HaO
 | ------------> | Echo Reply w/ RH
 |       |       |

 1. Send Echo Request
 2. Wait Echo Reply
 3. Receive Echo Reply
 4. Send HoTI & CoTI
 5. Wait HoT & CoT
 6. Receive HoT & CoT
 7. Send BU
 8. No response
 9. Send Echo Request w/ HaO
10. Wait Echo Reply w/ RH
11. Receive Echo Reply w/ RH

=end html =head1 TEST PROCEDURE =begin html

NUT      MN'
 |       |
 | <---- | HoTI (include HaO)
 | --X   | no response
 |       |

1. Send HoTI (include HaO)
2. no response

=end html =head1 JUDGEMENT =begin html

PASS: no response

=end html =head1 SEE ALSO =begin html

MIP6.pm
MIP6.def

=end html =cut

`Link0`	`global`	`3ffe:501:ffff:100::/64`
`LinkX`	`global`	`3ffe:501:ffff:102::/64`	`home link`
`LinkY`	`global`	`3ffe:501:ffff:103::/64`	`foreign link`
`R0(Link0)`	`global`	`3ffe:501:ffff:100::a0a0`
	`link-local`	`fe80::200:ff:fe00:a0a0`
	`ether`	`00:00:00:00:a0:a0`
`MN`	`global`	`3ffe:501:ffff:102:200:ff:fe00:21`	`home address`
`MN'`	`global`	`3ffe:501:ffff:103:200:ff:fe00:21`	`care-of address`