summaryrefslogtreecommitdiffstats
path: root/xt/webservice/jsonp.t
blob: a89e1259c7b30e1df1967723d50fcfcf5c4dd5f1 (plain)
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
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
#
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.

use 5.14.0;
use strict;
use warnings;

use FindBin qw($RealBin);
use lib "$RealBin/../lib", "$RealBin/../../local/lib/perl5";

use Test::More tests => 85;
use QA::Util;
my $jsonrpc_get = QA::Util::get_jsonrpc_client('GET');

my @chars = (0..9, 'A'..'Z', 'a'..'z', '_[].');

our @tests = (
    { args => { callback => join('', @chars) },
      test => 'callback accepts all legal characters.' },
);
foreach my $char (qw(! ~ ` @ $ % ^ & * - + = { } ; : ' " < > / ? |),
                  '(', ')', '\\', '#', ',')
{
    push(@tests,
         { args  => { callback => "a$char" },
           error => "as your 'callback' parameter",
           test  => "$char is not valid in callback" });
}

$jsonrpc_get->bz_run_tests(method => 'Bugzilla.version', tests => \@tests);