Start implementing tests for Redmine.pm perl module.

git-svn-id: svn+ssh://rubyforge.org/var/svn/redmine/trunk@9826 e93f8b46-1217-0410-a6f0-8f06a7374b81

doc/RUNNING_TESTS

@@ -8,8 +8,8 @@ Running Tests
 =============
 
 Run `rake --tasks test` to see available tests.
-Run `rake test` to run the entire test suite (note that this will drop
+Run `rake test` to run the entire test suite (except the tests for the
-and recreate your test database)
+Apache perl module Redmine.pm, see below).
 
 You can run `ruby test/unit/issue_test.rb` for running a single test case.
 
@@ -42,3 +42,16 @@ The OpenLDAP project provides a simple LDAP implementation that should work
 good as a test server.
 
 If the LDAP is not available, the tests that need it will be skipped.
+
+Running Redmine.pm tests
+========================
+
+(work in progress)
+
+Running the tests for the Redmine.pm perl module needs a bit more setup.
+You need an Apache server with mod_perl, mod_dav_svn and Redmine.pm configured.
+See: http://www.redmine.org/projects/redmine/wiki/Repositories_access_control_with_apache_mod_dav_svn_and_mod_perl
+
+You need an empty repository accessible at http://127.0.0.1/svn/ecookbook
+Then, you can run the tests with:
+`ruby test\extra\redmine_pm\repository_subversion_test.rb`

test/extra/redmine_pm/repository_subversion_test.rb

@@ -0,0 +1,216 @@
+# 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_case', __FILE__)
+require 'tmpdir'
+
+class RedminePmTest::RepositorySubversionTest < RedminePmTest::TestCase
+  fixtures :projects, :users, :members, :roles, :member_roles
+
+  SVN_BIN = Redmine::Configuration['scm_subversion_command'] || "svn"
+
+  def test_anonymous_read_on_public_repo_with_permission_should_succeed
+    assert_success "ls", svn_url
+  end
+
+  def test_anonymous_read_on_public_repo_without_permission_should_fail
+    Role.anonymous.remove_permission! :browse_repository
+    assert_failure "ls", svn_url
+  end
+
+  def test_anonymous_read_on_private_repo_should_fail
+    Project.find(1).update_attribute :is_public, false
+    assert_failure "ls", svn_url
+  end
+
+  def test_anonymous_commit_on_public_repo_should_fail
+    Role.anonymous.add_permission! :commit_access
+    assert_failure "mkdir --message Creating_a_directory", svn_url(random_filename)
+  end
+
+  def test_anonymous_commit_on_private_repo_should_fail
+    Role.anonymous.add_permission! :commit_access
+    Project.find(1).update_attribute :is_public, false
+    assert_failure "mkdir --message Creating_a_directory", svn_url(random_filename)
+  end
+
+  def test_non_member_read_on_public_repo_with_permission_should_succeed
+    Role.anonymous.remove_permission! :browse_repository
+    with_credentials "miscuser8", "foo" do
+      assert_success "ls", svn_url
+    end
+  end
+
+  def test_non_member_read_on_public_repo_without_permission_should_fail
+    Role.anonymous.remove_permission! :browse_repository
+    Role.non_member.remove_permission! :browse_repository
+    with_credentials "miscuser8", "foo" do
+      assert_failure "ls", svn_url
+    end
+  end
+
+  def test_non_member_read_on_private_repo_should_fail
+    Project.find(1).update_attribute :is_public, false
+    with_credentials "miscuser8", "foo" do
+      assert_failure "ls", svn_url
+    end
+  end
+
+  def test_non_member_commit_on_public_repo_should_fail
+    Role.non_member.add_permission! :commit_access
+    assert_failure "mkdir --message Creating_a_directory", svn_url(random_filename)
+  end
+
+  def test_non_member_commit_on_private_repo_should_fail
+    Role.non_member.add_permission! :commit_access
+    Project.find(1).update_attribute :is_public, false
+    assert_failure "mkdir --message Creating_a_directory", svn_url(random_filename)
+  end
+
+  def test_member_read_on_public_repo_with_permission_should_succeed
+    Role.anonymous.remove_permission! :browse_repository
+    Role.non_member.remove_permission! :browse_repository
+    with_credentials "dlopper", "foo" do
+      assert_success "ls", svn_url
+    end
+  end
+
+  def test_member_read_on_public_repo_without_permission_should_fail
+    Role.anonymous.remove_permission! :browse_repository
+    Role.non_member.remove_permission! :browse_repository
+    Role.find(2).remove_permission! :browse_repository
+    with_credentials "dlopper", "foo" do
+      assert_failure "ls", svn_url
+    end
+  end
+
+  def test_member_read_on_private_repo_with_permission_should_succeed
+    Project.find(1).update_attribute :is_public, false
+    with_credentials "dlopper", "foo" do
+      assert_success "ls", svn_url
+    end
+  end
+
+  def test_member_read_on_private_repo_without_permission_should_fail
+    Role.find(2).remove_permission! :browse_repository
+    Project.find(1).update_attribute :is_public, false
+    with_credentials "dlopper", "foo" do
+      assert_failure "ls", svn_url
+    end
+  end
+
+  def test_member_commit_on_public_repo_with_permission_should_succeed
+    Role.find(2).add_permission! :commit_access
+    with_credentials "dlopper", "foo" do
+      assert_success "mkdir --message Creating_a_directory", svn_url(random_filename)
+    end
+  end
+
+  def test_member_commit_on_public_repo_without_permission_should_fail
+    Role.find(2).remove_permission! :commit_access
+    with_credentials "dlopper", "foo" do
+      assert_failure "mkdir --message Creating_a_directory", svn_url(random_filename)
+    end
+  end
+
+  def test_member_commit_on_private_repo_with_permission_should_succeed
+    Role.find(2).add_permission! :commit_access
+    Project.find(1).update_attribute :is_public, false
+    with_credentials "dlopper", "foo" do
+      assert_success "mkdir --message Creating_a_directory", svn_url(random_filename)
+    end
+  end
+
+  def test_member_commit_on_private_repo_without_permission_should_fail
+    Role.find(2).remove_permission! :commit_access
+    Project.find(1).update_attribute :is_public, false
+    with_credentials "dlopper", "foo" do
+      assert_failure "mkdir --message Creating_a_directory", svn_url(random_filename)
+    end
+  end
+
+  def test_invalid_credentials_should_fail
+    Project.find(1).update_attribute :is_public, false
+    with_credentials "dlopper", "foo" do
+      assert_success "ls", svn_url
+    end
+    with_credentials "dlopper", "wrong" do
+      assert_failure "ls", svn_url
+    end
+  end
+
+  def test_checkout
+    Dir.mktmpdir do |dir|
+      assert_success "checkout", svn_url, dir
+    end
+  end
+
+  def test_read_commands
+    assert_success "info", svn_url
+    assert_success "ls", svn_url
+    assert_success "log", svn_url
+  end
+
+  def test_write_commands
+    Role.find(2).add_permission! :commit_access
+    filename = DateTime.now.strftime("%y%m%d%H%M%S")
+
+    Dir.mktmpdir do |dir|
+      assert_success "checkout", svn_url, dir
+      Dir.chdir(dir) do
+        # creates a file in the working copy
+        f = File.new(File.join(dir, filename), "w")
+        f.write "test file content"
+        f.close
+
+        assert_success "add", filename
+        with_credentials "dlopper", "foo" do
+          assert_success "commit --message Committing_a_file"
+          assert_success "copy   --message Copying_a_file", svn_url(filename), svn_url("#{filename}_copy")
+          assert_success "delete --message Deleting_a_file", svn_url(filename)
+          assert_success "mkdir  --message Creating_a_directory", svn_url("#{filename}_dir")
+        end
+        assert_success "update"
+
+        # checks that the working copy was updated
+        assert File.exists?(File.join(dir, "#{filename}_copy"))
+        assert File.directory?(File.join(dir, "#{filename}_dir"))
+      end
+    end
+  end
+
+  def test_read_invalid_repo_should_fail
+    assert_failure "ls", svn_url("invalid")
+  end
+
+  protected
+
+  def execute(*args)
+    a = [SVN_BIN, "--no-auth-cache --non-interactive"]
+    a << "--username #{username}" if username
+    a << "--password #{password}" if password
+
+    super a, *args
+  end
+
+  def svn_url(path=nil)
+    host = ENV['REDMINE_TEST_DAV_SERVER'] || '127.0.0.1'
+    url = "http://#{host}/svn/ecookbook"
+    url << "/#{path}" if path
+    url
+  end
+end

