[scpubgit/stemmaweb.git] / t / 07google.t

use warnings;
use strict;

use FindBin;
use lib ("$FindBin::Bin/lib");

use stemmaweb::Test::Common;

use stemmaweb;
use LWP::Protocol::PSGI;
use Test::WWW::Mechanize;

use Test::More;
use HTML::TreeBuilder;
use Data::Dumper;
use IO::All;

use stemmaweb::Test::DB;

my $dir = stemmaweb::Test::DB->new_db;

# NOTE: this test uses Text::Tradition::Directory
# to check user accounts really have been created.
# It'll need to be changed once that is replaced...

LWP::Protocol::PSGI->register(stemmaweb->psgi_app);

my $ua = Test::WWW::Mechanize->new;

io("$FindBin::Bin/var")->rmtree if io("$FindBin::Bin/var")->exists;

{
    diag("Create OpenID based Google account");
    my $scope = $dir->new_scope;

    $ua->get_ok('http://localhost/login');

    local *Catalyst::Authentication::Credential::OpenID::authenticate = sub {
        my ( $self, $c, $realm, $authinfo ) = @_;

        return $realm->find_user({
            url => 'https://www.google.com/accounts/o8/id?id=XYZ',
            email => 'test@example.com',
                                 }, $c);
    };

    ok !$dir->find_user({ url => 'https://www.google.com/accounts/o8/id?id=XYZ' }), 'No such user, yet.';

    $ua->submit_form(
        form_number => 2,
        fields => {
            openid_identifier => 'https://www.google.com/accounts/o8/id?id=XYZ',
        },
    );

    $ua->content_contains('You have logged in.', 'Openid login works');

    $ua->get('/');

    $ua->content_contains('Hello! test@example.com!', 'We are logged in.');

    diag("Verify new OpenID Google account exists");
    ok $dir->find_user({ url => 'https://www.google.com/accounts/o8/id?id=XYZ',
                         email => 'test@example.com',
                       }), 'The user is now there.';
    $ua->get('/logout');

    # Converting to Google ID.

    diag("Login/Convert to new Google+ account");
    local *stemmaweb::Authentication::Credential::Google::authenticate = sub {
        my ( $self, $c, $realm, $authinfo ) = @_;

        return $realm->find_user({
                openid_id => 'https://www.google.com/accounts/o8/id?id=XYZ',
                sub        => 42,
                email => $authinfo->{email},
            }, $c);
    };
    $ua->get_ok('http://localhost/login');

    $ua->submit_form(
        form_number => 1,
        fields => {
            id_token => 'something',
            email    => 'test@example.com',
        },
    );

    $ua->content_contains('You have logged in.', 'G+ login works');

    $ua->get('/');

    $ua->content_contains('Hello! test@example.com!', 'We are logged in.');

    $ua->get_ok('/logout', 'Logged out');
}

{
    diag("Create OpenID based Google account for email match");
    my $scope = $dir->new_scope;

    $ua->get_ok('http://localhost/login');

    local *Catalyst::Authentication::Credential::OpenID::authenticate = sub {
        my ( $self, $c, $realm, $authinfo ) = @_;

        return $realm->find_user({
            url => 'https://www.google.com/accounts/o8/id?id=42XYZ',
            email => 'test42@example.com',
                                 }, $c);
    };

    ok !$dir->find_user({ url => 'https://www.google.com/accounts/o8/id?id=42XYZ' }), 'No such user, yet.';

    $ua->submit_form(
        form_number => 2,
        fields => {
            openid_identifier => 'https://www.google.com/accounts/o8/id?id=42XYZ',
        },
    );

    $ua->content_contains('You have logged in.', 'Openid login works');

    $ua->get('/');

    $ua->content_contains('Hello! test42@example.com!', 'We are logged in.');

    diag("Verify new OpenID Google account for email match exists");
    ok $dir->find_user({ url => 'https://www.google.com/accounts/o8/id?id=42XYZ',
                         email => 'test42@example.com',
                       }), 'The user is now there.';
    $ua->get('/logout');

    # Converting to Google ID.

    diag("Login/Convert to new Google+ account matching only on email");
    local *stemmaweb::Authentication::Credential::Google::authenticate = sub {
        my ( $self, $c, $realm, $authinfo ) = @_;

        return $realm->find_user({
                openid_id => 'https://www.google.com/accounts/o8/id?id=45XYZ',
                sub        => 45,
                email => $authinfo->{email},
            }, $c);
    };
    $ua->get_ok('http://localhost/login');

    $ua->submit_form(
        form_number => 1,
        fields => {
            id_token => 'something',
            email    => 'test42@example.com',
        },
    );

    $ua->content_contains('You have logged in.', 'G+ login works');

    $ua->get('/');

    $ua->content_contains('Hello! test42@example.com!', 'We are logged in.');

    $ua->get('/logout');
}

