The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
// $Id$

/*global Test, trace, output */

Test.Harness.Director = function () {};
Test.Harness.Director.VERSION = '0.29';

Test.Harness.Director.runTests = function () {
    var harness = new Test.Harness.Director();
    harness.runTests.apply(harness, arguments);
};

Test.Harness.Director.prototype = new Test.Harness();
Test.Harness.Director.prototype.verbose = true;
Test.Harness.Director.prototype.args = {};

Test.Harness.Director.prototype.runTests = function () {
    // Allow for an array or a simple list in arguments.
    // XXX args.file isn't quite right since it's more function names, but
    // that is still to be ironed out.

    var functionNames = this.args.file
      ? typeof this.args.file == 'string' ? [this.args.file] : this.args.file
      : arguments;
    if (!functionNames.length) return;
    var outfunctions = this.outFileNames(functionNames);
    var harness      = this;
    var start        = new Date();
    var newLineRx    = /(?:\r?\n|\r)+$/;
    var toOutput     = {
        pass: function (msg) { trace(msg.replace(newLineRx, '')) }
    }
    toOutput.fail = toOutput.pass;

    for (var x = 0; x < functionNames.length; x++){
        output(outfunctions[x]);
        eval(functionNames[x] + "()");
        harness.toOutputResults(
            Test.Builder.Test,
            functionNames[x],
            toOutput,
            harness.args
        );
    }
    harness.toOutputSummary(
        toOutput,
        new Date() - start
    );
};

Test.Harness.Director.prototype.formatFailures = function (fn) {
    // XXX Delete once the all-text version is implemented in Test.Harness.
    var failedStr = "Failed Test";
    var middleStr = " Total Fail  Failed  ";
    var listStr = "List of Failed";
    var table = '<table style=""><tr><th>Failed Test</th><th>Total</th>'
      + '<th>Fail</th><th>Failed</th></tr>';
    for (var i = 0; i < this.failures.length; i++) {
        var track = this.failures[i];
        table += '<tr><td>' + track.fn + '</td>'
          + '<td>' + track.total + '</td>'
          + '<td>' + track.total - track.ok + '</td>'
          + '<td>' + this._failList(track.failList) + '</td></tr>'
    };
    table += '</table>';
    output(table);
};