first test, not yet in buildprocess

[?]
Mar 16, 2011, 8:50 AM
G2ZB6464XGPBIMSZIPSB24EIXSCCGV4XWC3IWPS2CXYPDSUZSU5QC

Dependencies

  • [2] FV2M6MOT hydra: use autoconf/-make
  • [3] SZYDW2DG hydra: added some user admin
  • [*] SAFVRDTK * Put Hydra's dependencies so that they can easily be installed in a
  • [*] DO432JDJ * Build Hydra with the Nix Perl bindings.
  • [*] CLXEECMF * Start putting build results in a database.

Change contents

  • edit in configure.ac at line 67
    [2.16774]
    [2.16774]
    tests/Makefile
    tests/query-all-tables.pl
  • edit in deps.nix at line 42
    [3.57]
    [6.327]
    perlPackages.TestMore
  • file addition: tests (d--r------)
    [7.2]
  • file addition: Makefile.am (----------)
    [0.73]
    TESTS = \
    query-all-tables.pl
    $(TESTS) : db.sqlite
    db.sqlite : $(srcdir)/src/sql/hydra-sqlite.sql
    sqlite3 db.sqlite < $(srcdir)/src/sql/hydra-sqlite.sql
  • file addition: query-all-tables.pl.in (----------)
    [0.73]
    #! @perl@ -w -I@nix@/libexec/nix
    use strict;
    use Hydra::Schema;
    use Hydra::Helper::Nix;
    use Hydra::Helper::AddBuilds;
    my $db = openHydraDB;
    my @sources = $db->sources;
    my $nrtables = scalar(@sources);
    use Test::Simple tests => 62;
    foreach my $source (@sources) {
    if( $source !~ m/^(LatestSucceeded|JobStatus|ActiveJobs)/) {
    ok(scalar($db->resultset($source)->search({},{})) == 0, "Basic select query for $source");
    }
    }