my $openid_uid;
my $gplus_uid;
my %tradition_names;
{
    diag("Test converting OpenID based Google account with traditions");
    my $scope = $dir->new_scope;

    my $openid_u = $dir->find_user({ url => 'https://www.google.com/accounts/o8/id?id=AItOawlFTlpuHGcI67tqahtw7xOod9VNWffB-Qg',
                         email => 'openid@example.org',
                       });
    ok($openid_u, 'The user is there.');

    diag("Login/Convert to new Google+ account");
    local *stemmaweb::Authentication::Credential::Google::authenticate = sub {
        my ( $self, $c, $realm, $authinfo ) = @_;

        return $realm->find_user({
                openid_id => 'https://www.google.com/accounts/o8/id?id=AItOawlFTlpuHGcI67tqahtw7xOod9VNWffB-Qg',
                sub        => 450,
                email => $authinfo->{email},
            }, $c);
    };
    $ua->get_ok('http://localhost/login');

    $ua->submit_form(
        form_number => 1,
        fields => {
            id_token => 'something',
            email    => 'openid@example.org',
        },
    );

    $ua->content_contains('You have logged in.', 'G+ login works');
    $ua->get('/');
    $ua->content_contains('Hello! openid@example.org!', 'We are logged in.');

    my $gplus_u = $dir->find_user({
        openid_id => 'https://www.google.com/accounts/o8/id?id=AItOawlFTlpuHGcI67tqahtw7xOod9VNWffB-Qg',
        sub        => 450,
        email => 'openid@example.org'
    });
    $openid_uid = $openid_u->kiokudb_object_id;
    $gplus_uid = $gplus_u->kiokudb_object_id;

    foreach my $trad_id (0..$#{ $openid_u->traditions }) {
    	my $trad = $gplus_u->traditions->[$trad_id];
    	$tradition_names{$trad->name} = 1;
        is($trad->name, $openid_u->traditions->[$trad_id]->name, 'Traditions were copied over to G+ user');
    }

    $ua->get('/logout');
}

{ 
	diag("Check that the user traditions were removed from the old user");
	my $scope = $dir->new_scope;
	my $openid_u = $dir->lookup( $openid_uid );
	my $gplus_u = $dir->lookup( $gplus_uid );
	is( scalar @{$openid_u->traditions}, 0, "Traditions were removed from old user" );
	foreach my $tradition ( @{$gplus_u->traditions} ) {
		ok( $tradition_names{ $tradition->name }, "Tradition has remained with new user" );
	}
}