test/extra/redmine_pm/test_case.rb

@@ -0,0 +1,81 @@
+# 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__)
+
+module RedminePmTest
+  class TestCase < ActiveSupport::TestCase
+    attr_reader :command, :response, :status, :username, :password
+    
+    # Cannot use transactional fixtures here: database
+    # will be accessed from Redmine.pm with its own connection
+    self.use_transactional_fixtures = false
+  
+    def test_dummy
+    end
+  
+    protected
+  
+    def assert_response(expected, msg=nil)
+      case expected
+      when :success
+        assert_equal 0, status,
+          (msg || "The command failed (exit: #{status}):\n  #{command}\nOutput was:\n#{formatted_response}")
+      when :failure
+        assert_not_equal 0, status,
+          (msg || "The command succeed (exit: #{status}):\n  #{command}\nOutput was:\n#{formatted_response}")
+      else
+        assert_equal expected, status, msg
+      end
+    end
+  
+    def assert_success(*args)
+      execute *args
+      assert_response :success
+    end
+  
+    def assert_failure(*args)
+      execute *args
+      assert_response :failure
+    end
+    
+    def with_credentials(username, password)
+      old_username, old_password = @username, @password
+      @username, @password = username, password
+      yield if block_given?
+    ensure
+      @username, @password = old_username, old_password
+    end
+    
+    def execute(*args)
+      @command = args.join(' ')
+      @status = nil
+      IO.popen("#{command} 2>&1") do |io|
+        @response = io.read
+      end
+      @status = $?.exitstatus
+    end
+  
+    def formatted_response
+      "#{'='*40}\n#{response}#{'='*40}"
+    end
+  
+    def random_filename
+      Redmine::Utils.random_hex(16)
+    end
+  end
+end

test/fixtures/users.yml

@@ -126,7 +126,9 @@ users_008:
   status: 1
   last_login_on: 
   language: 'it'
-  hashed_password: 1
+  # password = foo
+  salt: 7599f9963ec07b5a3b55b354407120c0
+  hashed_password: 8f659c8d7c072f189374edacfa90d6abbc26d8ed
   updated_on: 2006-07-19 19:33:19 +02:00
   admin: false
   mail: miscuser8@foo.bar