1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
#***************************************************************************
# _ _ ____ _
# Project ___| | | | _ \| |
# / __| | | | |_) | |
# | (__| |_| | _ <| |___
# \___|\___/|_| \_\_____|
#
# Copyright (C) 2020, Daniel Stenberg, <daniel@haxx.se>, et al.
# Copyright (C) 2020, 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.haxx.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.
#
###########################################################################
use strict;
use warnings;
my %APPVEYOR_TEST_NAMES;
sub appveyor_check_environment {
if(defined $ENV{'APPVEYOR_API_URL'} && $ENV{'APPVEYOR_API_URL'}) {
return 1;
}
return 0;
}
sub appveyor_create_test_result {
my ($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 ($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;
|
