- my %target2record;
- if ($this->{targets}) {
- # Prepopulate the target map with nulls so that after we fill
- # in what we can from the database query, we know which target
- # IDs we need new records for.
- foreach my $target (@{ $this->{targets} }) {
- $target2record{lc($target)} = undef;
- }
- }
- delete $this->{targets}; # Information now in keys of %target2record
-
- my $rs = $this->{conn}->search(new ZOOM::Query::CQL($this->{query}));
- $this->log("irspy", "'", $this->{query}, "' found ",
- $rs->size(), " target records");
- delete $this->{query}; # Information now in $rs
-
- foreach my $i (1 .. $rs->size()) {
- my $target = _render_record($rs, $i-1, "id");
- my $zeerex = _render_record($rs, $i-1, "zeerex");
- $target2record{lc($target)} =
- new ZOOM::IRSpy::Record($this, $target, $zeerex);
- }
+ $tname = "Main" if !defined $tname;
+ $this->{test} = $tname;
+ $this->{tree} = $this->_gather_tests($tname)
+ or die "No tests defined for '$tname'";
+ $this->{tree}->resolve();
+ #$this->{tree}->print(0);