diff -rup Sys-Virt-TCK-0.1.0.orig/lib/Sys/Virt/TCK.pm Sys-Virt-TCK-0.1.0.new/lib/Sys/Virt/TCK.pm
--- Sys-Virt-TCK-0.1.0.orig/lib/Sys/Virt/TCK.pm	2009-08-26 16:13:28.000000000 +0100
+++ Sys-Virt-TCK-0.1.0.new/lib/Sys/Virt/TCK.pm	2009-08-26 16:16:19.000000000 +0100
@@ -72,7 +72,7 @@ sub setup {
 sub sanity_check {
     my $self = shift;
 
-    my @doms = $self->{conn}->list_domains;
+    my @doms = grep { $_->get_id > 0 } $self->{conn}->list_domains;
     if (@doms) {
 	die "there is/are " . int(@doms) . " pre-existing active domain(s) in this driver";
     }
@@ -96,11 +96,9 @@ sub sanity_check {
 sub reset {
     my $self = shift;
 
-    my @doms = $self->{conn}->list_domains;
+    my @doms = grep { $_->get_id > 0 } $self->{conn}->list_domains;
     foreach my $dom (@doms) {
-	if ($dom->get_id != 0) {
-	    $dom->destroy;
-	}
+	$dom->destroy;
     }
 
     @doms = $self->{conn}->list_defined_domains();