You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
25 lines
621 B
25 lines
621 B
use 5.014; |
|
use strict; |
|
use warnings; |
|
|
|
# Test tag names based on time |
|
|
|
use Test::More; |
|
|
|
use ksb::Application; |
|
|
|
my $app = ksb::Application->new(qw(--pretend --rc-file t/data/branch-time-based/kdesrc-buildrc)); |
|
my @moduleList = $app->generateModuleList(); |
|
|
|
is(scalar @moduleList, 3, 'Right number of modules'); |
|
|
|
for my $mod (@moduleList) { |
|
my $scm = $mod->scm(); |
|
isa_ok($scm, 'ksb::Updater::Git'); |
|
|
|
my ($branch, $type) = $scm->_determinePreferredCheckoutSource(); |
|
is($branch, 'master@{3 weeks ago}', 'Right tag name'); |
|
is($type, 'tag', 'Result came back as a tag with detached HEAD'); |
|
} |
|
|
|
done_testing();
|
|
|