1 #

     2 #    Copyright 2006 Intel Corporation

     3 # 

     4 #    Licensed under the Apache License, Version 2.0 (the "License");

     5 #    you may not use this file except in compliance with the License.

     6 #    You may obtain a copy of the License at

     7 # 

     8 #        http://www.apache.org/licenses/LICENSE-2.0

     9 # 

    10 #    Unless required by applicable law or agreed to in writing, software

    11 #    distributed under the License is distributed on an "AS IS" BASIS,

    12 #    WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.

    13 #    See the License for the specific language governing permissions and

    14 #    limitations under the License.

    15 #

    16 

    17 test::name no-duplicate-send

    18 net::num_nodes 3

    19 

    20 dtn::config

    21 

    22 set clayer tcp

    23 set length 5000

    24 

    25 foreach {var val} $opt(opts) {

    26     if {$var == "-cl" || $var == "cl"} {

    27 	set clayer $val

    28     } elseif {$var == "-length" || $var == "length"} {

    29         set length $val	

    30     } else {

    31 	puts "ERROR: unrecognized test option '$var'"

    32 	exit 1

    33     }

    34 }

    35 

    36 testlog "Configuring $clayer interfaces / links"

    37 dtn::config_interface $clayer

    38 dtn::config_linear_topology ALWAYSON $clayer true

    39 conf::add dtnd * "param set early_deletion false"

    40 

    41 test::script {

    42     testlog "Running dtnds"

    43     dtn::run_dtnd *

    44 

    45     testlog "Waiting for dtnds to start up"

    46     dtn::wait_for_dtnd *

    47     

    48     set last_node [expr [net::num_nodes] - 1]

    49     set source    [dtn::tell_dtnd $last_node {route local_eid}]

    50     set dest      dtn://host-0/test

    51     

    52     dtn::tell_dtnd 0 tcl_registration $dest

    53     

    54     testlog "Sending bundle"

    55     set timestamp [dtn::tell_dtnd $last_node sendbundle $source $dest length=$length]

    56     

    57     testlog "Waiting for bundle arrival"

    58     dtn::wait_for_bundle 0 "$source,$timestamp" 30

    59 

    60     testlog "Checking bundle data"

    61     dtn::check_bundle_data 0 "$source,$timestamp" \

    62 	    is_admin 0 source $source dest $dest

    63     

    64     testlog "Checking that bundle was received"

    65     dtn::wait_for_bundle_stat 0 1 received

    66     dtn::wait_for_bundle_stat 1 1 transmitted

    67     dtn::wait_for_bundle_stat 2 1 transmitted

    68 

    69     testlog "Checking that bundle still pending"

    70     dtn::wait_for_bundle_stat 0 1 pending

    71     dtn::wait_for_bundle_stat 1 1 pending

    72     dtn::wait_for_bundle_stat 2 1 pending

    73 

    74     testlog "Stopping and restarting link"

    75     dtn::tell_dtnd 2 link close tcp-link:2-1

    76     dtn::wait_for_link_state 2 tcp-link:2-1 UNAVAILABLE

    77     dtn::tell_dtnd 2 link open tcp-link:2-1

    78     dtn::wait_for_link_state 2 tcp-link:2-1 OPEN

    79 

    80     testlog "Checking that bundle was not retransmitted"

    81     dtn::wait_for_bundle_stat 0 1 received

    82     dtn::wait_for_bundle_stat 1 1 transmitted

    83     dtn::wait_for_bundle_stat 2 1 transmitted

    84     

    85     dtn::wait_for_bundle_stat 0 1 pending

    86     dtn::wait_for_bundle_stat 1 1 pending

    87     dtn::wait_for_bundle_stat 2 1 pending

    88     

    89     testlog "Test success!"

    90 }

    91 

    92 test::exit_script {

    93     testlog "Stopping all dtnds"

    94     dtn::stop_dtnd *

    95 }