appveyor.pm

#***************************************************************************
#                                  _   _ ____  _
#  Project                     ___| | | |  _ \| |
#                             / __| | | | |_) | |
#                            | (__| |_| |  _ <| |___
#                             \___|\___/|_| \_\_____|
#
# Copyright (C) Daniel Stenberg, <daniel@haxx.se>, et al.
# Copyright (C) Marc Hoersken, <info@marc-hoersken.de>
#
# This software is licensed as described in the file COPYING, which
# you should have received as part of this distribution. The terms
# are also available at https://curl.se/docs/copyright.html.
#
# You may opt to use, copy, modify, merge, publish, distribute and/or sell
# copies of the Software, and permit persons to whom the Software is
# furnished to do so, under the terms of the COPYING file.
#
# This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
# KIND, either express or implied.
#
# SPDX-License-Identifier: curl
#
###########################################################################

package appveyor;

use strict;
use warnings;

BEGIN {
    use base qw(Exporter);

    our @EXPORT = qw(
      appveyor_check_environment
      appveyor_create_test_result
      appveyor_update_test_result
    );
}


my %APPVEYOR_TEST_NAMES;  # JSON and shell-quoted test names by test number

sub appveyor_check_environment {
    if(defined $ENV{'APPVEYOR_API_URL'} && $ENV{'APPVEYOR_API_URL'}) {
        return 1;
    }
    return 0;
}

sub appveyor_create_test_result {
    my ($curl, $testnum, $testname)=@_;
    $testname =~ s/\\/\\\\/g;
    $testname =~ s/\"/\\\"/g;
    $testname =~ s/\'/'"'"'/g;
    my $appveyor_baseurl="$ENV{'APPVEYOR_API_URL'}";
    my $appveyor_result=`$curl --silent --noproxy '*' \\
    --header 'Content-Type: application/json' \\
    --data '
        {
            "testName": "$testname",
            "testFramework": "runtests.pl",
            "fileName": "tests/data/test$testnum",
            "outcome": "Running"
        }
    ' \\
    '$appveyor_baseurl/api/tests'`;
    print "AppVeyor API result: $appveyor_result\n" if ($appveyor_result);
    $APPVEYOR_TEST_NAMES{$testnum}=$testname;
}

sub appveyor_update_test_result {
    my ($curl, $testnum, $error, $start, $stop)=@_;
    my $testname=$APPVEYOR_TEST_NAMES{$testnum};
    if(!defined $testname) {
        return;
    }
    if(!defined $stop) {
        $stop = $start;
    }
    my $appveyor_duration = sprintf("%.0f", ($stop-$start)*1000);
    my $appveyor_outcome;
    my $appveyor_category;
    if($error == 2) {
        $appveyor_outcome = 'Ignored';
        $appveyor_category = 'Error';
    }
    elsif($error < 0) {
        $appveyor_outcome = 'NotRunnable';
        $appveyor_category = 'Warning';
    }
    elsif(!$error) {
        $appveyor_outcome = 'Passed';
        $appveyor_category = 'Information';
    }
    else {
        $appveyor_outcome = 'Failed';
        $appveyor_category = 'Error';
    }
    my $appveyor_baseurl="$ENV{'APPVEYOR_API_URL'}";
    my $appveyor_result=`$curl --silent --noproxy '*' --request PUT \\
    --header 'Content-Type: application/json' \\
    --data '
        {
            "testName": "$testname",
            "testFramework": "runtests.pl",
            "fileName": "tests/data/test$testnum",
            "outcome": "$appveyor_outcome",
            "durationMilliseconds": $appveyor_duration,
            "ErrorMessage": "Test $testnum $appveyor_outcome"
        }
    ' \\
    '$appveyor_baseurl/api/tests'`;
    print "AppVeyor API result: $appveyor_result\n" if ($appveyor_result);
    if($appveyor_category eq 'Error') {
        $appveyor_result=`$curl --silent --noproxy '*' \\
        --header 'Content-Type: application/json' \\
        --data '
            {
                "message": "$appveyor_outcome: $testname",
                "category": "$appveyor_category",
                "details": "Test $testnum $appveyor_outcome"
            }
        ' \\
        '$appveyor_baseurl/api/build/messages'`;
        print "AppVeyor API result: $appveyor_result\n" if ($appveyor_result);
    }
}

1;