--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/bluez-links.tcl	Thu Apr 21 14:57:45 2011 +0100
@@ -0,0 +1,65 @@
+#
+#    Copyright 2007 Baylor University
+# 
+#    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.
+#
+
+# name of test
+test::name bluez_links
+
+# these options need to be automated, perhaps?
+net::num_nodes 2
+set cl bt
+
+dtn::config --router_type static --no_null_link
+
+testlog "Configuring Bluetooth interfaces / links"
+dtn::config_interface $cl ""
+
+testlog "Reading Bluetooth adapter addresses from each host"
+bluez::getbdaddr *
+dtn::config_linear_topology ONDEMAND $cl true
+
+test::script {
+
+    testlog "Running dtnds"
+    dtn::run_dtnd *
+
+    testlog "Waiting for dtnds to start up"
+    dtn::wait_for_dtnd *
+
+    set source "[dtn::tell_dtnd 0 {route local_eid}]/test"
+    set dest   "[dtn::tell_dtnd 1 {route local_eid}]/test"
+
+    dtn::tell_dtnd 1 tcl_registration $dest
+
+    testlog "sending bundle"
+    set timestamp [dtn::tell_dtnd 0 sendbundle $source $dest]
+
+    # wait for stuff to happen
+    after 2000
+
+    testlog "waiting for arrival"
+    dtn::wait_for_bundle 1 "$source,$timestamp" 9
+
+    testlog "sanity checking stats"
+    dtn::wait_for_bundle_stats 0 {1 received 1 transmitted} 5
+    dtn::wait_for_bundle_stats 1 {1 received 0 transmitted} 5
+
+    testlog "Test success!"
+}
+
+test::exit_script {
+    testlog "stopping dtnds"
+    dtn::stop_dtnd *
+}