forked from lix-project/hydra
30 lines
541 B
Perl
30 lines
541 B
Perl
|
use strict;
|
||
|
|
use Cwd;
|
||
|
|
use Setup;
|
||
|
|
use TestScmInput;
|
||
|
|
|
||
|
|
(my $datadir, my $pgsql) = test_init();
|
||
|
|
|
||
|
|
require Hydra::Schema;
|
||
|
|
require Hydra::Model::DB;
|
||
|
|
|
||
|
|
use Test2::V0;
|
||
|
|
|
||
|
|
my $db = Hydra::Model::DB->new;
|
||
|
|
hydra_setup($db);
|
||
|
|
|
||
|
|
# Tests the creation of a Hydra jobset using a git revision as input.
|
||
|
|
testScmInput(
|
||
|
|
type => 'git',
|
||
|
|
name => 'git-rev',
|
||
|
|
expr => 'git-rev-input.nix',
|
||
|
|
uri => 'git-repo 7f60df502b96fd54bbfa64dd94b56d936a407701',
|
||
|
|
update => 'jobs/git-rev-update.sh',
|
||
|
|
|
||
|
|
# directories
|
||
|
|
datadir => $datadir,
|
||
|
|
testdir => getcwd,
|
||
|
|
);
|
||
|
|
|
||
|
|
done_testing;
|