31 lines
568 B
Perl
31 lines
568 B
Perl
use strict;
|
|
use warnings;
|
|
use Setup;
|
|
use TestScmInput;
|
|
|
|
my %ctx = 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 => $ctx{tmpdir},
|
|
testdir => $ctx{testdir},
|
|
jobsdir => $ctx{jobsdir},
|
|
);
|
|
|
|
done_testing;
|