blob: 6f875116560f6c82a3eaeabe714053b90e08e958 [file] [log] [blame]
#!/usr/bin/env perl
#
# Copyright (C) 2016 Apple Inc. All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
# notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
# notice, this list of conditions and the following disclaimer in the
# documentation and/or other materials provided with the distribution.
#
# THIS SOFTWARE IS PROVIDED BY APPLE INC. AND ITS CONTRIBUTORS ``AS IS'' AND ANY
# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
# DISCLAIMED. IN NO EVENT SHALL APPLE INC. OR ITS CONTRIBUTORS BE LIABLE FOR ANY
# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
use strict;
use warnings;
use Test::More;
use FindBin;
use lib File::Spec->catdir($FindBin::Bin, "..");
use LoadAsModule qw(PrepareChangeLog prepare-ChangeLog);
# NOTE: A Bugzilla Comment XML looks like:
#
# <long_desc isprivate="0">
# <commentid>1153467</commentid>
# <who name="Radar WebKit Bug Importer">webkit-bug-importer</who>
# <bug_when>2016-01-07 11:06:14 -0800</bug_when>
# <thetext>&lt;rdar://problem/24093563&gt;</thetext>
# </long_desc>
#
# But for these tests we simplify the XML to just the <thetext> blocks.
my @testCaseHashRefs = (
###
# Comments where a Radar URL will be detected.
##
{
testName => "Radar URL comment",
inputText => "<thetext>&lt;rdar://problem/24093563&gt;</thetext>",
expected => "<rdar://problem/24093563>"
},
{
testName => "Radar URL comment with leading whitespace",
inputText => "<thetext> &lt;rdar://problem/24093563&gt;</thetext>",
expected => "<rdar://problem/24093563>"
},
{
testName => "Radar URL comment with trailing title",
inputText => "<thetext>&lt;rdar://problem/24093563&gt; Radar Title Here</thetext>",
expected => "<rdar://problem/24093563>"
},
{
testName => "Multiple comments, detect first Radar URL comment",
inputText => "<thetext>Comment 1</thetext>\n<thetext>&lt;rdar://problem/24093563&gt;</thetext>\n<thetext>&lt;rdar://problem/99999999&gt;</thetext>",
expected => "<rdar://problem/24093563>"
},
###
# Comments where a Radar URL will not be detected.
##
{
testName => "Empty comment",
inputText => "",
expected => ""
},
{
testName => "Comment without radar URL link",
inputText => "<thetext>Comment text</thetext>",
expected => ""
},
{
testName => "Radar URL comment with leading text",
inputText => "<thetext>Check out: &lt;rdar://problem/24093563&gt;</thetext>",
expected => ""
},
);
# Ignore STDERR output from fetchRadarURLFromBugXMLData for the test cases.
close STDERR;
my $testCasesCount = @testCaseHashRefs;
plan(tests => $testCasesCount);
foreach my $testCase (@testCaseHashRefs) {
my $expected = $testCase->{expected};
my $got = PrepareChangeLog::fetchRadarURLFromBugXMLData(152839, $testCase->{inputText});
is($got, $expected, $testCase->{testName});
}