Merge remote-tracking branch 'origin/master' into origin-2608-websocket-event-bus...
[arvados.git] / services / api / test / unit / user_test.rb
1 require 'test_helper'
2
3 class UserTest < ActiveSupport::TestCase
4   include CurrentApiClient
5
6   # The fixture services/api/test/fixtures/users.yml serves as the input for this test case
7   setup do
8     # Make sure system_user exists before making "pre-test users" list
9     system_user
10
11     @all_users = User.find(:all)
12
13     @all_users.each do |user|
14       if user.uuid == system_user_uuid
15         @system_user = user
16       elsif user.is_admin && user.is_active
17         @admin_user = user
18       elsif user.is_active && !user.is_admin
19         @active_user = user
20       elsif !user.is_active && !user.is_invited
21         @uninvited_user = user
22       end
23     end
24   end
25
26   test "check non-admin active user properties" do
27     assert !@active_user.is_admin, 'is_admin should not be set for a non-admin user'
28     assert @active_user.is_active, 'user should be active'
29     assert @active_user.is_invited, 'is_invited should be set'
30     assert_not_nil @active_user.prefs, "user's preferences should be non-null, but may be size zero"
31     assert (@active_user.can? :read=>"#{@active_user.uuid}"), "user should be able to read own object"
32     assert (@active_user.can? :write=>"#{@active_user.uuid}"), "user should be able to write own object"
33     assert (@active_user.can? :manage=>"#{@active_user.uuid}"), "user should be able to manage own object"
34
35     assert @active_user.groups_i_can(:read).size > 0, "active user should be able read at least one group"
36
37     # non-admin user cannot manage or write other user objects
38     assert !(@active_user.can? :read=>"#{@uninvited_user.uuid}")
39     assert !(@active_user.can? :write=>"#{@uninvited_user.uuid}")
40     assert !(@active_user.can? :manage=>"#{@uninvited_user.uuid}")
41   end
42
43   test "check admin user properties" do
44     assert @admin_user.is_admin, 'is_admin should be set for admin user'
45     assert @admin_user.is_active, 'admin user cannot be inactive'
46     assert @admin_user.is_invited, 'is_invited should be set'
47     assert_not_nil @admin_user.uuid.size, "user's uuid should be non-null"
48     assert_not_nil @admin_user.prefs, "user's preferences should be non-null, but may be size zero"
49     assert @admin_user.identity_url.size > 0, "user's identity url is expected"
50     assert @admin_user.can? :read=>"#{@admin_user.uuid}"
51     assert @admin_user.can? :write=>"#{@admin_user.uuid}"
52     assert @admin_user.can? :manage=>"#{@admin_user.uuid}"
53
54     assert @admin_user.groups_i_can(:read).size > 0, "admin active user should be able read at least one group"
55     assert @admin_user.groups_i_can(:write).size > 0, "admin active user should be able write to at least one group"
56     assert @admin_user.groups_i_can(:manage).size > 0, "admin active user should be able manage at least one group"
57
58     # admin user can also write or manage other users
59     assert @admin_user.can? :read=>"#{@uninvited_user.uuid}"
60     assert @admin_user.can? :write=>"#{@uninvited_user.uuid}"
61     assert @admin_user.can? :manage=>"#{@uninvited_user.uuid}"
62   end
63
64   test "check inactive and uninvited user properties" do
65     assert !@uninvited_user.is_admin, 'is_admin should not be set for a non-admin user'
66     assert !@uninvited_user.is_active, 'user should be inactive'
67     assert !@uninvited_user.is_invited, 'is_invited should not be set'
68     assert @uninvited_user.can? :read=>"#{@uninvited_user.uuid}"
69     assert @uninvited_user.can? :write=>"#{@uninvited_user.uuid}"
70     assert @uninvited_user.can? :manage=>"#{@uninvited_user.uuid}"
71
72     assert @uninvited_user.groups_i_can(:read).size == 0, "inactive and uninvited user should not be able read any groups"
73     assert @uninvited_user.groups_i_can(:write).size == 0, "inactive and uninvited user should not be able write to any groups"
74     assert @uninvited_user.groups_i_can(:manage).size == 0, "inactive and uninvited user should not be able manage any groups"
75   end
76
77   test "find user method checks" do
78     User.find(:all).each do |user|
79       assert_not_nil user.uuid, "non-null uuid expected for " + user.full_name
80     end
81
82     user = users(:active)     # get the active user
83
84     found_user = User.find(user.id)   # find a user by the row id
85
86     assert_equal found_user.full_name, user.first_name + ' ' + user.last_name
87     assert_equal found_user.identity_url, user.identity_url
88   end
89
90   test "full name should not contain spurious whitespace" do
91     user = User.create ({uuid: 'zzzzz-tpzed-abcdefghijklmno', email: 'foo@example.com' })
92
93     assert_equal '', user.full_name
94
95     user.first_name = 'John'
96     user.last_name = 'Smith'
97
98     assert_equal user.first_name + ' ' + user.last_name, user.full_name
99   end
100
101   test "create new user" do
102     Thread.current[:user] = @admin_user   # set admin user as the current user
103
104     user = User.new
105     user.first_name = "first_name_for_newly_created_user"
106     user.save
107
108     # verify there is one extra user in the db now
109     assert_equal @all_users.size+1, User.find(:all).size
110
111     user = User.find(user.id)   # get the user back
112     assert_equal(user.first_name, 'first_name_for_newly_created_user')
113     assert_not_nil user.uuid, 'uuid should be set for newly created user'
114     assert_nil user.email, 'email should be null for newly created user, because it was not passed in'
115     assert_nil user.identity_url, 'identity_url should be null for newly created user, because it was not passed in'
116
117     user.first_name = 'first_name_for_newly_created_user_updated'
118     user.save
119     user = User.find(user.id)   # get the user back
120     assert_equal(user.first_name, 'first_name_for_newly_created_user_updated')
121   end
122
123   test "update existing user" do
124     Thread.current[:user] = @active_user    # set active user as current user
125     @active_user.first_name = "first_name_changed"
126     @active_user.save
127
128     @active_user = User.find(@active_user.id)   # get the user back
129     assert_equal(@active_user.first_name, 'first_name_changed')
130
131     # admin user also should be able to update the "active" user info
132     Thread.current[:user] = @admin_user # set admin user as current user
133     @active_user.first_name = "first_name_changed_by_admin_for_active_user"
134     @active_user.save
135
136     @active_user = User.find(@active_user.id)   # get the user back
137     assert_equal(@active_user.first_name, 'first_name_changed_by_admin_for_active_user')
138   end
139
140   test "delete a user and verify" do
141     active_user_uuid = @active_user.uuid
142
143     Thread.current[:user] = @admin_user
144     @active_user.delete
145
146     found_deleted_user = false
147     User.find(:all).each do |user|
148       if user.uuid == active_user_uuid
149         found_deleted_user = true
150         break
151       end
152     end
153     assert !found_deleted_user, "found deleted user: "+active_user_uuid
154
155   end
156
157   test "create new user as non-admin user" do
158     Thread.current[:user] = @active_user
159
160     begin
161       user = User.new
162       user.save
163     rescue ArvadosModel::PermissionDeniedError => e
164     end
165     assert (e.message.include? 'PermissionDeniedError'),
166         'Expected PermissionDeniedError'
167   end
168
169   test "setup new user" do
170     Thread.current[:user] = @admin_user
171
172     email = 'foo@example.com'
173     openid_prefix = 'http://openid/prefix'
174
175     user = User.create ({uuid: 'zzzzz-tpzed-abcdefghijklmno', email: email})
176
177     vm = VirtualMachine.create
178
179     response = User.setup user, openid_prefix, 'test_repo', vm.uuid
180
181     resp_user = find_obj_in_resp response, 'User'
182     verify_user resp_user, email
183
184     oid_login_perm = find_obj_in_resp response, 'Link', 'arvados#user'
185
186     verify_link oid_login_perm, 'permission', 'can_login', resp_user[:email],
187         resp_user[:uuid]
188
189     assert_equal openid_prefix, oid_login_perm[:properties]['identity_url_prefix'],
190         'expected identity_url_prefix not found for oid_login_perm'
191
192     group_perm = find_obj_in_resp response, 'Link', 'arvados#group'
193     verify_link group_perm, 'permission', 'can_read', resp_user[:uuid], nil
194
195     repo_perm = find_obj_in_resp response, 'Link', 'arvados#repository'
196     verify_link repo_perm, 'permission', 'can_write', resp_user[:uuid], nil
197
198     vm_perm = find_obj_in_resp response, 'Link', 'arvados#virtualMachine'
199     verify_link vm_perm, 'permission', 'can_login', resp_user[:uuid], vm.uuid
200   end
201
202   test "setup new user with junk in database" do
203     Thread.current[:user] = @admin_user
204
205     email = 'foo@example.com'
206     openid_prefix = 'http://openid/prefix'
207
208     user = User.create ({uuid: 'zzzzz-tpzed-abcdefghijklmno', email: email})
209
210     vm = VirtualMachine.create
211
212     # Set up the bogus Link
213     bad_uuid = 'zzzzz-tpzed-xyzxyzxyzxyzxyz'
214
215     resp_link = Link.create ({tail_uuid: email, link_class: 'permission',
216         name: 'can_login', head_uuid: bad_uuid})
217     resp_link.save(validate: false)
218
219     verify_link resp_link, 'permission', 'can_login', email, bad_uuid
220
221     response = User.setup user, openid_prefix, 'test_repo', vm.uuid
222
223     resp_user = find_obj_in_resp response, 'User'
224     verify_user resp_user, email
225
226     oid_login_perm = find_obj_in_resp response, 'Link', 'arvados#user'
227
228     verify_link oid_login_perm, 'permission', 'can_login', resp_user[:email],
229         resp_user[:uuid]
230
231     assert_equal openid_prefix, oid_login_perm[:properties]['identity_url_prefix'],
232         'expected identity_url_prefix not found for oid_login_perm'
233
234     group_perm = find_obj_in_resp response, 'Link', 'arvados#group'
235     verify_link group_perm, 'permission', 'can_read', resp_user[:uuid], nil
236
237     repo_perm = find_obj_in_resp response, 'Link', 'arvados#repository'
238     verify_link repo_perm, 'permission', 'can_write', resp_user[:uuid], nil
239
240     vm_perm = find_obj_in_resp response, 'Link', 'arvados#virtualMachine'
241     verify_link vm_perm, 'permission', 'can_login', resp_user[:uuid], vm.uuid
242   end
243
244
245
246   test "setup new user in multiple steps" do
247     Thread.current[:user] = @admin_user
248
249     email = 'foo@example.com'
250     openid_prefix = 'http://openid/prefix'
251
252     user = User.create ({uuid: 'zzzzz-tpzed-abcdefghijklmno', email: email})
253
254     response = User.setup user, openid_prefix
255
256     resp_user = find_obj_in_resp response, 'User'
257     verify_user resp_user, email
258
259     oid_login_perm = find_obj_in_resp response, 'Link', 'arvados#user'
260     verify_link oid_login_perm, 'permission', 'can_login', resp_user[:email],
261         resp_user[:uuid]
262     assert_equal openid_prefix, oid_login_perm[:properties]['identity_url_prefix'],
263         'expected identity_url_prefix not found for oid_login_perm'
264
265     group_perm = find_obj_in_resp response, 'Link', 'arvados#group'
266     verify_link group_perm, 'permission', 'can_read', resp_user[:uuid], nil
267
268     # invoke setup again with repo_name
269     response = User.setup user, openid_prefix, 'test_repo'
270     resp_user = find_obj_in_resp response, 'User', nil
271     verify_user resp_user, email
272     assert_equal user.uuid, resp_user[:uuid], 'expected uuid not found'
273
274     group_perm = find_obj_in_resp response, 'Link', 'arvados#group'
275     verify_link group_perm, 'permission', 'can_read', resp_user[:uuid], nil
276
277     repo_perm = find_obj_in_resp response, 'Link', 'arvados#repository'
278     verify_link repo_perm, 'permission', 'can_write', resp_user[:uuid], nil
279
280     # invoke setup again with a vm_uuid
281     vm = VirtualMachine.create
282
283     response = User.setup user, openid_prefix, 'test_repo', vm.uuid
284
285     resp_user = find_obj_in_resp response, 'User', nil
286     verify_user resp_user, email
287     assert_equal user.uuid, resp_user[:uuid], 'expected uuid not found'
288
289     group_perm = find_obj_in_resp response, 'Link', 'arvados#group'
290     verify_link group_perm, 'permission', 'can_read', resp_user[:uuid], nil
291
292     repo_perm = find_obj_in_resp response, 'Link', 'arvados#repository'
293     verify_link repo_perm, 'permission', 'can_write', resp_user[:uuid], nil
294
295     vm_perm = find_obj_in_resp response, 'Link', 'arvados#virtualMachine'
296     verify_link vm_perm, 'permission', 'can_login', resp_user[:uuid], vm.uuid
297   end
298
299   def find_obj_in_resp (response_items, object_type, head_kind=nil)
300     return_obj = nil
301     response_items.each { |x|
302       if !x
303         next
304       end
305
306       if object_type == 'User'
307         if ArvadosModel::resource_class_for_uuid(x['uuid']) == User
308           return_obj = x
309           break
310         end
311       else  # looking for a link
312         if ArvadosModel::resource_class_for_uuid(x['head_uuid']).kind == head_kind
313           return_obj = x
314           break
315         end
316       end
317     }
318     return return_obj
319   end
320
321   def verify_user (resp_user, email)
322     assert_not_nil resp_user, 'expected user object'
323     assert_not_nil resp_user['uuid'], 'expected user object'
324     assert_equal email, resp_user['email'], 'expected email not found'
325
326   end
327
328   def verify_link (link_object, link_class, link_name, tail_uuid, head_uuid)
329     assert_not_nil link_object, "expected link for #{link_class} #{link_name}"
330     assert_not_nil link_object[:uuid],
331         "expected non-nil uuid for link for #{link_class} #{link_name}"
332     assert_equal link_class, link_object[:link_class],
333         "expected link_class not found for #{link_class} #{link_name}"
334     assert_equal link_name, link_object[:name],
335         "expected link_name not found for #{link_class} #{link_name}"
336     assert_equal tail_uuid, link_object[:tail_uuid],
337         "expected tail_uuid not found for #{link_class} #{link_name}"
338     if head_uuid
339       assert_equal head_uuid, link_object[:head_uuid],
340           "expected head_uuid not found for #{link_class} #{link_name}"
341     end
342   end
343
344 end