dsp_permissions_matrix.pl

  my $user = Adama::DB::Object::User->get_test_object(
    username  => $username,
    password  => $password,
    type      => 'INTERNAL',
    role      => 'ADMIN',
    scope     => 'GLOBAL',
  );

# ... declare a bunch of scenarios ...

  foreach my $scenario (@scenarios) {
    # non IAG user can modify data_sharing_enabled
    my $user = Adama::DB::Object::User->new(
      id => $user_id
    );
    $user->type      => $scenario->{type};
    $user->role      => $scenario->{role};
    $user->scope     => $scenario->{scope};
    $user->save;
  }