diff -r 000000000000 -r 2b3e5ec03512 test/dtn-ping.tcl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/dtn-ping.tcl	Thu Apr 21 14:57:45 2011 +0100
@@ -0,0 +1,92 @@
+#
+#    Copyright 2005-2006 Intel Corporation
+# 
+#    Licensed under the Apache License, Version 2.0 (the "License");
+#    you may not use this file except in compliance with the License.
+#    You may obtain a copy of the License at
+# 
+#        http://www.apache.org/licenses/LICENSE-2.0
+# 
+#    Unless required by applicable law or agreed to in writing, software
+#    distributed under the License is distributed on an "AS IS" BASIS,
+#    WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#    See the License for the specific language governing permissions and
+#    limitations under the License.
+#
+
+test::name dtn-ping
+net::num_nodes 3
+
+manifest::file apps/dtnping/dtnping dtnping
+
+global num_pings
+set num_pings 10
+set clayer tcp
+set sched ltp.sched
+foreach {var val} $opt(opts) {
+    if {$var == "-n" } {
+	set num_pings $val
+	
+    } elseif {$var == "-cl" } {
+        set clayer $val
+   
+    } elseif {$var == "-s" } {
+	set sched $val
+
+    } else {
+	testlog error "ERROR: unrecognized test option '$var'"
+	exit 1
+    }
+}
+
+dtn::config
+
+dtn::config_interface $clayer
+dtn::config_linear_topology ALWAYSON $clayer true
+test::script {
+    if {$var == "-s" } {
+	dtn::config_ltp_schedule $clayer $sched
+}
+    global num_pings
+    testlog "Running dtnds"
+    dtn::run_dtnd *
+
+    testlog "Waiting for dtnds to start up"
+    dtn::wait_for_dtnd *
+
+    set N [net::num_nodes]
+    set last_node [expr $N - 1]
+
+    set dest      dtn://host-0/
+#    testlog "receiving node is $first_node and sending node is $last_node"
+
+    for {set i $last_node} {$i >= 0} {incr i -1} {
+	testlog "Dtnping'ing from node $last_node to dtn://host-$i\
+	    for $num_pings pings (one per second)"
+	set pid [dtn::run_app $last_node dtnping "-c $num_pings dtn://host-$i/ping"]
+	after [expr ($num_pings -1) * 1000]
+	run::wait_for_pid_exit $last_node $pid 30
+    }
+    
+    for {set i 0} {$i < $last_node} {incr i} {
+	testlog "Checking bundle stats on node $i"
+	dtn::wait_for_bundle_stats $i [list $num_pings "delivered" \
+		$num_pings "generated" \
+		[expr $num_pings + ($num_pings * 2 * $i)] "received"] 5000
+    }
+    
+    # Last node is the ping source so it *also* has N * num_pings
+    # locally delivered due to the delivery of the ping responses:
+    testlog "Checking bundle stats on node $last_node"
+    dtn::wait_for_bundle_stats $last_node [list \
+	    [expr $num_pings * (1 + $N)]  "delivered" \
+	    $num_pings "generated" \
+	    [expr $num_pings + ($num_pings * 2 * $last_node) ] "received"] 5000
+    
+    testlog "Test success!"
+}
+
+test::exit_script {
+    testlog "Stopping all dtnds"
+    dtn::stop_dtnd *
+}