{
    diag("Verify we can login the new Google+ account again");
    my $scope = $dir->new_scope;
#    ok !$dir->find_user({ url => 'https://www.google.com/accounts/o8/id?id=XYZ' }), 'Old google-openid is gone.';

    ok $dir->find_user({
        sub => 42,
        openid_id => 'https://www.google.com/accounts/o8/id?id=XYZ',
        email    => 'test@example.com',
    }), 'The G+ user is there.';

    $ua->get('/logout');

    $ua->get_ok('http://localhost/login');

    local *stemmaweb::Authentication::Credential::Google::authenticate = sub {
        my ( $self, $c, $realm, $authinfo ) = @_;

        return $realm->find_user({
                openid_id => 'https://www.google.com/accounts/o8/id?id=XYZ',
                sub        => 42,
                email      => $authinfo->{email},
            }, $c);
    };

    $ua->submit_form(
        form_number => 1,
        fields => {
            id_token => 'something',
            email   => 'test@example.com',
        },
    );

    $ua->content_contains('You have logged in.', 'We can now log in to our created user');

    $ua->get('/');

    $ua->content_contains('Hello! test@example.com!', 'We are logged in.');
}

# Brand new user just from open id.

{
    diag("Create a fresh Google+ user");
    my $scope = $dir->new_scope;

    ok !$dir->find_user({ sub => 2, openid_id => 'https://www.google.com/accounts/o8/id2?id=XYZ', email => 'test2@exmple.com' }), 'The G+ user is not yet there.';

    $ua->get('/logout');

    $ua->get_ok('http://localhost/login');

    local *stemmaweb::Authentication::Credential::Google::authenticate = sub {
        my ( $self, $c, $realm, $authinfo ) = @_;

        return $realm->find_user({
                openid_id => 'https://www.google.com/accounts/o8/id2?id=XYZ',
                sub        => 2,
                email      => $authinfo->{email},
            }, $c);
    };

    $ua->submit_form(
        form_number => 1,
        fields => {
            id_token => 'something',
            email    => 'test2@example.com',
        },
    );

    $ua->content_contains('You have logged in.', 'We can now log in to our created user');

    $ua->get('/');

    $ua->content_contains('Hello! test2@example.com!', 'We are logged in.');

    ok $dir->find_user({ sub => 2, openid_id => 'https://www.google.com/accounts/o8/id2?id=XYZ', email => 'test2@example.com' }), 'The G+ user is there.';

    $ua->get('/logout');

    $ua->get_ok('http://localhost/login');

    $ua->submit_form(
        form_number => 1,
        fields => {
            id_token => 'something',
            email    => 'test2@example.com',
        },
    );

    $ua->content_contains('You have logged in.', 'We can login again');

    $ua->get('/');

    $ua->content_contains('Hello! test2@example.com!', 'We are logged in.');
}

# Decoding token

