1 #

     2 #    Copyright 2007 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-delivery

    18 net::num_nodes 2

    19 

    20 set testopt(cl)       tcp

    21 run::parse_test_opts

    22 

    23 set cl $testopt(cl)

    24 

    25 dtn::config

    26 dtn::config_interface $cl

    27 

    28 dtn::config_linear_topology ALWAYSON $cl true

    29 

    30 test::script {

    31     testlog "running dtnds"

    32     dtn::run_dtnd *

    33 

    34     testlog "waiting for dtnds to start up"

    35     dtn::wait_for_dtnd *

    36 

    37     set source    dtn://host-0/test

    38     set dest      dtn://host-1/test

    39     dtn::tell_dtnd 1 tcl_registration $dest

    40 

    41     testlog "waiting for links to establish"

    42     dtn::wait_for_link_state 0 $cl-link:0-1 OPEN

    43     dtn::wait_for_link_state 1 $cl-link:1-0 OPEN

    44 

    45     testlog "telling node 0 not to delete bundles"

    46     tell_dtnd 0 "param set early_deletion false"

    47 

    48     testlog "sending a bundle"

    49     set timestamp1 [dtn::tell_dtnd 0 sendbundle $source $dest]

    50 

    51     testlog "checking that it was delivered but still pending"

    52     dtn::wait_for_bundle_stats 0 {1 pending 1 transmitted}

    53     dtn::wait_for_bundle_stats 1 {1 received 1 delivered}

    54 

    55     testlog "clearing the forwarding log and rerouting"

    56     tell_dtnd 0 bundle clear_fwdlog 0

    57     tell_dtnd 0 route recompute_routes

    58 

    59     dtn::wait_for_bundle_stats 0 {1 pending  2 transmitted}

    60     dtn::wait_for_bundle_stats 1 {2 received 1 delivered}

    61 }

    62 

    63 test::exit_script {

    64     testlog "stopping all dtnds"

    65     dtn::stop_dtnd *

    66 }