Add a "services" command to test-device

This command adds a way to retrieve the Services property that each
device has.
diff --git a/test/test-device b/test/test-device
index 06d7c46..154af19 100755
--- a/test/test-device
+++ b/test/test-device
@@ -34,6 +34,7 @@
 	print "Usage: %s <command>" % (sys.argv[0])
 	print ""
 	print "  list"
+	print "  services <address>"
 	print "  create <address>"
 	print "  remove <address|path>"
 	print "  disconnect <address>"
@@ -190,5 +191,17 @@
 			device.SetProperty("Blocked", value)
 	sys.exit(0)
 
+if (args[0] == "services"):
+	if (len(args) < 2):
+		print "Need address parameter"
+	else:
+		path = adapter.FindDevice(args[1])
+		device = dbus.Interface(bus.get_object("org.bluez", path),
+							"org.bluez.Device")
+		properties = device.GetProperties()
+		for path in properties["Services"]:
+			print path
+	sys.exit(0)
+
 print "Unknown command"
 sys.exit(1)