From 942b916aa1e3fc85f2e21bfc079ac29f7142ffdc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ville=20Skytt=C3=A4?= <ville.skytta@iki.fi>
Date: Sat, 16 Jan 2010 16:27:14 +0200
Subject: [PATCH] (testsuite) Don't fail dcop test if a DCOP server is not
 running.

---
 test/lib/completions/dcop.exp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/test/lib/completions/dcop.exp b/test/lib/completions/dcop.exp
index c62bb3b7..6ed800c5 100644
--- a/test/lib/completions/dcop.exp
+++ b/test/lib/completions/dcop.exp
@@ -11,7 +11,9 @@ proc teardown {} {
 setup
 
 
-assert_complete_any "dcop "
+if {[assert_exec {dcop} words]} {
+    assert_complete $words "dcop "
+}; # if
 
 
 sync_after_int