{
    my $scope = $dir->new_scope;

    ok !$dir->find_user({ sub => 4242, openid_id => 'https://www.google.com/accounts/o8/id3', email => 'email@example.org' }), 'The G+ user is not yet there.';

    $ua->get('/logout');

    $ua->get_ok('http://localhost/login');

    $ua->submit_form(
        form_number => 1,
        fields => {
            id_token => 'eyJraWQiOiJhIiwiYWxnIjoiUlMyNTYifQ.eyJzdWIiOiI0MjQyIiwib3BlbmlkX2lkIjoiaHR0cHM6Ly93d3cuZ29vZ2xlLmNvbS9hY2NvdW50cy9vOC9pZDMifQ.moNERe3UHCY4xGMPxdCqmbg2JKW5feVnYlA8jeB4CdE4c_KL3YHvICQeql-S486HT-AlWBeDJWMr6wWH1kkwz11a2D1oyJ8qCWBssHIkhfv8dm3dphmRbtzYssAOFdGsmnPH1oXolCnl-Qu9WgHkhYYnRJWHr3CkeNA6Yh1xOV3nkaa8REtJckuzh3jyKQgx_rjIFsWBPDmT1rqa_Q0XOGVK34N5tADwpcWmkb3fFnbddzd9L6MnybbFzF_S238Bpr5vNa9doXRBwvJ85AdSn1AWX8R6qVpDbbaiGL2RCahuZYF9XECYm6anee-KTKvxh02KXkG2zniKVvweaMlcbQ',
            email    => 'email@example.org',
        },
    );

    $ua->content_contains('You have logged in.', 'We can now log in to our created user - the token was decoded');

    $ua->get('/');

    $ua->content_contains('Hello! email@example.org!', 'We are logged in.');

    ok $dir->find_user({ sub => 4242, openid_id => 'https://www.google.com/accounts/o8/id3', email => 'email@example.org' }), 'The G+ user is there.';

    $ua->get('/logout');

    $ua->get_ok('http://localhost/login');

    $ua->submit_form(
        form_number => 1,
        fields => {
            id_token => 'eyJraWQiOiJhIiwiYWxnIjoiUlMyNTYifQ.eyJzdWIiOiI0MjQyIiwib3BlbmlkX2lkIjoiaHR0cHM6Ly93d3cuZ29vZ2xlLmNvbS9hY2NvdW50cy9vOC9pZDMifQ.moNERe3UHCY4xGMPxdCqmbg2JKW5feVnYlA8jeB4CdE4c_KL3YHvICQeql-S486HT-AlWBeDJWMr6wWH1kkwz11a2D1oyJ8qCWBssHIkhfv8dm3dphmRbtzYssAOFdGsmnPH1oXolCnl-Qu9WgHkhYYnRJWHr3CkeNA6Yh1xOV3nkaa8REtJckuzh3jyKQgx_rjIFsWBPDmT1rqa_Q0XOGVK34N5tADwpcWmkb3fFnbddzd9L6MnybbFzF_S238Bpr5vNa9doXRBwvJ85AdSn1AWX8R6qVpDbbaiGL2RCahuZYF9XECYm6anee-KTKvxh02KXkG2zniKVvweaMlcbQ',
            email   => 'email@example.org',
        },
    );

    $ua->content_contains('You have logged in.', 'We can login again');

    $ua->get('/');

    $ua->content_contains('Hello! email@example.org!', 'We are logged in.');
}

io("$FindBin::Bin/var")->rmtree if io("$FindBin::Bin/var")->exists;

done_testing;
Commit	Line	Data
fbb4eba9	1	use warnings;
	2	use strict;
	3
	4	use FindBin;
	5	use lib ("$FindBin::Bin/lib");
	6
	7	use stemmaweb::Test::Common;
	8
	9	use stemmaweb;
	10	use LWP::Protocol::PSGI;
	11	use Test::WWW::Mechanize;
	12
	13	use Test::More;
	14	use HTML::TreeBuilder;
	15	use Data::Dumper;
16970305	16	use IO::All;
fbb4eba9	17
	18	use stemmaweb::Test::DB;
	19
	20	my $dir = stemmaweb::Test::DB->new_db;
	21
	22	# NOTE: this test uses Text::Tradition::Directory
	23	# to check user accounts really have been created.
	24	# It'll need to be changed once that is replaced...
	25
fbb4eba9	26	LWP::Protocol::PSGI->register(stemmaweb->psgi_app);
	27
	28	my $ua = Test::WWW::Mechanize->new;
	29
