diff -r 000000000000 -r 2b3e5ec03512 test/is-singleton.tcl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/is-singleton.tcl	Thu Apr 21 14:57:45 2011 +0100
@@ -0,0 +1,114 @@
+#
+#    Copyright 2007 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 is-singleton
+net::num_nodes 1
+manifest::file apps/dtnsend/dtnsend dtnsend
+dtn::config
+dtn::config_topology_common false
+
+test::script {
+    testlog "Running dtnd"
+    dtn::run_dtnd 0
+
+    testlog "Waiting for dtnd to start up"
+    dtn::wait_for_dtnd *
+
+    testlog "Setting up flamebox ignores"
+    dtn::tell_dtnd 0 log /test always \
+	    "flamebox-ignore ign1 client disconnected without calling dtn_close"
+    dtn::tell_dtnd 0 log /test always \
+	    "flamebox-ignore ign2 bundle destination .* in unknown scheme and app did not assert.*"
+    dtn::tell_dtnd 0 log /test always \
+	    "flamebox-ignore ign3 error sending bundle.*"
+    
+    testlog "Adding some registrations"
+    dtn::tell_dtnd 0 tcl_registration dtn://host-0*/* 
+    dtn::tell_dtnd 0 tcl_registration str:string
+    dtn::tell_dtnd 0 tcl_registration str:string*
+    dtn::tell_dtnd 0 tcl_registration unknown:something
+
+    proc test {dest opts is_singleton} {
+        testlog "Testing $dest with opts \"$opts\""
+
+        set pid [dtn::run_app 0 dtnsend "-s dtn://host-0/source -t d -d $dest $opts"]
+        run::wait_for_pid_exit 0 $pid
+        
+        if {$is_singleton == "fail"} {
+            global net::host run::dirs
+            set log [run::run_cmd $net::host(0) cat $run::dirs(0)/dtnsend.out]
+            if {$log != "error sending bundle: -1 (invalid argument)"} {
+                error "expected failure, output is \"$log\""
+            }
+            # clear the output file
+            run::run_cmd $net::host(0) echo "" > $run::dirs(0)/dtnsend.out
+            
+        } else {
+            dtn::wait_for_bundle_stats 0 {1 delivered}
+            set guid [lindex [tell_dtnd 0 array names bundle_info] 0]
+            dtn::check_bundle_data 0 $guid singleton_dest $is_singleton
+        }
+        
+        dtn::tell_dtnd 0 bundle reset_stats
+        dtn::tell_dtnd 0 array unset bundle_info
+    }
+
+    testlog ""
+    testlog "Testing known schemes..."
+    testlog ""
+    test dtn://host-0/foo     "" 1
+    test \"dtn://host-*/foo\" "" 0
+    test dtn://host-0/foo     "-1" 1
+    test dtn://host-0/foo     "-N" 0
+    test \"dtn://host-*/foo\" "-1" 1
+    test \"dtn://host-*/foo\" "-N" 0
+
+    test str:string      "" 1
+    test str:string*     "" 1
+    test str:string      "-1" 1
+    test str:string*     "-1" 1
+    test str:string      "-N" 0
+    test str:string*     "-N" 0
+
+
+    testlog ""
+    testlog "Testing unknown scheme..."
+    testlog ""
+
+    test unknown:something "" 0
+    testlog "Setting is_singleton_default to singleton"
+    tell_dtnd 0 param set is_singleton_default singleton
+    test unknown:something "" 1
+    
+    testlog "Setting is_singleton_default to unknown"
+    tell_dtnd 0 param set is_singleton_default unknown
+    test unknown:something "" fail
+    test unknown:something "-1" 1
+    test unknown:something "-N" 0
+    
+    
+    testlog "Test success!"
+}
+
+test::exit_script {
+    testlog "Clearing flamebox ignores"
+    tell_dtnd 0 log /test always "flamebox-ignore-cancel ign1"
+    tell_dtnd 0 log /test always "flamebox-ignore-cancel ign2"
+    tell_dtnd 0 log /test always "flamebox-ignore-cancel ign3"
+    
+    testlog "Stopping all dtnds"
+    dtn::stop_dtnd *
+}