diff -r 000000000000 -r 2b3e5ec03512 applib/python/test-swig-api.py
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/applib/python/test-swig-api.py	Thu Apr 21 14:57:45 2011 +0100
@@ -0,0 +1,125 @@
+#!/usr/bin/env python
+#
+#    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.
+#
+
+#
+# SWIG exported dtn api example in perl
+#
+
+import sys
+from dtnapi import *;
+from select import select
+
+h = dtn_open();
+if (h == -1):
+    print "error in dtn_open";
+    sys.exit(1);
+
+print "handle is", h;
+
+print "creating a registration for a random eid string"
+regid = dtn_register(h, "dtn://foo/bar/baz", DTN_REG_DROP, 0, 0, "");
+print "created new registration -- id %d" % regid;
+
+print "unbinding registration "
+dtn_unbind(h, regid)
+
+src = dtn_build_local_eid(h, "src");
+dst = dtn_build_local_eid(h, "dst");
+
+print "src is", src, "dst is", dst;
+
+regid = dtn_find_registration(h, dst);
+if (regid != -1):
+    print "found existing registration -- id ", regid, " calling bind...";
+    dtn_bind(h, regid);
+else:
+    regid = dtn_register(h, dst, DTN_REG_DROP, 10, 0, "");
+    print "created new registration -- id regid";
+
+print "sending a bundle in memory...";
+id = dtn_send(h, regid, src, dst, "dtn:none", COS_NORMAL,
+	      0, 30, DTN_PAYLOAD_MEM, "test payload");
+
+print "bundle id: ", id;
+
+print "  source:", id.source;
+print "  creation_secs:",  id.creation_secs;
+print "  creation_seqno:", id.creation_seqno;
+
+del id;
+
+print "receiving a bundle in memory...";
+bundle = dtn_recv(h, DTN_PAYLOAD_MEM, 10000);
+
+print "bundle:";
+print "  source:", bundle.source;
+print "  dest:", bundle.dest;
+print "  replyto:", bundle.replyto;
+print "  priority:", bundle.priority;
+print "  dopts:", bundle.dopts;
+print "  expiration:", bundle.expiration;
+print "  creation_secs:", bundle.creation_secs;
+print "  creation_seqno:", bundle.creation_seqno;
+print "  payload:", bundle.payload;
+
+del bundle;
+
+print "dtn_recv timeout:";
+bundle = dtn_recv(h, DTN_PAYLOAD_MEM, 0);
+if (bundle or (dtn_errno(h) != DTN_ETIMEOUT)):
+    print "  bundle is bundle, errno is", dtn_errno(h);
+else:
+    print "  ", dtn_strerror(dtn_errno(h));
+
+print "testing expiration status report"
+id = dtn_send(h, regid, src, "dtn://somewhere_over_the_rainbow",
+              dst, COS_NORMAL,
+	      DOPTS_DELETE_RCPT, 2, DTN_PAYLOAD_MEM, "test payload");
+
+bundle = dtn_recv(h, DTN_PAYLOAD_MEM, 10000);
+if not bundle:
+    print "error: expected to receive deletion status report"
+    sys.exit(1)
+    
+print dtn_status_report_reason_to_str(bundle.status_report.reason)
+
+print "testing poll"
+fd = dtn_poll_fd(h)
+dtn_begin_poll(h, 5000)
+rd, wr, err = select([fd], [], [], 2)
+print "should be a poll timeout", rd, wr, err
+
+rd, wr, err = select([fd], [], [], 10)
+print "should be read ready", rd, wr, err
+
+print "should timeout twice:"
+bundle = dtn_recv(h, DTN_PAYLOAD_MEM, 0);
+if (bundle or (dtn_errno(h) != DTN_ETIMEOUT)):
+    print "  bundle is bundle, errno is", dtn_errno(h);
+else:
+    print "  ", dtn_strerror(dtn_errno(h));
+
+bundle = dtn_recv(h, DTN_PAYLOAD_MEM, 0);
+if (bundle or (dtn_errno(h) != DTN_ETIMEOUT)):
+    print "  bundle is bundle, errno is", dtn_errno(h);
+else:
+    print "  ", dtn_strerror(dtn_errno(h));
+
+dtn_cancel_poll(h)
+
+dtn_close(h);
+