f465f004	30	io("$FindBin::Bin/var")->rmtree if io("$FindBin::Bin/var")->exists;
16970305	31
26c264fd	32	{
c13343b3	33	diag("Create OpenID based Google account");
26c264fd	34	my $scope = $dir->new_scope;
	35
	36	$ua->get_ok('http://localhost/login');
	37
	38	local *Catalyst::Authentication::Credential::OpenID::authenticate = sub {
	39	my ( $self, $c, $realm, $authinfo ) = @_;
	40
c13343b3	41	return $realm->find_user({
	42	url => 'https://www.google.com/accounts/o8/id?id=XYZ',
	43	email => 'test@example.com',
	44	}, $c);
26c264fd	45	};
26c264fd	46
c13343b3	47	ok !$dir->find_user({ url => 'https://www.google.com/accounts/o8/id?id=XYZ' }), 'No such user, yet.';
26c264fd	48
	49	$ua->submit_form(
	50	form_number => 2,
	51	fields => {
c13343b3	52	openid_identifier => 'https://www.google.com/accounts/o8/id?id=XYZ',
26c264fd	53	},
	54	);
	55
	56	$ua->content_contains('You have logged in.', 'Openid login works');
	57
	58	$ua->get('/');
	59
c13343b3	60	$ua->content_contains('Hello! test@example.com!', 'We are logged in.');
26c264fd	61
c13343b3	62	diag("Verify new OpenID Google account exists");
	63	ok $dir->find_user({ url => 'https://www.google.com/accounts/o8/id?id=XYZ',
	64	email => 'test@example.com',
	65	}), 'The user is now there.';
26c264fd	66	$ua->get('/logout');
	67
	68	# Converting to Google ID.
	69
c13343b3	70	diag("Login/Convert to new Google+ account");
26c264fd	71	local *stemmaweb::Authentication::Credential::Google::authenticate = sub {
	72	my ( $self, $c, $realm, $authinfo ) = @_;
	73
	74	return $realm->find_user({
c13343b3	75	openid_id => 'https://www.google.com/accounts/o8/id?id=XYZ',
26c264fd	76	sub => 42,
c13343b3	77	email => $authinfo->{email},
26c264fd	78	}, $c);
	79	};
	80	$ua->get_ok('http://localhost/login');
	81
	82	$ua->submit_form(
	83	form_number => 1,
	84	fields => {
	85	id_token => 'something',
c13343b3	86	email => 'test@example.com',
	87	},
	88	);
	89
	90	$ua->content_contains('You have logged in.', 'G+ login works');
	91
	92	$ua->get('/');
	93
	94	$ua->content_contains('Hello! test@example.com!', 'We are logged in.');
	95
	96	$ua->get_ok('/logout', 'Logged out');
	97	}
	98
	99	{
	100	diag("Create OpenID based Google account for email match");
	101	my $scope = $dir->new_scope;
	102
	103	$ua->get_ok('http://localhost/login');
	104
	105	local *Catalyst::Authentication::Credential::OpenID::authenticate = sub {
	106	my ( $self, $c, $realm, $authinfo ) = @_;
	107
	108	return $realm->find_user({
	109	url => 'https://www.google.com/accounts/o8/id?id=42XYZ',
	110	email => 'test42@example.com',
	111	}, $c);
	112	};
	113
	114	ok !$dir->find_user({ url => 'https://www.google.com/accounts/o8/id?id=42XYZ' }), 'No such user, yet.';
	115
	116	$ua->submit_form(
	117	form_number => 2,
	118	fields => {
	119	openid_identifier => 'https://www.google.com/accounts/o8/id?id=42XYZ',
	120	},
	121	);
	122
	123	$ua->content_contains('You have logged in.', 'Openid login works');
	124
	125	$ua->get('/');
	126
	127	$ua->content_contains('Hello! test42@example.com!', 'We are logged in.');
	128
	129	diag("Verify new OpenID Google account for email match exists");
	130	ok $dir->find_user({ url => 'https://www.google.com/accounts/o8/id?id=42XYZ',
	131	email => 'test42@example.com',
	132	}), 'The user is now there.';
	133	$ua->get('/logout');
	134
	135	# Converting to Google ID.
	136
	137	diag("Login/Convert to new Google+ account matching only on email");
	138	local *stemmaweb::Authentication::Credential::Google::authenticate = sub {
	139	my ( $self, $c, $realm, $authinfo ) = @_;
	140
	141	return $realm->find_user({
	142	openid_id => 'https://www.google.com/accounts/o8/id?id=45XYZ',
	143	sub => 45,
	144	email => $authinfo->{email},
	145	}, $c);
	146	};
	147	$ua->get_ok('http://localhost/login');
	148
	149	$ua->submit_form(
150	form_number => 1,
151	fields => {
152	id_token => 'something',
153	email => 'test42@example.com',
26c264fd	154	},
	155	);
	156
	157	$ua->content_contains('You have logged in.', 'G+ login works');
	158
	159	$ua->get('/');
	160
c13343b3	161	$ua->content_contains('Hello! test42@example.com!', 'We are logged in.');
	162
	163	$ua->get('/logout');
26c264fd	164	}
26c264fd	165
b145d866	166	my $openid_uid;
	167	my $gplus_uid;
	168	my %tradition_names;
