package Queries::ResultsData;

use strict;
use warnings;
use diagnostics;

sub query {
    my ($experiment) = @_;

    return "SELECT
benchmark, resulttype, sum(t.time2 - t.time1 + 1) AS faults
FROM variant v
JOIN trace t ON v.id = t.variant_id
JOIN fspgroup g ON g.variant_id = t.variant_id AND g.instr2 = t.instr2 AND g.data_physical_address = t.data_physical_address
JOIN result_GenericExperimentMessage r ON r.pilot_id = g.pilot_id
JOIN fsppilot p ON r.pilot_id = p.id
WHERE v.variant = '$experiment'
GROUP BY v.id, resulttype
ORDER BY variant, benchmark, resulttype;";
}

sub args { return "--batch --raw"; }

sub filename { return "resultsdata.csv"; }

sub postprocess { $_[0] =~ s/\t/,/g; }

1;