Index: /trunk/tools/microtest.pl
===================================================================
--- /trunk/tools/microtest.pl	(revision 27571)
+++ /trunk/tools/microtest.pl	(revision 27572)
@@ -16,4 +16,5 @@
 my ($db_host, $db_name, $db_user, $db_pw); # Database details
 my ($label);                               # Label of interest
+my ($group);                               # Data group
 my ($verbose);                             # Verbosity?
 my ($save_temps);                          # Save temporary outputs?
@@ -25,4 +26,5 @@
            'dbpass=s' => \$db_pw, # Database p/w
            'label=s' => \$label, # Label of interest
+    'data_group=s' => \$group,   # Data group
            'verbose' => \$verbose, # Verbosity?
     'save-temps' => \$save_temps,  # Save temporary outputs?
@@ -46,8 +48,9 @@
 
 # Exposures of interest
-my $exps = $db->selectall_arrayref(
-    "SELECT DISTINCT exp_id, exp_name, magic_id, magicRun.workdir AS magic_path, camProcessedExp.path_base AS cam_path FROM magicRun JOIN rawExp USING(exp_id) JOIN diffRun USING(diff_id) JOIN diffInputSkyfile USING(diff_id) JOIN warpRun ON warpRun.warp_id = diffInputSkyfile.warp1 JOIN fakeRun USING(fake_id) JOIN camProcessedExp USING(cam_id) WHERE magicRun.label = '$label' AND magicRun.state = 'full'",
-    { Slice => {} }
-    ) or die "Unable to execute SQL: $DBI::errstr";
+my $sql = "SELECT DISTINCT exp_id, exp_name, magic_id, magicRun.workdir AS magic_path, camProcessedExp.path_base AS cam_path FROM magicRun JOIN rawExp USING(exp_id) JOIN diffRun USING(diff_id) JOIN diffInputSkyfile USING(diff_id) JOIN warpRun ON warpRun.warp_id = diffInputSkyfile.warp1 JOIN fakeRun USING(fake_id) JOIN camProcessedExp USING(cam_id) WHERE magicRun.label = '$label' AND magicRun.state = 'full'";
+$sql .= " AND magicRun.data_group = '$group'" if defined $group;
+my $exps = $db->selectall_arrayref($sql, { Slice => {} }) or die "Unable to execute SQL: $DBI::errstr";
+
+$label = $group if defined $group;
 
 foreach my $exp (@$exps) {