26c264fd	169	{
c13343b3	170	diag("Test converting OpenID based Google account with traditions");
26c264fd	171	my $scope = $dir->new_scope;
26c264fd	172
c13343b3	173	my $openid_u = $dir->find_user({ url => 'https://www.google.com/accounts/o8/id?id=AItOawlFTlpuHGcI67tqahtw7xOod9VNWffB-Qg',
	174	email => 'openid@example.org',
	175	});
	176	ok($openid_u, 'The user is there.');
	177
	178	diag("Login/Convert to new Google+ account");
	179	local *stemmaweb::Authentication::Credential::Google::authenticate = sub {
	180	my ( $self, $c, $realm, $authinfo ) = @_;
	181
	182	return $realm->find_user({
	183	openid_id => 'https://www.google.com/accounts/o8/id?id=AItOawlFTlpuHGcI67tqahtw7xOod9VNWffB-Qg',
	184	sub => 450,
	185	email => $authinfo->{email},
	186	}, $c);
	187	};
	188	$ua->get_ok('http://localhost/login');
	189
	190	$ua->submit_form(
	191	form_number => 1,
	192	fields => {
	193	id_token => 'something',
	194	email => 'openid@example.org',
	195	},
	196	);
	197
	198	$ua->content_contains('You have logged in.', 'G+ login works');
	199	$ua->get('/');
	200	$ua->content_contains('Hello! openid@example.org!', 'We are logged in.');
	201
	202	my $gplus_u = $dir->find_user({
	203	openid_id => 'https://www.google.com/accounts/o8/id?id=AItOawlFTlpuHGcI67tqahtw7xOod9VNWffB-Qg',
	204	sub => 450,
	205	email => 'openid@example.org'
	206	});
b145d866	207	$openid_uid = $openid_u->kiokudb_object_id;
b145d866	208	$gplus_uid = $gplus_u->kiokudb_object_id;
fbb4eba9	209
c13343b3	210	foreach my $trad_id (0..$#{ $openid_u->traditions }) {
b145d866	211	my $trad = $gplus_u->traditions->[$trad_id];
	212	$tradition_names{$trad->name} = 1;
	213	is($trad->name, $openid_u->traditions->[$trad_id]->name, 'Traditions were copied over to G+ user');
c13343b3	214	}
	215
	216	$ua->get('/logout');
	217	}
	218
b145d866	219	{
	220	diag("Check that the user traditions were removed from the old user");
	221	my $scope = $dir->new_scope;
	222	my $openid_u = $dir->lookup( $openid_uid );
	223	my $gplus_u = $dir->lookup( $gplus_uid );
	224	is( scalar @{$openid_u->traditions}, 0, "Traditions were removed from old user" );
	225	foreach my $tradition ( @{$gplus_u->traditions} ) {
	226	ok( $tradition_names{ $tradition->name }, "Tradition has remained with new user" );
	227	}
	228	}
	229
