Fixed testcase.

espressomd · Sep 22, 2014 · a4b4219 · a4b4219
1 parent c0d5ed2
commit a4b4219
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/testsuite/collision-detection-poc.tcl b/testsuite/collision-detection-poc.tcl
@@ -139,11 +139,12 @@ if {![catch {integrate 0} err]} {
 }
 
 set bonds ""
-foreach exception [lrange $err 2 end] {
-    if {[lrange $exception 0 2] != "collision between particles"} {
+foreach exception [lrange $err 1 end] {
+    if {[regexp {collision between particles (\d+) and (\d+)} $exception -> id1 id2]} {
+        lappend bonds "$id1 $id2"
+    } else {
 	error_exit "unexpected exception $exception"
     }
-    lappend bonds "[lindex $exception 3] [lindex $exception 5]"
 }
 set bonds [lsort $bonds]