[vuser] r596 committed - Fix a bug when an & was used in a password.

[vu...@googlecode.com]

Revision: 596
Author: perlstalker
Date: Tue Sep 13 13:20:03 2011
Log: Fix a bug when an & was used in a password.

http://code.google.com/p/vuser/source/detail?r=596

Added:
/VUser-Google-ProvisioningAPI/trunk/t/tests/Test/VUser/Google/ApiProtocol

/VUser-Google-ProvisioningAPI/trunk/t/tests/Test/VUser/Google/ApiProtocol/V2_0.pm
Modified:
/VUser-Google-ProvisioningAPI/trunk/t/tests/My/Test/Class.pm

/VUser-Google-ProvisioningAPI/trunk/t/tests/Test/VUser/Google/Provisioning/V2_0.pm

=======================================
--- /dev/null
+++
/VUser-Google-ProvisioningAPI/trunk/t/tests/Test/VUser/Google/ApiProtocol/V2_0.pm
Tue Sep 13 13:20:03 2011
@@ -0,0 +1,20 @@
+package Test::VUser::Google::ApiProtocol::V2_0;
+use warnings;
+use strict;
+
+use Test::Most;
+use base 'Test::VUser::Google::Provisioning';
+
+use vars qw($SKIP_LONG_TESTS);
+
+sub Login : Tests(2) {
+ my $test = shift;
+ my $class = $test->class;
+
+ my $google = $test->create_google;
+ can_ok $google, 'Login';
+
+ ok $google->Login, '... and login succeeded';
+}
+
+1;
=======================================
--- /VUser-Google-ProvisioningAPI/trunk/t/tests/My/Test/Class.pm Fri Jul 2
12:26:12 2010
+++ /VUser-Google-ProvisioningAPI/trunk/t/tests/My/Test/Class.pm Tue Sep 13
13:20:03 2011
@@ -5,15 +5,16 @@
use Test::Most;
use base qw(Test::Class Class::Data::Inheritable);

-use vars qw($gapps_domain $gapps_admin $gapps_passwd);
+use vars qw($gapps_domain $gapps_admin $gapps_passwd $gapps_debug);

BEGIN {

$gapps_domain = $ENV{GAPPS_DOMAIN};
$gapps_admin = $ENV{GAPPS_ADMIN};
$gapps_passwd = $ENV{GAPPS_PASSWD};
-
- print STDERR "Domain: $gapps_domain\n";
+ $gapps_debug = $ENV{GAPPS_DEBUG};
+
+ #print STDERR "Domain: $gapps_domain\n";

if (not $gapps_domain
and not $gapps_admin
=======================================
---
/VUser-Google-ProvisioningAPI/trunk/t/tests/Test/VUser/Google/Provisioning/V2_0.pm
Wed Dec 2 21:35:45 2009
+++
/VUser-Google-ProvisioningAPI/trunk/t/tests/Test/VUser/Google/Provisioning/V2_0.pm
Tue Sep 13 13:20:03 2011
@@ -20,7 +20,7 @@
userName => $user,
givenName => 'Test',
familyName => 'User',
- password => 'testing',
+ password => 'testing1',
quota => 2048,
changePasswordAtNextLogin => 1,
);
@@ -87,7 +87,7 @@
userName => $user.".$i",
givenName => 'Test',
familyName => 'User',
- password => 'testing',
+ password => 'testing1',
quota => 2048,
changePasswordAtNextLogin => 1,
);
@@ -138,7 +138,7 @@
userName => $user,
givenName => 'Test',
familyName => 'User',
- password => 'testing',
+ password => 'testing1',
quota => 2048,
changePasswordAtNextLogin => 1,
);
@@ -209,6 +209,35 @@

my $rc = $api->DeleteUser($user);
}
+
+sub ChangePassword : Tests(2) {
+ my $test = shift;
+ my $class = $test->class;
+
+ my $api = $class->new(google => $test->create_google);
+
+ can_ok $api, 'ChangePassword';
+
+ my $user = $test->get_test_user;
+
+ my $entry = $api->CreateUser(
+ userName => $user,
+ givenName => 'Test',
+ familyName => 'User',
+ password => 'testing1',
+ quota => 2048,
+ changePasswordAtNextLogin => 1,
+ );
+
+ lives_ok {
+ my $updated = $api->ChangePassword(
+ $user, 'HasAn&InIt'
+ );
+ } '... and can set a password with an & in it';
+
+ # clean up
+ my $rc = $api->DeleteUser($user);
+}

sub RenameUser : Tests(6) {
my $test = shift;
@@ -224,7 +253,7 @@
userName => $user,
givenName => 'Test',
familyName => 'User',
- password => 'testing',
+ password => 'testing1',
);

my $new_user = $api->RenameUser($user, $user.'.new');