summaryrefslogtreecommitdiffstats
path: root/xt/webservice/user_offer_account_by_email.t
diff options
context:
space:
mode:
Diffstat (limited to 'xt/webservice/user_offer_account_by_email.t')
-rw-r--r--xt/webservice/user_offer_account_by_email.t63
1 files changed, 63 insertions, 0 deletions
diff --git a/xt/webservice/user_offer_account_by_email.t b/xt/webservice/user_offer_account_by_email.t
new file mode 100644
index 000000000..785932167
--- /dev/null
+++ b/xt/webservice/user_offer_account_by_email.t
@@ -0,0 +1,63 @@
+# 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.
+
+#########################################################
+# Test for xmlrpc call to User.offer_account_by_email() #
+#########################################################
+
+use 5.10.1;
+use strict;
+use warnings;
+
+use FindBin qw($RealBin);
+use lib "$RealBin/../lib";
+
+use QA::Util;
+use Test::More tests => 29;
+my ($config, $xmlrpc, $jsonrpc, $jsonrpc_get) = get_rpc_clients();
+
+# These are the characters that are actually invalid per RFC.
+use constant INVALID_EMAIL => '()[]\;:,<>@webservice.test';
+
+sub new_login {
+ return 'requested_' . random_string() . '@webservice.test';
+}
+
+$jsonrpc_get->bz_call_fail('User.offer_account_by_email',
+ { email => new_login() },
+ 'must use HTTP POST', 'offer_account_by_email fails over GET');
+
+# Have to wrap @tests in the foreach so that new_login returns something
+# different each time.
+foreach my $rpc ($jsonrpc, $xmlrpc) {
+ my @tests = (
+ # Login name checks.
+ { args => { },
+ error => "argument was not set",
+ test => 'Leaving out email argument fails',
+ },
+ { args => { email => '' },
+ error => "argument was not set",
+ test => "Passing an empty email argument fails",
+ },
+ { args => { email => INVALID_EMAIL },
+ error => "didn't pass our syntax checking",
+ test => 'Invalid email address fails',
+ },
+ { args => { email => $config->{unprivileged_user_login} },
+ error => "There is already an account",
+ test => 'Trying to use an existing login name fails',
+ },
+
+ { args => { email => new_login() },
+ test => 'Valid, non-existing email passes.',
+ },
+ );
+
+ $rpc->bz_run_tests(tests => \@tests,
+ method => 'User.offer_account_by_email');
+}