Merge branch '15795-sys-root-token'
[arvados.git] / services / api / test / unit / user_test.rb
1 # Copyright (C) The Arvados Authors. All rights reserved.
2 #
3 # SPDX-License-Identifier: AGPL-3.0
4
5 require 'test_helper'
6
7 class UserTest < ActiveSupport::TestCase
8   include CurrentApiClient
9
10   # The fixture services/api/test/fixtures/users.yml serves as the input for this test case
11   setup do
12     # Make sure system_user exists before making "pre-test users" list
13     system_user
14   end
15
16   %w(a aa a0 aA Aa AA A0).each do |username|
17     test "#{username.inspect} is a valid username" do
18       user = User.new(username: username)
19       assert(user.valid?)
20     end
21   end
22
23   test "username is not required" do
24     user = User.new(username: nil)
25     assert(user.valid?)
26   end
27
28   test "username beginning with numeral is invalid" do
29     user = User.new(username: "0a")
30     refute(user.valid?)
31   end
32
33   "\\.-_/!@#$%^&*()[]{}".each_char do |bad_char|
34     test "username containing #{bad_char.inspect} is invalid" do
35       user = User.new(username: "bad#{bad_char}username")
36       refute(user.valid?)
37     end
38   end
39
40   test "username must be unique" do
41     user = User.new(username: users(:active).username)
42     refute(user.valid?)
43   end
44
45   test "non-admin can't update username" do
46     set_user_from_auth :rominiadmin
47     user = User.find_by_uuid(users(:rominiadmin).uuid)
48     user.username = "selfupdate"
49     assert_not_allowed { user.save }
50   end
51
52   def check_admin_username_change(fixture_name)
53     set_user_from_auth :admin_trustedclient
54     user = User.find_by_uuid(users(fixture_name).uuid)
55     user.username = "newnamefromtest"
56     assert(user.save)
57   end
58
59   test "admin can set username" do
60     check_admin_username_change(:active_no_prefs)
61   end
62
63   test "admin can update username" do
64     check_admin_username_change(:active)
65   end
66
67   test "admin can update own username" do
68     check_admin_username_change(:admin)
69   end
70
71   def check_new_username_setting(email_name, expect_name)
72     set_user_from_auth :admin
73     user = User.create!(email: "#{email_name}@example.org")
74     assert_equal(expect_name, user.username)
75   end
76
77   test "new username set from e-mail" do
78     check_new_username_setting("dakota", "dakota")
79   end
80
81   test "new username set from e-mail with leading digits" do
82     check_new_username_setting("1dakota9", "dakota9")
83   end
84
85   test "new username set from e-mail with punctuation" do
86     check_new_username_setting("dakota.9", "dakota9")
87   end
88
89   test "new username set from e-mail with leading digits and punctuation" do
90     check_new_username_setting("1.dakota.z", "dakotaz")
91   end
92
93   test "new username set from e-mail with extra part" do
94     check_new_username_setting("dakota+arvados", "dakota")
95   end
96
97   test "new username set with deduplication" do
98     name = users(:active).username
99     check_new_username_setting(name, "#{name}2")
100     check_new_username_setting(name, "#{name}3")
101     # Insert some out-of-order conflicts, to ensure our "sort by
102     # username, stop when we see a hole" strategy doesn't depend on
103     # insert order.
104     check_new_username_setting("#{name}13", "#{name}13")
105     check_new_username_setting("#{name}5", "#{name}5")
106     check_new_username_setting(name, "#{name}4")
107     6.upto(12).each do |n|
108       check_new_username_setting(name, "#{name}#{n}")
109     end
110   end
111
112   test "new username set avoiding blacklist" do
113     Rails.configuration.Users.AutoSetupUsernameBlacklist = {"root"=>{}}
114     check_new_username_setting("root", "root2")
115   end
116
117   test "no username set when no base available" do
118     check_new_username_setting("_", nil)
119   end
120
121   test "updating username updates repository names" do
122     set_user_from_auth :admin
123     user = users(:active)
124     user.username = "newtestname"
125     assert(user.save, "username update failed")
126     {foo: "newtestname/foo", repository2: "newtestname/foo2"}.
127         each_pair do |repo_sym, expect_name|
128       assert_equal(expect_name, repositories(repo_sym).name)
129     end
130   end
131
132   test "admin can clear username when user owns no repositories" do
133     set_user_from_auth :admin
134     user = users(:spectator)
135     user.username = nil
136     assert(user.save)
137     assert_nil(user.username)
138   end
139
140   test "admin can't clear username when user owns repositories" do
141     set_user_from_auth :admin
142     user = users(:active)
143     user.username = nil
144     assert_not_allowed { user.save }
145     refute_empty(user.errors[:username])
146   end
147
148   test "failed username update doesn't change repository names" do
149     set_user_from_auth :admin
150     user = users(:active)
151     user.username = users(:fuse).username
152     assert_not_allowed { user.save }
153     assert_equal("active/foo", repositories(:foo).name)
154   end
155
156   [[false, 'foo@example.com', true, nil],
157    [false, 'bar@example.com', nil, true],
158    [true, 'foo@example.com', true, nil],
159    [true, 'bar@example.com', true, true],
160    [false, '', nil, nil],
161    [true, '', true, nil]
162   ].each do |auto_admin_first_user_config, auto_admin_user_config, foo_should_be_admin, bar_should_be_admin|
163     # In each case, 'foo' is created first, then 'bar', then 'bar2', then 'baz'.
164     test "auto admin with auto_admin_first=#{auto_admin_first_user_config} auto_admin=#{auto_admin_user_config}" do
165
166       if auto_admin_first_user_config
167         # This test requires no admin users exist (except for the system user)
168         users(:admin).delete
169         @all_users = User.where("uuid not like '%-000000000000000'").where(:is_admin => true)
170         assert_equal 0, @all_users.count, "No admin users should exist (except for the system user)"
171       end
172
173       Rails.configuration.Users.AutoAdminFirstUser = auto_admin_first_user_config
174       Rails.configuration.Users.AutoAdminUserWithEmail = auto_admin_user_config
175
176       # See if the foo user has is_admin
177       foo = User.new
178       foo.first_name = 'foo'
179       foo.email = 'foo@example.com'
180
181       act_as_system_user do
182         foo.save!
183       end
184
185       foo = User.find(foo.id)   # get the user back
186       assert_equal foo_should_be_admin, foo.is_admin, "is_admin is wrong for user foo"
187       assert_equal 'foo', foo.first_name
188
189       # See if the bar user has is_admin
190       bar = User.new
191       bar.first_name = 'bar'
192       bar.email = 'bar@example.com'
193
194       act_as_system_user do
195         bar.save!
196       end
197
198       bar = User.find(bar.id)   # get the user back
199       assert_equal bar_should_be_admin, bar.is_admin, "is_admin is wrong for user bar"
200       assert_equal 'bar', bar.first_name
201
202       # A subsequent user with the bar@example.com address should never be
203       # elevated to admin
204       bar2 = User.new
205       bar2.first_name = 'bar2'
206       bar2.email = 'bar@example.com'
207
208       act_as_system_user do
209         bar2.save!
210       end
211
212       bar2 = User.find(bar2.id)   # get the user back
213       assert !bar2.is_admin, "is_admin is wrong for user bar2"
214       assert_equal 'bar2', bar2.first_name
215
216       # An ordinary new user should not be elevated to admin
217       baz = User.new
218       baz.first_name = 'baz'
219       baz.email = 'baz@example.com'
220
221       act_as_system_user do
222         baz.save!
223       end
224
225       baz = User.find(baz.id)   # get the user back
226       assert !baz.is_admin
227       assert_equal 'baz', baz.first_name
228
229     end
230   end
231
232   test "check non-admin active user properties" do
233     @active_user = users(:active)     # get the active user
234     assert !@active_user.is_admin, 'is_admin should not be set for a non-admin user'
235     assert @active_user.is_active, 'user should be active'
236     assert @active_user.is_invited, 'is_invited should be set'
237     assert_not_nil @active_user.prefs, "user's preferences should be non-null, but may be size zero"
238     assert (@active_user.can? :read=>"#{@active_user.uuid}"), "user should be able to read own object"
239     assert (@active_user.can? :write=>"#{@active_user.uuid}"), "user should be able to write own object"
240     assert (@active_user.can? :manage=>"#{@active_user.uuid}"), "user should be able to manage own object"
241
242     assert @active_user.groups_i_can(:read).size > 0, "active user should be able read at least one group"
243
244     # non-admin user cannot manage or write other user objects
245     @uninvited_user = users(:inactive_uninvited)     # get the uninvited user
246     assert !(@active_user.can? :read=>"#{@uninvited_user.uuid}")
247     assert !(@active_user.can? :write=>"#{@uninvited_user.uuid}")
248     assert !(@active_user.can? :manage=>"#{@uninvited_user.uuid}")
249   end
250
251   test "check admin user properties" do
252     @admin_user = users(:admin)     # get the admin user
253     assert @admin_user.is_admin, 'is_admin should be set for admin user'
254     assert @admin_user.is_active, 'admin user cannot be inactive'
255     assert @admin_user.is_invited, 'is_invited should be set'
256     assert_not_nil @admin_user.uuid.size, "user's uuid should be non-null"
257     assert_not_nil @admin_user.prefs, "user's preferences should be non-null, but may be size zero"
258     assert @admin_user.identity_url.size > 0, "user's identity url is expected"
259     assert @admin_user.can? :read=>"#{@admin_user.uuid}"
260     assert @admin_user.can? :write=>"#{@admin_user.uuid}"
261     assert @admin_user.can? :manage=>"#{@admin_user.uuid}"
262
263     assert @admin_user.groups_i_can(:read).size > 0, "admin active user should be able read at least one group"
264     assert @admin_user.groups_i_can(:write).size > 0, "admin active user should be able write to at least one group"
265     assert @admin_user.groups_i_can(:manage).size > 0, "admin active user should be able manage at least one group"
266
267     # admin user can also write or manage other users
268     @uninvited_user = users(:inactive_uninvited)     # get the uninvited user
269     assert @admin_user.can? :read=>"#{@uninvited_user.uuid}"
270     assert @admin_user.can? :write=>"#{@uninvited_user.uuid}"
271     assert @admin_user.can? :manage=>"#{@uninvited_user.uuid}"
272   end
273
274   test "check inactive and uninvited user properties" do
275     @uninvited_user = users(:inactive_uninvited)     # get the uninvited user
276     assert !@uninvited_user.is_admin, 'is_admin should not be set for a non-admin user'
277     assert !@uninvited_user.is_active, 'user should be inactive'
278     assert !@uninvited_user.is_invited, 'is_invited should not be set'
279     assert @uninvited_user.can? :read=>"#{@uninvited_user.uuid}"
280     assert @uninvited_user.can? :write=>"#{@uninvited_user.uuid}"
281     assert @uninvited_user.can? :manage=>"#{@uninvited_user.uuid}"
282
283     assert_equal(@uninvited_user.groups_i_can(:read).sort,
284                  [@uninvited_user.uuid, groups(:anonymous_group).uuid].sort)
285     assert_equal(@uninvited_user.groups_i_can(:write),
286                  [@uninvited_user.uuid])
287     assert_equal(@uninvited_user.groups_i_can(:manage),
288                  [@uninvited_user.uuid])
289   end
290
291   test "find user method checks" do
292     User.all.each do |user|
293       assert_not_nil user.uuid, "non-null uuid expected for " + user.full_name
294     end
295
296     user = users(:active)     # get the active user
297
298     found_user = User.find(user.id)   # find a user by the row id
299
300     assert_equal found_user.full_name, user.first_name + ' ' + user.last_name
301     assert_equal found_user.identity_url, user.identity_url
302   end
303
304   test "full name should not contain spurious whitespace" do
305     set_user_from_auth :admin
306
307     user = User.create ({uuid: 'zzzzz-tpzed-abcdefghijklmno', email: 'foo@example.com' })
308
309     assert_equal '', user.full_name
310
311     user.first_name = 'John'
312     user.last_name = 'Smith'
313
314     assert_equal user.first_name + ' ' + user.last_name, user.full_name
315   end
316
317   test "create new user" do
318     set_user_from_auth :admin
319
320     @all_users = User.all.to_a
321
322     user = User.new
323     user.first_name = "first_name_for_newly_created_user"
324     user.save
325
326     # verify there is one extra user in the db now
327     assert_equal @all_users.size+1, User.all.count
328
329     user = User.find(user.id)   # get the user back
330     assert_equal(user.first_name, 'first_name_for_newly_created_user')
331     assert_not_nil user.uuid, 'uuid should be set for newly created user'
332     assert_nil user.email, 'email should be null for newly created user, because it was not passed in'
333     assert_nil user.identity_url, 'identity_url should be null for newly created user, because it was not passed in'
334
335     user.first_name = 'first_name_for_newly_created_user_updated'
336     user.save
337     user = User.find(user.id)   # get the user back
338     assert_equal(user.first_name, 'first_name_for_newly_created_user_updated')
339   end
340
341   test "create new user with notifications" do
342     set_user_from_auth :admin
343
344     create_user_and_verify_setup_and_notifications true, {'active-notify-address@example.com'=>{}}, {'inactive-notify-address@example.com'=>{}}, nil, nil
345     create_user_and_verify_setup_and_notifications true, {'active-notify-address@example.com'=>{}}, {}, nil, nil
346     create_user_and_verify_setup_and_notifications true, {}, [], nil, nil
347     create_user_and_verify_setup_and_notifications false, {'active-notify-address@example.com'=>{}}, {'inactive-notify-address@example.com'=>{}}, nil, nil
348     create_user_and_verify_setup_and_notifications false, {}, {'inactive-notify-address@example.com'=>{}}, nil, nil
349     create_user_and_verify_setup_and_notifications false, {}, {}, nil, nil
350   end
351
352   [
353     # Easy inactive user tests.
354     [false, {}, {}, "inactive-none@example.com", false, false, "inactivenone"],
355     [false, {}, {}, "inactive-vm@example.com", true, false, "inactivevm"],
356     [false, {}, {}, "inactive-repo@example.com", false, true, "inactiverepo"],
357     [false, {}, {}, "inactive-both@example.com", true, true, "inactiveboth"],
358
359     # Easy active user tests.
360     [true, {"active-notify@example.com"=>{}}, {"inactive-notify@example.com"=>{}}, "active-none@example.com", false, false, "activenone"],
361     [true, {"active-notify@example.com"=>{}}, {"inactive-notify@example.com"=>{}}, "active-vm@example.com", true, false, "activevm"],
362     [true, {"active-notify@example.com"=>{}}, {"inactive-notify@example.com"=>{}}, "active-repo@example.com", false, true, "activerepo"],
363     [true, {"active-notify@example.com"=>{}}, {"inactive-notify@example.com"=>{}}, "active-both@example.com", true, true, "activeboth"],
364
365     # Test users with malformed e-mail addresses.
366     [false, {}, {}, nil, true, true, nil],
367     [false, {}, {}, "arvados", true, true, nil],
368     [false, {}, {}, "@example.com", true, true, nil],
369     [true, {"active-notify@example.com"=>{}}, {"inactive-notify@example.com"=>{}}, "*!*@example.com", true, false, nil],
370     [true, {"active-notify@example.com"=>{}}, {"inactive-notify@example.com"=>{}}, "*!*@example.com", false, false, nil],
371
372     # Test users with various username transformations.
373     [false, {}, {}, "arvados@example.com", false, false, "arvados2"],
374     [true, {"active-notify@example.com"=>{}}, {"inactive-notify@example.com"=>{}}, "arvados@example.com", false, false, "arvados2"],
375     [true, {"active-notify@example.com"=>{}}, {"inactive-notify@example.com"=>{}}, "root@example.com", true, false, "root2"],
376     [false, {"active-notify@example.com"=>{}}, {"inactive-notify@example.com"=>{}}, "root@example.com", true, false, "root2"],
377     [true, {"active-notify@example.com"=>{}}, {"inactive-notify@example.com"=>{}}, "roo_t@example.com", false, true, "root2"],
378     [false, {}, {}, "^^incorrect_format@example.com", true, true, "incorrectformat"],
379     [true, {"active-notify@example.com"=>{}}, {"inactive-notify@example.com"=>{}}, "&4a_d9.@example.com", true, true, "ad9"],
380     [true, {"active-notify@example.com"=>{}}, {"inactive-notify@example.com"=>{}}, "&4a_d9.@example.com", false, false, "ad9"],
381     [false, {"active-notify@example.com"=>{}}, {"inactive-notify@example.com"=>{}}, "&4a_d9.@example.com", true, true, "ad9"],
382     [false, {"active-notify@example.com"=>{}}, {"inactive-notify@example.com"=>{}}, "&4a_d9.@example.com", false, false, "ad9"],
383   ].each do |active, new_user_recipients, inactive_recipients, email, auto_setup_vm, auto_setup_repo, expect_username|
384     test "create new user with auto setup #{active} #{email} #{auto_setup_vm} #{auto_setup_repo}" do
385       set_user_from_auth :admin
386
387       Rails.configuration.Users.AutoSetupNewUsers = true
388
389       if auto_setup_vm
390         Rails.configuration.Users.AutoSetupNewUsersWithVmUUID = virtual_machines(:testvm)['uuid']
391       else
392         Rails.configuration.Users.AutoSetupNewUsersWithVmUUID = ""
393       end
394
395       Rails.configuration.Users.AutoSetupNewUsersWithRepository = auto_setup_repo
396
397       create_user_and_verify_setup_and_notifications active, new_user_recipients, inactive_recipients, email, expect_username
398     end
399   end
400
401   test "update existing user" do
402     set_user_from_auth :active    # set active user as current user
403
404     @active_user = users(:active)     # get the active user
405
406     @active_user.first_name = "first_name_changed"
407     @active_user.save
408
409     @active_user = User.find(@active_user.id)   # get the user back
410     assert_equal(@active_user.first_name, 'first_name_changed')
411
412     # admin user also should be able to update the "active" user info
413     set_user_from_auth :admin # set admin user as current user
414     @active_user.first_name = "first_name_changed_by_admin_for_active_user"
415     @active_user.save
416
417     @active_user = User.find(@active_user.id)   # get the user back
418     assert_equal(@active_user.first_name, 'first_name_changed_by_admin_for_active_user')
419   end
420
421   test "delete a user and verify" do
422     @active_user = users(:active)     # get the active user
423     active_user_uuid = @active_user.uuid
424
425     set_user_from_auth :admin
426     @active_user.delete
427
428     found_deleted_user = false
429     User.all.each do |user|
430       if user.uuid == active_user_uuid
431         found_deleted_user = true
432         break
433       end
434     end
435     assert !found_deleted_user, "found deleted user: "+active_user_uuid
436
437   end
438
439   test "create new user as non-admin user" do
440     set_user_from_auth :active
441     assert_not_allowed { User.new.save }
442   end
443
444   test "setup new user" do
445     set_user_from_auth :admin
446
447     email = 'foo@example.com'
448     openid_prefix = 'http://openid/prefix'
449
450     user = User.create ({uuid: 'zzzzz-tpzed-abcdefghijklmno', email: email})
451
452     vm = VirtualMachine.create
453
454     response = user.setup(openid_prefix: openid_prefix,
455                           repo_name: 'foo/testrepo',
456                           vm_uuid: vm.uuid)
457
458     resp_user = find_obj_in_resp response, 'User'
459     verify_user resp_user, email
460
461     group_perm = find_obj_in_resp response, 'Link', 'arvados#group'
462     verify_link group_perm, 'permission', 'can_read', resp_user[:uuid], nil
463
464     repo_perm = find_obj_in_resp response, 'Link', 'arvados#repository'
465     verify_link repo_perm, 'permission', 'can_manage', resp_user[:uuid], nil
466
467     vm_perm = find_obj_in_resp response, 'Link', 'arvados#virtualMachine'
468     verify_link vm_perm, 'permission', 'can_login', resp_user[:uuid], vm.uuid
469     assert_equal("foo", vm_perm.properties["username"])
470   end
471
472   test "setup new user with junk in database" do
473     set_user_from_auth :admin
474
475     email = 'foo@example.com'
476     openid_prefix = 'http://openid/prefix'
477
478     user = User.create ({uuid: 'zzzzz-tpzed-abcdefghijklmno', email: email})
479
480     vm = VirtualMachine.create
481
482     # Set up the bogus Link
483     bad_uuid = 'zzzzz-tpzed-xyzxyzxyzxyzxyz'
484
485     resp_link = Link.create ({tail_uuid: email, link_class: 'permission',
486         name: 'can_login', head_uuid: bad_uuid})
487     resp_link.save(validate: false)
488
489     verify_link resp_link, 'permission', 'can_login', email, bad_uuid
490
491     response = user.setup(openid_prefix: openid_prefix,
492                           repo_name: 'foo/testrepo',
493                           vm_uuid: vm.uuid)
494
495     resp_user = find_obj_in_resp response, 'User'
496     verify_user resp_user, email
497
498     group_perm = find_obj_in_resp response, 'Link', 'arvados#group'
499     verify_link group_perm, 'permission', 'can_read', resp_user[:uuid], nil
500
501     repo_perm = find_obj_in_resp response, 'Link', 'arvados#repository'
502     verify_link repo_perm, 'permission', 'can_manage', resp_user[:uuid], nil
503
504     vm_perm = find_obj_in_resp response, 'Link', 'arvados#virtualMachine'
505     verify_link vm_perm, 'permission', 'can_login', resp_user[:uuid], vm.uuid
506     assert_equal("foo", vm_perm.properties["username"])
507   end
508
509   test "setup new user in multiple steps" do
510     set_user_from_auth :admin
511
512     email = 'foo@example.com'
513     openid_prefix = 'http://openid/prefix'
514
515     user = User.create ({uuid: 'zzzzz-tpzed-abcdefghijklmno', email: email})
516
517     response = user.setup(openid_prefix: openid_prefix)
518
519     resp_user = find_obj_in_resp response, 'User'
520     verify_user resp_user, email
521
522     group_perm = find_obj_in_resp response, 'Link', 'arvados#group'
523     verify_link group_perm, 'permission', 'can_read', resp_user[:uuid], nil
524
525     # invoke setup again with repo_name
526     response = user.setup(openid_prefix: openid_prefix,
527                           repo_name: 'foo/testrepo')
528     resp_user = find_obj_in_resp response, 'User', nil
529     verify_user resp_user, email
530     assert_equal user.uuid, resp_user[:uuid], 'expected uuid not found'
531
532     group_perm = find_obj_in_resp response, 'Link', 'arvados#group'
533     verify_link group_perm, 'permission', 'can_read', resp_user[:uuid], nil
534
535     repo_perm = find_obj_in_resp response, 'Link', 'arvados#repository'
536     verify_link repo_perm, 'permission', 'can_manage', resp_user[:uuid], nil
537
538     # invoke setup again with a vm_uuid
539     vm = VirtualMachine.create
540
541     response = user.setup(openid_prefix: openid_prefix,
542                           repo_name: 'foo/testrepo',
543                           vm_uuid: vm.uuid)
544
545     resp_user = find_obj_in_resp response, 'User', nil
546     verify_user resp_user, email
547     assert_equal user.uuid, resp_user[:uuid], 'expected uuid not found'
548
549     group_perm = find_obj_in_resp response, 'Link', 'arvados#group'
550     verify_link group_perm, 'permission', 'can_read', resp_user[:uuid], nil
551
552     repo_perm = find_obj_in_resp response, 'Link', 'arvados#repository'
553     verify_link repo_perm, 'permission', 'can_manage', resp_user[:uuid], nil
554
555     vm_perm = find_obj_in_resp response, 'Link', 'arvados#virtualMachine'
556     verify_link vm_perm, 'permission', 'can_login', resp_user[:uuid], vm.uuid
557     assert_equal("foo", vm_perm.properties["username"])
558   end
559
560   def find_obj_in_resp (response_items, object_type, head_kind=nil)
561     return_obj = nil
562     response_items.each { |x|
563       if !x
564         next
565       end
566
567       if object_type == 'User'
568         if ArvadosModel::resource_class_for_uuid(x['uuid']) == User
569           return_obj = x
570           break
571         end
572       else  # looking for a link
573         if ArvadosModel::resource_class_for_uuid(x['head_uuid']).kind == head_kind
574           return_obj = x
575           break
576         end
577       end
578     }
579     return return_obj
580   end
581
582   def verify_user (resp_user, email)
583     assert_not_nil resp_user, 'expected user object'
584     assert_not_nil resp_user['uuid'], 'expected user object'
585     assert_equal email, resp_user['email'], 'expected email not found'
586
587   end
588
589   def verify_link (link_object, link_class, link_name, tail_uuid, head_uuid)
590     assert_not_nil link_object, "expected link for #{link_class} #{link_name}"
591     assert_not_nil link_object[:uuid],
592         "expected non-nil uuid for link for #{link_class} #{link_name}"
593     assert_equal link_class, link_object[:link_class],
594         "expected link_class not found for #{link_class} #{link_name}"
595     assert_equal link_name, link_object[:name],
596         "expected link_name not found for #{link_class} #{link_name}"
597     assert_equal tail_uuid, link_object[:tail_uuid],
598         "expected tail_uuid not found for #{link_class} #{link_name}"
599     if head_uuid
600       assert_equal head_uuid, link_object[:head_uuid],
601           "expected head_uuid not found for #{link_class} #{link_name}"
602     end
603   end
604
605   def create_user_and_verify_setup_and_notifications (active, new_user_recipients, inactive_recipients, email, expect_username)
606     Rails.configuration.Users.NewUserNotificationRecipients = new_user_recipients
607     Rails.configuration.Users.NewInactiveUserNotificationRecipients = inactive_recipients
608
609     ActionMailer::Base.deliveries = []
610
611     can_setup = (Rails.configuration.Users.AutoSetupNewUsers and
612                  (not expect_username.nil?))
613     expect_repo_name = "#{expect_username}/#{expect_username}"
614     prior_repo = Repository.where(name: expect_repo_name).first
615
616     user = User.new
617     user.first_name = "first_name_for_newly_created_user"
618     user.email = email
619     user.is_active = active
620     user.save!
621     assert_equal(expect_username, user.username)
622
623     # check user setup
624     verify_link_exists(Rails.configuration.Users.AutoSetupNewUsers || active,
625                        groups(:all_users).uuid, user.uuid,
626                        "permission", "can_read")
627
628     # Check for repository.
629     if named_repo = (prior_repo or
630                      Repository.where(name: expect_repo_name).first)
631       verify_link_exists((can_setup and prior_repo.nil? and
632                           Rails.configuration.Users.AutoSetupNewUsersWithRepository),
633                          named_repo.uuid, user.uuid, "permission", "can_manage")
634     end
635     # Check for VM login.
636     if (auto_vm_uuid = Rails.configuration.Users.AutoSetupNewUsersWithVmUUID) != ""
637       verify_link_exists(can_setup, auto_vm_uuid, user.uuid,
638                          "permission", "can_login", "username", expect_username)
639     end
640
641     # check email notifications
642     new_user_email = nil
643     new_inactive_user_email = nil
644
645     new_user_email_subject = "#{Rails.configuration.Users.EmailSubjectPrefix}New user created notification"
646     if Rails.configuration.Users.AutoSetupNewUsers
647       new_user_email_subject = (expect_username or active) ?
648                                  "#{Rails.configuration.Users.EmailSubjectPrefix}New user created and setup notification" :
649                                  "#{Rails.configuration.Users.EmailSubjectPrefix}New user created, but not setup notification"
650     end
651
652     ActionMailer::Base.deliveries.each do |d|
653       if d.subject == new_user_email_subject then
654         new_user_email = d
655       elsif d.subject == "#{Rails.configuration.Users.EmailSubjectPrefix}New inactive user notification" then
656         new_inactive_user_email = d
657       end
658     end
659
660     # both active and inactive user creations should result in new user creation notification mails,
661     # if the new user email recipients config parameter is set
662     if not new_user_recipients.empty? then
663       assert_not_nil new_user_email, 'Expected new user email after setup'
664       assert_equal Rails.configuration.Users.UserNotifierEmailFrom, new_user_email.from[0]
665       assert_equal new_user_recipients.keys.first, new_user_email.to[0]
666       assert_equal new_user_email_subject, new_user_email.subject
667     else
668       assert_nil new_user_email, 'Did not expect new user email after setup'
669     end
670
671     if not active
672       if not inactive_recipients.empty? then
673         assert_not_nil new_inactive_user_email, 'Expected new inactive user email after setup'
674         assert_equal Rails.configuration.Users.UserNotifierEmailFrom, new_inactive_user_email.from[0]
675         assert_equal inactive_recipients.keys.first, new_inactive_user_email.to[0]
676         assert_equal "#{Rails.configuration.Users.EmailSubjectPrefix}New inactive user notification", new_inactive_user_email.subject
677       else
678         assert_nil new_inactive_user_email, 'Did not expect new inactive user email after setup'
679       end
680     else
681       assert_nil new_inactive_user_email, 'Expected no inactive user email after setting up active user'
682     end
683     ActionMailer::Base.deliveries = []
684
685   end
686
687   def verify_link_exists link_exists, head_uuid, tail_uuid, link_class, link_name, property_name=nil, property_value=nil
688     all_links = Link.where(head_uuid: head_uuid,
689                            tail_uuid: tail_uuid,
690                            link_class: link_class,
691                            name: link_name)
692     assert_equal link_exists, all_links.any?, "Link #{'not' if link_exists} found for #{link_name} #{link_class} #{property_value}"
693     if link_exists && property_name && property_value
694       all_links.each do |link|
695         assert_equal true, all_links.first.properties[property_name].start_with?(property_value), 'Property not found in link'
696       end
697     end
698   end
699
700   [
701     [:active, 'zzzzz-borkd-abcde12345abcde'],
702     [:active, 'zzzzz-j7d0g-abcde12345abcde'],
703     [:active, 'zzzzz-tpzed-borkd'],
704     [:system_user, 'zzzzz-tpzed-abcde12345abcde'],
705     [:anonymous, 'zzzzz-tpzed-abcde12345abcde'],
706   ].each do |fixture, new_uuid|
707     test "disallow update_uuid #{fixture} -> #{new_uuid}" do
708       u = users(fixture)
709       orig_uuid = u.uuid
710       act_as_system_user do
711         assert_raises do
712           u.update_uuid(new_uuid: new_uuid)
713         end
714       end
715       # "Successfully aborted orig->new" outcome looks the same as
716       # "successfully updated new->orig".
717       assert_update_success(old_uuid: new_uuid,
718                             new_uuid: orig_uuid,
719                             expect_owned_objects: fixture == :active)
720     end
721   end
722
723   [:active, :spectator, :admin].each do |target|
724     test "update_uuid on #{target} as non-admin user" do
725       act_as_user users(:active) do
726         assert_raises(ArvadosModel::PermissionDeniedError) do
727           users(target).update_uuid(new_uuid: 'zzzzz-tpzed-abcde12345abcde')
728         end
729       end
730     end
731   end
732
733   test "update_uuid to existing uuid" do
734     u = users(:active)
735     orig_uuid = u.uuid
736     new_uuid = users(:admin).uuid
737     act_as_system_user do
738       assert_raises do
739         u.update_uuid(new_uuid: new_uuid)
740       end
741     end
742     u.reload
743     assert_equal u.uuid, orig_uuid
744     assert_not_empty Collection.where(owner_uuid: orig_uuid)
745     assert_not_empty Group.where(owner_uuid: orig_uuid)
746   end
747
748   [
749     [:active, 'zbbbb-tpzed-abcde12345abcde'],
750     [:active, 'zzzzz-tpzed-abcde12345abcde'],
751     [:admin, 'zbbbb-tpzed-abcde12345abcde'],
752     [:admin, 'zzzzz-tpzed-abcde12345abcde'],
753   ].each do |fixture, new_uuid|
754     test "update_uuid #{fixture} to unused uuid #{new_uuid}" do
755       u = users(fixture)
756       orig_uuid = u.uuid
757       act_as_system_user do
758         u.update_uuid(new_uuid: new_uuid)
759       end
760       assert_update_success(old_uuid: orig_uuid,
761                             new_uuid: new_uuid,
762                             expect_owned_objects: fixture == :active)
763     end
764   end
765
766   def assert_update_success(old_uuid:, new_uuid:, expect_owned_objects: true)
767     [[User, :uuid],
768      [Link, :head_uuid],
769      [Link, :tail_uuid],
770      [Group, :owner_uuid],
771      [Collection, :owner_uuid],
772     ].each do |klass, attr|
773       assert_empty klass.where(attr => old_uuid)
774       if klass == User || expect_owned_objects
775         assert_not_empty klass.where(attr => new_uuid)
776       end
777     end
778   end
779
780   test "lookup user by email" do
781     u = User.register({"email" => "active-user@arvados.local", "identity_url" => "different-identity-url"})
782     active = User.find_by_uuid(users(:active).uuid)
783     assert_equal active.uuid, u.uuid
784     assert_equal "active-user@arvados.local", active.email
785     # identity_url is not updated
786     assert_equal "https://active-user.openid.local", active.identity_url
787   end
788
789   test "lookup user by alternate email" do
790     # register method will find that active-user@arvados.local already
791     # exists and return existing 'active' user.
792     u = User.register({"email" => "user@parent-company.com",
793                        "alternate_emails" => ["active-user@arvados.local"],
794                        "identity_url" => "different-identity-url"})
795     active = User.find_by_uuid(users(:active).uuid)
796     assert_equal active.uuid, u.uuid
797
798     # email should be updated
799     assert_equal "user@parent-company.com", active.email
800
801     # identity_url is not updated
802     assert_equal "https://active-user.openid.local", active.identity_url
803   end
804
805   test "register new user" do
806     u = User.register({"email" => "never-before-seen-user@arvados.local",
807                        "identity_url" => "different-identity-url",
808                        "first_name" => "Robert",
809                        "last_name" => "Baratheon",
810                        "username" => "bobby"})
811     nbs = User.find_by_uuid(u.uuid)
812     assert_equal nbs.uuid, u.uuid
813     assert_equal "different-identity-url", nbs.identity_url
814     assert_equal "never-before-seen-user@arvados.local", nbs.email
815     assert_equal false, nbs.is_admin
816     assert_equal false , nbs.is_active
817     assert_equal "bobby", nbs.username
818     assert_equal "Robert", nbs.first_name
819     assert_equal "Baratheon", nbs.last_name
820   end
821
822   test "fail when email address is ambiguous" do
823     User.register({"email" => "active-user@arvados.local"})
824     u = User.register({"email" => "never-before-seen-user@arvados.local"})
825     u.email = "active-user@arvados.local"
826     act_as_system_user do
827       u.save!
828     end
829     assert_raises do
830       User.register({"email" => "active-user@arvados.local"})
831     end
832   end
833
834   test "fail lookup without identifiers" do
835     assert_raises do
836       User.register({"first_name" => "Robert", "last_name" => "Baratheon"})
837     end
838     assert_raises do
839       User.register({"first_name" => "Robert", "last_name" => "Baratheon", "identity_url" => "", "email" => ""})
840     end
841   end
842
843   test "user can update name" do
844     set_user_from_auth :active
845     user = users(:active)
846     user.first_name = "MyNewName"
847     assert user.save
848   end
849
850   test "user cannot update email" do
851     set_user_from_auth :active
852     user = users(:active)
853     user.email = "new-name@example.com"
854     assert_not_allowed { user.save }
855   end
856
857   test "admin can update email" do
858     set_user_from_auth :admin
859     user = users(:active)
860     user.email = "new-name@example.com"
861     assert user.save
862   end
863
864 end