c13343b3	230	{
	231	diag("Verify we can login the new Google+ account again");
	232	my $scope = $dir->new_scope;
	233	# ok !$dir->find_user({ url => 'https://www.google.com/accounts/o8/id?id=XYZ' }), 'Old google-openid is gone.';
	234
	235	ok $dir->find_user({
	236	sub => 42,
	237	openid_id => 'https://www.google.com/accounts/o8/id?id=XYZ',
	238	email => 'test@example.com',
	239	}), 'The G+ user is there.';
fbb4eba9	240
26c264fd	241	$ua->get('/logout');
fbb4eba9	242
26c264fd	243	$ua->get_ok('http://localhost/login');
fbb4eba9	244
26c264fd	245	local *stemmaweb::Authentication::Credential::Google::authenticate = sub {
26c264fd	246	my ( $self, $c, $realm, $authinfo ) = @_;
fbb4eba9	247
26c264fd	248	return $realm->find_user({
c13343b3	249	openid_id => 'https://www.google.com/accounts/o8/id?id=XYZ',
26c264fd	250	sub => 42,
c13343b3	251	email => $authinfo->{email},
26c264fd	252	}, $c);
26c264fd	253	};
fbb4eba9	254
26c264fd	255	$ua->submit_form(
	256	form_number => 1,
	257	fields => {
	258	id_token => 'something',
c13343b3	259	email => 'test@example.com',
26c264fd	260	},
26c264fd	261	);
fbb4eba9	262
26c264fd	263	$ua->content_contains('You have logged in.', 'We can now log in to our created user');
fbb4eba9	264
26c264fd	265	$ua->get('/');
fbb4eba9	266
c13343b3	267	$ua->content_contains('Hello! test@example.com!', 'We are logged in.');
26c264fd	268	}
fbb4eba9	269
26c264fd	270	# Brand new user just from open id.
fbb4eba9	271
26c264fd	272	{
c13343b3	273	diag("Create a fresh Google+ user");
26c264fd	274	my $scope = $dir->new_scope;
fbb4eba9	275
c13343b3	276	ok !$dir->find_user({ sub => 2, openid_id => 'https://www.google.com/accounts/o8/id2?id=XYZ', email => 'test2@exmple.com' }), 'The G+ user is not yet there.';
fbb4eba9	277
26c264fd	278	$ua->get('/logout');
fbb4eba9	279
26c264fd	280	$ua->get_ok('http://localhost/login');
fbb4eba9	281
26c264fd	282	local *stemmaweb::Authentication::Credential::Google::authenticate = sub {
26c264fd	283	my ( $self, $c, $realm, $authinfo ) = @_;
fbb4eba9	284
26c264fd	285	return $realm->find_user({
c13343b3	286	openid_id => 'https://www.google.com/accounts/o8/id2?id=XYZ',
26c264fd	287	sub => 2,
c13343b3	288	email => $authinfo->{email},
26c264fd	289	}, $c);
26c264fd	290	};
fbb4eba9	291
26c264fd	292	$ua->submit_form(
	293	form_number => 1,
	294	fields => {
	295	id_token => 'something',
c13343b3	296	email => 'test2@example.com',
26c264fd	297	},
26c264fd	298	);
fbb4eba9	299
26c264fd	300	$ua->content_contains('You have logged in.', 'We can now log in to our created user');
fbb4eba9	301
26c264fd	302	$ua->get('/');
fbb4eba9	303
c13343b3	304	$ua->content_contains('Hello! test2@example.com!', 'We are logged in.');
fbb4eba9	305
c13343b3	306	ok $dir->find_user({ sub => 2, openid_id => 'https://www.google.com/accounts/o8/id2?id=XYZ', email => 'test2@example.com' }), 'The G+ user is there.';
fbb4eba9	307
26c264fd	308	$ua->get('/logout');
fbb4eba9	309
26c264fd	310	$ua->get_ok('http://localhost/login');
fbb4eba9	311
26c264fd	312	$ua->submit_form(
	313	form_number => 1,
	314	fields => {
	315	id_token => 'something',
c13343b3	316	email => 'test2@example.com',
26c264fd	317	},
26c264fd	318	);
fbb4eba9	319
26c264fd	320	$ua->content_contains('You have logged in.', 'We can login again');
fbb4eba9	321
26c264fd	322	$ua->get('/');
fbb4eba9	323
c13343b3	324	$ua->content_contains('Hello! test2@example.com!', 'We are logged in.');
26c264fd	325	}
fbb4eba9	326
6ab7cb54	327	# Decoding token
	328
	329	{
	330	my $scope = $dir->new_scope;
	331
c13343b3	332	ok !$dir->find_user({ sub => 4242, openid_id => 'https://www.google.com/accounts/o8/id3', email => 'email@example.org' }), 'The G+ user is not yet there.';
6ab7cb54	333
	334	$ua->get('/logout');
	335
	336	$ua->get_ok('http://localhost/login');
	337
	338	$ua->submit_form(
	339	form_number => 1,
	340	fields => {
	341	id_token => 'eyJraWQiOiJhIiwiYWxnIjoiUlMyNTYifQ.eyJzdWIiOiI0MjQyIiwib3BlbmlkX2lkIjoiaHR0cHM6Ly93d3cuZ29vZ2xlLmNvbS9hY2NvdW50cy9vOC9pZDMifQ.moNERe3UHCY4xGMPxdCqmbg2JKW5feVnYlA8jeB4CdE4c_KL3YHvICQeql-S486HT-AlWBeDJWMr6wWH1kkwz11a2D1oyJ8qCWBssHIkhfv8dm3dphmRbtzYssAOFdGsmnPH1oXolCnl-Qu9WgHkhYYnRJWHr3CkeNA6Yh1xOV3nkaa8REtJckuzh3jyKQgx_rjIFsWBPDmT1rqa_Q0XOGVK34N5tADwpcWmkb3fFnbddzd9L6MnybbFzF_S238Bpr5vNa9doXRBwvJ85AdSn1AWX8R6qVpDbbaiGL2RCahuZYF9XECYm6anee-KTKvxh02KXkG2zniKVvweaMlcbQ',
	342	email => 'email@example.org',
	343	},
	344	);
	345
	346	$ua->content_contains('You have logged in.', 'We can now log in to our created user - the token was decoded');
	347
	348	$ua->get('/');
	349
1c65af41	350	$ua->content_contains('Hello! email@example.org!', 'We are logged in.');
6ab7cb54	351
c13343b3	352	ok $dir->find_user({ sub => 4242, openid_id => 'https://www.google.com/accounts/o8/id3', email => 'email@example.org' }), 'The G+ user is there.';
6ab7cb54	353
	354	$ua->get('/logout');
	355
	356	$ua->get_ok('http://localhost/login');
	357
	358	$ua->submit_form(
	359	form_number => 1,
	360	fields => {
	361	id_token => 'eyJraWQiOiJhIiwiYWxnIjoiUlMyNTYifQ.eyJzdWIiOiI0MjQyIiwib3BlbmlkX2lkIjoiaHR0cHM6Ly93d3cuZ29vZ2xlLmNvbS9hY2NvdW50cy9vOC9pZDMifQ.moNERe3UHCY4xGMPxdCqmbg2JKW5feVnYlA8jeB4CdE4c_KL3YHvICQeql-S486HT-AlWBeDJWMr6wWH1kkwz11a2D1oyJ8qCWBssHIkhfv8dm3dphmRbtzYssAOFdGsmnPH1oXolCnl-Qu9WgHkhYYnRJWHr3CkeNA6Yh1xOV3nkaa8REtJckuzh3jyKQgx_rjIFsWBPDmT1rqa_Q0XOGVK34N5tADwpcWmkb3fFnbddzd9L6MnybbFzF_S238Bpr5vNa9doXRBwvJ85AdSn1AWX8R6qVpDbbaiGL2RCahuZYF9XECYm6anee-KTKvxh02KXkG2zniKVvweaMlcbQ',
	362	email => 'email@example.org',
	363	},
	364	);
	365
	366	$ua->content_contains('You have logged in.', 'We can login again');
	367
	368	$ua->get('/');
	369
c13343b3	370	$ua->content_contains('Hello! email@example.org!', 'We are logged in.');
6ab7cb54	371	}
6ab7cb54	372
f465f004	373	io("$FindBin::Bin/var")->rmtree if io("$FindBin::Bin/var")->exists;
16970305	374
fbb4eba9	375	done_testing;