SoundSoftware Code Site

# Redmine - project management software

# Copyright (C) 2006-2012  Jean-Philippe Lang

#

# This program is free software; you can redistribute it and/or

# modify it under the terms of the GNU General Public License

# as published by the Free Software Foundation; either version 2

# of the License, or (at your option) any later version.

#

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

# GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License

# along with this program; if not, write to the Free Software

# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.

require File.expand_path('../../test_helper', __FILE__)

class AccountControllerOpenidTest < ActionController::TestCase

  tests AccountController

  fixtures :users, :roles

  def setup

    User.current = nil

    Setting.openid = '1'

  end

  def teardown

    Setting.openid = '0'

  end

  if Object.const_defined?(:OpenID)

    def test_login_with_openid_for_existing_user

      Setting.self_registration = '3'

      existing_user = User.new(:firstname => 'Cool',

                               :lastname => 'User',

                               :mail => 'user@somedomain.com',

                               :identity_url => 'http://openid.example.com/good_user')

      existing_user.login = 'cool_user'

      assert existing_user.save!

      post :login, :openid_url => existing_user.identity_url

      assert_redirected_to '/my/page'

    end

    def test_login_with_invalid_openid_provider

      Setting.self_registration = '0'

      post :login, :openid_url => 'http;//openid.example.com/good_user'

      assert_redirected_to home_url

    end

    def test_login_with_openid_for_existing_non_active_user

      Setting.self_registration = '2'

      existing_user = User.new(:firstname => 'Cool',

                               :lastname => 'User',

                               :mail => 'user@somedomain.com',

                               :identity_url => 'http://openid.example.com/good_user',

                               :status => User::STATUS_REGISTERED)

      existing_user.login = 'cool_user'

      assert existing_user.save!

      post :login, :openid_url => existing_user.identity_url

      assert_redirected_to '/login'

    end

    def test_login_with_openid_with_new_user_created

      Setting.self_registration = '3'

      post :login, :openid_url => 'http://openid.example.com/good_user'

      assert_redirected_to '/my/account'

      user = User.find_by_login('cool_user')

      assert user

      assert_equal 'Cool', user.firstname

      assert_equal 'User', user.lastname

    end

    def test_login_with_openid_with_new_user_and_self_registration_off

      Setting.self_registration = '0'

      post :login, :openid_url => 'http://openid.example.com/good_user'

      assert_redirected_to home_url

      user = User.find_by_login('cool_user')

      assert_nil user

    end

    def test_login_with_openid_with_new_user_created_with_email_activation_should_have_a_token

      Setting.self_registration = '1'

      post :login, :openid_url => 'http://openid.example.com/good_user'

      assert_redirected_to '/login'

      user = User.find_by_login('cool_user')

      assert user

      token = Token.find_by_user_id_and_action(user.id, 'register')

      assert token

    end

    def test_login_with_openid_with_new_user_created_with_manual_activation

      Setting.self_registration = '2'

      post :login, :openid_url => 'http://openid.example.com/good_user'

      assert_redirected_to '/login'

      user = User.find_by_login('cool_user')

      assert user

      assert_equal User::STATUS_REGISTERED, user.status

    end

    def test_login_with_openid_with_new_user_with_conflict_should_register

      Setting.self_registration = '3'

      existing_user = User.new(:firstname => 'Cool', :lastname => 'User', :mail => 'user@somedomain.com')

      existing_user.login = 'cool_user'

      assert existing_user.save!

      post :login, :openid_url => 'http://openid.example.com/good_user'

      assert_response :success

      assert_template 'register'

      assert assigns(:user)

      assert_equal 'http://openid.example.com/good_user', assigns(:user)[:identity_url]

    end

    def test_login_with_openid_with_new_user_with_missing_information_should_register

      Setting.self_registration = '3'

      post :login, :openid_url => 'http://openid.example.com/good_blank_user'

      assert_response :success

      assert_template 'register'

      assert assigns(:user)

      assert_equal 'http://openid.example.com/good_blank_user', assigns(:user)[:identity_url]

      assert_select 'input[name=?]', 'user[login]'

      assert_select 'input[name=?]', 'user[password]'

      assert_select 'input[name=?]', 'user[password_confirmation]'

      assert_select 'input[name=?][value=?]', 'user[identity_url]', 'http://openid.example.com/good_blank_user'

    end

    def test_register_after_login_failure_should_not_require_user_to_enter_a_password

      Setting.self_registration = '3'

      assert_difference 'User.count' do

        post :register, :user => {

          :login => 'good_blank_user',

          :password => '',

          :password_confirmation => '',

          :firstname => 'Cool',

          :lastname => 'User',

          :mail => 'user@somedomain.com',

          :identity_url => 'http://openid.example.com/good_blank_user'

        }

        assert_response 302

      end

      user = User.first(:order => 'id DESC')

      assert_equal 'http://openid.example.com/good_blank_user', user.identity_url

      assert user.hashed_password.blank?, "Hashed password was #{user.hashed_password}"

    end

    def test_setting_openid_should_return_true_when_set_to_true

      assert_equal true, Setting.openid?

    end

  else

    puts "Skipping openid tests."

    def test_dummy

    end

  end

