View | Details | Raw Unified | Return to bug 39877
Collapse All | Expand All

(-)a/Koha/Devel/CI/IncrementalRuns.pm (-14 / +15 lines)
Lines 83-103 sub new { Link Here
83
        context   => $args->{context},
83
        context   => $args->{context},
84
    };
84
    };
85
85
86
    unless ( $self->{test_name} ) {
86
    if ( $self->{incremental_run} ) {
87
        my @caller_info     = caller();
87
        unless ( $self->{test_name} ) {
88
        my $script_filename = $caller_info[1];
88
            my @caller_info     = caller();
89
        $self->{test_name} = basename($script_filename);
89
            my $script_filename = $caller_info[1];
90
        $self->{test_name} =~ s|/|_|g;
90
            $self->{test_name} = basename($script_filename);
91
        $self->{test_name} =~ s|\..*$||g;
91
            $self->{test_name} =~ s|/|_|g;
92
    }
92
            $self->{test_name} =~ s|\..*$||g;
93
94
    if ( $self->{git_repo_dir} && $self->{repo_url} ) {
95
        unless ( -d $self->{git_repo_dir} ) {
96
            qx{git clone $self->{repo_url} $self->{git_repo_dir}};
97
        }
93
        }
98
        qx{git -C $self->{git_repo_dir} fetch origin};
99
94
100
        make_path("$self->{git_repo_dir}/$self->{test_name}");
95
        if ( $self->{git_repo_dir} && $self->{repo_url} ) {
96
            unless ( -d $self->{git_repo_dir} ) {
97
                qx{git clone $self->{repo_url} $self->{git_repo_dir}};
98
            }
99
            qx{git -C $self->{git_repo_dir} fetch origin};
100
101
            make_path("$self->{git_repo_dir}/$self->{test_name}");
102
        }
101
    }
103
    }
102
104
103
    bless $self, $class;
105
    bless $self, $class;
104
- 

Return to bug 39877