6 use Test::More 'no_plan';
10 use_ok('Text::Tradition::Directory');
12 my $fh = File::Temp->new();
13 my $file = $fh->filename;
15 my $dsn = "dbi:SQLite:dbname=$file";
17 my $user_store = Text::Tradition::Directory->new('dsn' => $dsn,
18 'extra_args' => { 'create' => 1 } );
20 my $scope = $user_store->new_scope;
23 my $shortpass = 'bloggs';
24 ok(!$user_store->validate_password($shortpass), '"bloggs" is too short for a password');
26 my $dud_user = $user_store->add_user({ username => 'joe',
27 password => $shortpass });
28 ok( 0, "User with short password should not have been created" );
29 } catch ( Text::Tradition::Error $e ) {
30 is( $e->message, "Invalid password - must be at least "
31 . $user_store->MIN_PASS_LEN . " characters long",
32 "Attempt to add user with too-short password threw correct error" );
36 my $new_user = $user_store->add_user({ username => 'fred',
37 password => 'bloggspass'});
38 isa_ok($new_user, 'Text::Tradition::User');
39 is($new_user->active, 1, 'New user created and active');
40 is($new_user->email, 'fred', 'Email value set to username');
41 ok(!$new_user->is_admin, 'New user is not an admin');
44 my $find_user = $user_store->find_user({ username => 'fred'});
45 isa_ok($find_user, 'Text::Tradition::User');
46 ok($find_user->check_password('bloggspass'), 'Stored & retrieved with correct password');
49 my $changed_user = $user_store->modify_user({ username => 'fred',
50 password => 'passbloggs' });
51 isa_ok($changed_user, 'Text::Tradition::User');
52 my $changed = $user_store->find_user({ username => 'fred'});
53 ok($changed->check_password('passbloggs'), 'Modified & retrieved with correct new password');
57 ## Sets all traditions to non-public, deactivates
58 my $user = $user_store->add_user({ username => 'testactive',
59 password => 'imanactiveuser' });
60 ok($user->active, 'Deactivate test user starts active');
62 my $d_user = $user_store->deactivate_user({ username => 'testactive' });
63 is($d_user->active, 0, 'Deactivated user');
64 is($user_store->find_user({ username => 'testactive' }), undef, 'Deactivated user not returned by find_user');
66 ## TODO - add test where user has traditions to start with
71 ## reactivates user, does not mess with their traditions (as we don't know which were public to start with)
73 my $user = $user_store->add_user({ username => 'testinactive',
74 password => 'imaninactiveuser' });
75 my $d_user = $user_store->deactivate_user({ username => 'testinactive' });
76 ok(!$d_user->active, 'Deactivate test user starts active');
78 my $a_user = $user_store->reactivate_user({ username => 'testinactive' });
79 is($a_user->active, 1, 'Re-activated user');
80 ok($user_store->find_user({ username => 'testinactive' }), 'Re-activated user returned by find_user again');
84 ## delete user (admin only?)
85 my $user = $user_store->add_user({ username => 'testdelete',
86 password => 'imgoingtobedeleted' });
88 my $gone = $user_store->delete_user({ username => 'testdelete' });
90 my $d_user = $user_store->find_user({ username => 'testdelete' });
92 ok($gone && !$d_user, 'Deleted user completely from store');
98 my $t = Text::Tradition->new(
100 'input' => 'Tabular',
101 'file' => 't/data/simple.txt',
104 my $uuid = $user_store->save($t);
105 my $user = $user_store->add_user({ username => 'testadd',
106 password => 'testingtraditions' });
107 $user->add_tradition($t);
108 $user_store->update($user);
110 is( scalar @{$user->traditions}, 1, 'Added one tradition');
112 my @tlist = $user_store->traditionlist($user);
113 is($tlist[0]->{name}, $t->name, 'Traditionlist returns same named user->tradition');
114 is($tlist[0]->{id}, $uuid, 'Traditionlist returns actual tradition with same uuid we put in earlier');
115 my $fetched_t = $user_store->tradition($tlist[0]->{id});
116 is($fetched_t->user->id, $user->id, 'Traditionlist returns item belonging to this user');
118 ## add a second, not owned by this user, we shouldn't return it from
120 my $t2 = Text::Tradition->new(
122 'input' => 'Tabular',
123 'file' => 't/data/simple.txt',
125 $user_store->save($t2);
126 my @tlist2 = $user_store->traditionlist($user);
127 is(scalar @tlist2, 1, 'With 2 stored traditions, we only fetch one');
128 my $fetched_t2 = $user_store->tradition($tlist[0]->{id});
129 is($fetched_t2->user->id, $user->id, 'Traditionlist returns item belonging to this user');
136 local $TODO = 'searching on public attr not implemented yet';
137 ## Fetch public traditions, not user traditions, when not fetching with a user
139 my $t = Text::Tradition->new(
141 'input' => 'Tabular',
142 'file' => 't/data/simple.txt',
145 $user_store->save($t);
146 my $user = $user_store->add_user({ username => 'testpublic',
147 password => 'testingtraditions' });
148 $user->add_tradition($t);
149 $user_store->update($user);
151 ## add a second, not owned by this user, we shouldn't return it from
153 my $t2 = Text::Tradition->new(
155 'input' => 'Tabular',
156 'file' => 't/data/simple.txt',
159 my $uuid = $user_store->save($t2);
161 my @tlist = $user_store->traditionlist('public');
162 is(scalar @tlist, 1, 'Got one public tradition');
163 is($tlist[0]->{name}, $t2->name, 'Traditionlist returns same named user->tradition');
164 is($tlist[0]->{id}, $uuid, 'Traditionlist returns actual tradition with same uuid we put in earlier');
165 my $fetched_t = $user_store->tradition($tlist[0]->{id});
166 ok($fetched_t->public, 'Traditionlist returns public item');
173 my $t = Text::Tradition->new(
175 'input' => 'Tabular',
176 'file' => 't/data/simple.txt',
179 my $uuid = $user_store->save($t);
180 my $user = $user_store->add_user({ username => 'testremove',
181 password => 'testingtraditions' });
182 $user->add_tradition($t);
183 $user_store->update($user);
185 $user->remove_tradition($t);
186 $user_store->update($user);
187 my $changed_t = $user_store->tradition($uuid);
189 is( scalar @{$user->traditions}, 0, 'Added and removed one tradition');
190 ok(!$changed_t->has_user, 'Removed user from tradition');
192 my @tlist = $user_store->traditionlist($user);
193 is(scalar @tlist, 0, 'Traditionlist now empty');
198 my $admin = $user_store->add_user({
199 username => 'adminuser',
200 password => 'adminpassword',
203 ok($admin->is_admin, 'Got an admin user');
205 ## test admins get all traditions
207 my $t = Text::Tradition->new(
209 'input' => 'Tabular',
210 'file' => 't/data/simple.txt',
213 $user_store->save($t);
215 my @tlist = $user_store->traditionlist(); ## all traditions
216 my @admin_tlist = $user_store->traditionlist($admin);
218 is(scalar @admin_tlist, scalar @tlist, 'Got all traditions for admin user');
223 ## Add/find simple openid user with OpenIDish parameters:
225 my $openid_user = $user_store->create_user({
226 url => 'http://username.myopenid.com',
227 email => 'username.myopenid.com',
229 ok($openid_user, 'Created user from OpenID params');
231 my $get_openid_user = $user_store->find_user({
232 url => 'http://username.myopenid.com',
233 email => 'username.myopenid.com',
236 ok($openid_user == $get_openid_user, 'Found OpenID user again');
237 is($get_openid_user->id, 'http://username.myopenid.com', 'Set id to unique url from openid');
238 is($get_openid_user->email, 'username.myopenid.com', 'Kept original email value');
242 ## Add/find openid user with email attribute:
243 my $openid_user = $user_store->create_user({
244 url => 'http://blahblah.com/foo/bar/baz/lotsofjunk',
245 email => 'http://blahblah.com/foo/bar/baz/lotsofjunk',
247 'http://openid.net/srv/ax/1.0' => {
248 'value.email' => 'fredbloggs@blahblah.com',
249 'type.email' => 'http://axschema.org/contact/email',
250 'mode' => 'fetch_response',
254 ok($openid_user, 'Created user from OpenID params');
256 my $get_openid_user = $user_store->find_user({
257 url => 'http://blahblah.com/foo/bar/baz/lotsofjunk',
258 email => 'http://blahblah.com/foo/bar/baz/lotsofjunk',
260 'http://openid.net/srv/ax/1.0' => {
261 'value.email' => 'fredbloggs@blahblah.com',
262 'type.email' => 'http://axschema.org/contact/email',
263 'mode' => 'fetch_response',
268 ok($openid_user == $get_openid_user, 'Found OpenID user again');
269 is($get_openid_user->id, 'http://blahblah.com/foo/bar/baz/lotsofjunk', 'Set id to unique url from openid');
270 is($get_openid_user->email, 'fredbloggs@blahblah.com', 'Set email value to email from extension');