end

# Redmine - project management software

# Copyright (C) 2006-2012  Jean-Philippe Lang

#

# This program is free software; you can redistribute it and/or

# modify it under the terms of the GNU General Public License

# as published by the Free Software Foundation; either version 2

# of the License, or (at your option) any later version.

#

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

# GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License

# along with this program; if not, write to the Free Software

# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.

require 'redmine/scm/adapters/abstract_adapter'

require 'cgi'

module Redmine

  module Scm

    module Adapters

      class MercurialAdapter < AbstractAdapter

        # Mercurial executable name

        HG_BIN = Redmine::Configuration['scm_mercurial_command'] || "hg"

        HELPERS_DIR = File.dirname(__FILE__) + "/mercurial"

        HG_HELPER_EXT = "#{HELPERS_DIR}/redminehelper.py"

        TEMPLATE_NAME = "hg-template"

        TEMPLATE_EXTENSION = "tmpl"

        # raised if hg command exited with error, e.g. unknown revision.

        class HgCommandAborted < CommandFailed; end

        class << self

          def client_command

            @@bin    ||= HG_BIN

          end

          def sq_bin

            @@sq_bin ||= shell_quote_command

          end

          def client_version

            @@client_version ||= (hgversion || [])

          end

          def client_available

            client_version_above?([1, 2])

          end

          def hgversion

            # The hg version is expressed either as a

            # release number (eg 0.9.5 or 1.0) or as a revision

            # id composed of 12 hexa characters.

            theversion = hgversion_from_command_line.dup

            if theversion.respond_to?(:force_encoding)

              theversion.force_encoding('ASCII-8BIT')

            end

            if m = theversion.match(%r{\A(.*?)((\d+\.)+\d+)})

              m[2].scan(%r{\d+}).collect(&:to_i)

            end

          end

          def hgversion_from_command_line

            shellout("#{sq_bin} --version") { |io| io.read }.to_s

          end

          def template_path

            @@template_path ||= template_path_for(client_version)

          end

          def template_path_for(version)

            "#{HELPERS_DIR}/#{TEMPLATE_NAME}-1.0.#{TEMPLATE_EXTENSION}"

          end

        end

        def initialize(url, root_url=nil, login=nil, password=nil, path_encoding=nil)

          super

          @path_encoding = path_encoding.blank? ? 'UTF-8' : path_encoding

        end

        def path_encoding

          @path_encoding

        end

        def info

          tip = summary['repository']['tip']

          Info.new(:root_url => CGI.unescape(summary['repository']['root']),

                   :lastrev => Revision.new(:revision => tip['revision'],

                                            :scmid => tip['node']))

        # rescue HgCommandAborted

        rescue Exception => e

          logger.error "hg: error during getting info: #{e.message}"

          nil

        end

        def tags

          as_ary(summary['repository']['tag']).map { |e| e['name'] }

        end

        # Returns map of {'tag' => 'nodeid', ...}

        def tagmap

          alist = as_ary(summary['repository']['tag']).map do |e|

            e.values_at('name', 'node')

          end

          Hash[*alist.flatten]

        end

        def branches

          brs = []

          as_ary(summary['repository']['branch']).each do |e|

            br = Branch.new(e['name'])

            br.revision =  e['revision']

            br.scmid    =  e['node']

            brs << br

          end

          brs

        end

        # Returns map of {'branch' => 'nodeid', ...}

        def branchmap

          alist = as_ary(summary['repository']['branch']).map do |e|

            e.values_at('name', 'node')

          end

          Hash[*alist.flatten]

        end

        def summary

          return @summary if @summary

          hg 'rhsummary' do |io|

            output = io.read

            if output.respond_to?(:force_encoding)

              output.force_encoding('UTF-8')

            end

            begin

              @summary = parse_xml(output)['rhsummary']

            rescue

            end

          end

        end

        private :summary

        def entries(path=nil, identifier=nil, options={})

          p1 = scm_iconv(@path_encoding, 'UTF-8', path)

          manifest = hg('rhmanifest', '-r', CGI.escape(hgrev(identifier)),

                        CGI.escape(without_leading_slash(p1.to_s))) do |io|

            output = io.read

            if output.respond_to?(:force_encoding)

              output.force_encoding('UTF-8')

            end

            begin

              parse_xml(output)['rhmanifest']['repository']['manifest']

            rescue

            end

          end

          path_prefix = path.blank? ? '' : with_trailling_slash(path)

          entries = Entries.new

          as_ary(manifest['dir']).each do |e|

            n = scm_iconv('UTF-8', @path_encoding, CGI.unescape(e['name']))

            p = "#{path_prefix}#{n}"

            entries << Entry.new(:name => n, :path => p, :kind => 'dir')

          end

          as_ary(manifest['file']).each do |e|

            n = scm_iconv('UTF-8', @path_encoding, CGI.unescape(e['name']))

            p = "#{path_prefix}#{n}"

            lr = Revision.new(:revision => e['revision'], :scmid => e['node'],

                              :identifier => e['node'],

                              :time => Time.at(e['time'].to_i))

            entries << Entry.new(:name => n, :path => p, :kind => 'file',

                                 :size => e['size'].to_i, :lastrev => lr)

          end

          entries

        rescue HgCommandAborted

          nil  # means not found

        end

        def revisions(path=nil, identifier_from=nil, identifier_to=nil, options={})

          revs = Revisions.new

          each_revision(path, identifier_from, identifier_to, options) { |e| revs << e }

          revs

        end

        # Iterates the revisions by using a template file that

        # makes Mercurial produce a xml output.

        def each_revision(path=nil, identifier_from=nil, identifier_to=nil, options={})

          hg_args = ['log', '--debug', '-C', '--style', self.class.template_path]

          hg_args << '-r' << "#{hgrev(identifier_from)}:#{hgrev(identifier_to)}"

          hg_args << '--limit' << options[:limit] if options[:limit]

          hg_args << hgtarget(path) unless path.blank?

          log = hg(*hg_args) do |io|

            output = io.read

            if output.respond_to?(:force_encoding)

              output.force_encoding('UTF-8')

            end

            begin

              # Mercurial < 1.5 does not support footer template for '</log>'

              parse_xml("#{output}</log>")['log']

            rescue

            end

          end

          as_ary(log['logentry']).each do |le|

            cpalist = as_ary(le['paths']['path-copied']).map do |e|

              [e['__content__'], e['copyfrom-path']].map do |s|

                scm_iconv('UTF-8', @path_encoding, CGI.unescape(s))

              end

            end

            cpmap = Hash[*cpalist.flatten]

            paths = as_ary(le['paths']['path']).map do |e|

              p = scm_iconv('UTF-8', @path_encoding, CGI.unescape(e['__content__']) )

              {:action        => e['action'],

               :path          => with_leading_slash(p),

               :from_path     => (cpmap.member?(p) ? with_leading_slash(cpmap[p]) : nil),

               :from_revision => (cpmap.member?(p) ? le['node'] : nil)}

            end.sort { |a, b| a[:path] <=> b[:path] }

            parents_ary = []

            as_ary(le['parents']['parent']).map do |par|

              parents_ary << par['__content__'] if par['__content__'] != "000000000000"

            end

            yield Revision.new(:revision => le['revision'],

                               :scmid    => le['node'],

                               :author   => (le['author']['__content__'] rescue ''),

                               :time     => Time.parse(le['date']['__content__']),

                               :message  => le['msg']['__content__'],

                               :paths    => paths,

                               :parents  => parents_ary)

          end

          self

        end

        # Returns list of nodes in the specified branch

        def nodes_in_branch(branch, options={})

          hg_args = ['rhlog', '--template', '{node|short}\n', '--rhbranch', CGI.escape(branch)]

          hg_args << '--from' << CGI.escape(branch)

          hg_args << '--to'   << '0'

          hg_args << '--limit' << options[:limit] if options[:limit]

          hg(*hg_args) { |io| io.readlines.map { |e| e.chomp } }

        end

        def diff(path, identifier_from, identifier_to=nil)

          hg_args = %w|rhdiff|

          if identifier_to

            hg_args << '-r' << hgrev(identifier_to) << '-r' << hgrev(identifier_from)

          else

            hg_args << '-c' << hgrev(identifier_from)

          end

          unless path.blank?

            p = scm_iconv(@path_encoding, 'UTF-8', path)

            hg_args << CGI.escape(hgtarget(p))

          end

          diff = []

          hg *hg_args do |io|

            io.each_line do |line|

              diff << line

            end

          end

          diff

        rescue HgCommandAborted

          nil  # means not found

        end

        def cat(path, identifier=nil)

          p = CGI.escape(scm_iconv(@path_encoding, 'UTF-8', path))

          hg 'rhcat', '-r', CGI.escape(hgrev(identifier)), hgtarget(p) do |io|

            io.binmode

            io.read

          end

        rescue HgCommandAborted

          nil  # means not found

        end

        def annotate(path, identifier=nil)

          p = CGI.escape(scm_iconv(@path_encoding, 'UTF-8', path))

          blame = Annotate.new

          hg 'rhannotate', '-ncu', '-r', CGI.escape(hgrev(identifier)), hgtarget(p) do |io|

            io.each_line do |line|

              line.force_encoding('ASCII-8BIT') if line.respond_to?(:force_encoding)

              next unless line =~ %r{^([^:]+)\s(\d+)\s([0-9a-f]+):\s(.*)$}

              r = Revision.new(:author => $1.strip, :revision => $2, :scmid => $3,

                               :identifier => $3)

              blame.add_line($4.rstrip, r)

            end

          end

          blame

        rescue HgCommandAborted

          # means not found or cannot be annotated

          Annotate.new

        end

        class Revision < Redmine::Scm::Adapters::Revision

          # Returns the readable identifier

          def format_identifier

            "#{revision}:#{scmid}"

          end

        end

        # Runs 'hg' command with the given args

        def hg(*args, &block)

          repo_path = root_url || url

          full_args = ['-R', repo_path, '--encoding', 'utf-8']

          full_args << '--config' << "extensions.redminehelper=#{HG_HELPER_EXT}"

          full_args << '--config' << 'diff.git=false'

          full_args += args

          ret = shellout(

                   self.class.sq_bin + ' ' + full_args.map { |e| shell_quote e.to_s }.join(' '),

                   &block

                   )

          if $? && $?.exitstatus != 0

            raise HgCommandAborted, "hg exited with non-zero status: #{$?.exitstatus}"

          end

          ret

        end

        private :hg

        # Returns correct revision identifier

        def hgrev(identifier, sq=false)

          rev = identifier.blank? ? 'tip' : identifier.to_s

          rev = shell_quote(rev) if sq

          rev

        end

        private :hgrev

        def hgtarget(path)

          path ||= ''

          root_url + '/' + without_leading_slash(path)

        end

        private :hgtarget

        def as_ary(o)

          return [] unless o

          o.is_a?(Array) ? o : Array[o]

        end

        private :as_ary

      end

    end

  end

end