ohloh_scm 2.5.1 → 3.0.1

data/test/repositories/svn_with_tree_move/hooks/pre-lock.tmpl

@@ -1,64 +0,0 @@
-#!/bin/sh
-
-# PRE-LOCK HOOK
-#
-# The pre-lock hook is invoked before an exclusive lock is
-# created.  Subversion runs this hook by invoking a program 
-# (script, executable, binary, etc.) named 'pre-lock' (for which
-# this file is a template), with the following ordered arguments:
-#
-#   [1] REPOS-PATH   (the path to this repository)
-#   [2] PATH         (the path in the repository about to be locked)
-#   [3] USER         (the user creating the lock)
-#
-# The default working directory for the invocation is undefined, so
-# the program should set one explicitly if it cares.
-#
-# If the hook program exits with success, the lock is created; but
-# if it exits with failure (non-zero), the lock action is aborted
-# and STDERR is returned to the client.
-
-# On a Unix system, the normal procedure is to have 'pre-lock'
-# invoke other programs to do the real work, though it may do the
-# work itself too.
-#
-# Note that 'pre-lock' must be executable by the user(s) who will
-# invoke it (typically the user httpd runs as), and that user must
-# have filesystem-level permission to access the repository.
-#
-# On a Windows system, you should name the hook program
-# 'pre-lock.bat' or 'pre-lock.exe',
-# but the basic idea is the same.
-#
-# Here is an example hook script, for a Unix /bin/sh interpreter:
-
-REPOS="$1"
-PATH="$2"
-USER="$3"
-
-# If a lock exists and is owned by a different person, don't allow it
-# to be stolen (e.g., with 'svn lock --force ...').
-
-# (Maybe this script could send email to the lock owner?)
-SVNLOOK=/opt/local/bin/svnlook
-GREP=/bin/grep
-SED=/bin/sed
-
-LOCK_OWNER=`$SVNLOOK lock "$REPOS" "$PATH" | \
-            $GREP '^Owner: ' | $SED 's/Owner: //'`
-
-# If we get no result from svnlook, there's no lock, allow the lock to
-# happen:
-if [ "$LOCK_OWNER" = "" ]; then
-  exit 0
-fi
-
-# If the person locking matches the lock's owner, allow the lock to
-# happen:
-if [ "$LOCK_OWNER" = "$USER" ]; then
-  exit 0
-fi
-
-# Otherwise, we've got an owner mismatch, so return failure:
-echo "Error: $PATH already locked by ${LOCK_OWNER}." 1>&2
-exit 1

data/test/repositories/svn_with_tree_move/hooks/pre-revprop-change.tmpl

@@ -1,66 +0,0 @@
-#!/bin/sh
-
-# PRE-REVPROP-CHANGE HOOK
-#
-# The pre-revprop-change hook is invoked before a revision property
-# is added, modified or deleted.  Subversion runs this hook by invoking
-# a program (script, executable, binary, etc.) named 'pre-revprop-change'
-# (for which this file is a template), with the following ordered
-# arguments:
-#
-#   [1] REPOS-PATH   (the path to this repository)
-#   [2] REVISION     (the revision being tweaked)
-#   [3] USER         (the username of the person tweaking the property)
-#   [4] PROPNAME     (the property being set on the revision)
-#   [5] ACTION       (the property is being 'A'dded, 'M'odified, or 'D'eleted)
-#
-#   [STDIN] PROPVAL  ** the new property value is passed via STDIN.
-#
-# If the hook program exits with success, the propchange happens; but
-# if it exits with failure (non-zero), the propchange doesn't happen.
-# The hook program can use the 'svnlook' utility to examine the 
-# existing value of the revision property.
-#
-# WARNING: unlike other hooks, this hook MUST exist for revision
-# properties to be changed.  If the hook does not exist, Subversion 
-# will behave as if the hook were present, but failed.  The reason
-# for this is that revision properties are UNVERSIONED, meaning that
-# a successful propchange is destructive;  the old value is gone
-# forever.  We recommend the hook back up the old value somewhere.
-#
-# On a Unix system, the normal procedure is to have 'pre-revprop-change'
-# invoke other programs to do the real work, though it may do the
-# work itself too.
-#
-# Note that 'pre-revprop-change' must be executable by the user(s) who will
-# invoke it (typically the user httpd runs as), and that user must
-# have filesystem-level permission to access the repository.
-#
-# On a Windows system, you should name the hook program
-# 'pre-revprop-change.bat' or 'pre-revprop-change.exe',
-# but the basic idea is the same.
-#
-# The hook program typically does not inherit the environment of
-# its parent process.  For example, a common problem is for the
-# PATH environment variable to not be set to its usual value, so
-# that subprograms fail to launch unless invoked via absolute path.
-# If you're having unexpected problems with a hook program, the
-# culprit may be unusual (or missing) environment variables.
-# 
-# Here is an example hook script, for a Unix /bin/sh interpreter.
-# For more examples and pre-written hooks, see those in
-# the Subversion repository at
-# http://svn.collab.net/repos/svn/trunk/tools/hook-scripts/ and
-# http://svn.collab.net/repos/svn/trunk/contrib/hook-scripts/
-
-
-REPOS="$1"
-REV="$2"
-USER="$3"
-PROPNAME="$4"
-ACTION="$5"
-
-if [ "$ACTION" = "M" -a "$PROPNAME" = "svn:log" ]; then exit 0; fi
-
-echo "Changing revision properties other than svn:log is prohibited" >&2
-exit 1

data/test/repositories/svn_with_tree_move/hooks/pre-unlock.tmpl

@@ -1,60 +0,0 @@
-#!/bin/sh
-
-# PRE-UNLOCK HOOK
-#
-# The pre-unlock hook is invoked before an exclusive lock is
-# destroyed.  Subversion runs this hook by invoking a program 
-# (script, executable, binary, etc.) named 'pre-unlock' (for which
-# this file is a template), with the following ordered arguments:
-#
-#   [1] REPOS-PATH   (the path to this repository)
-#   [2] PATH         (the path in the repository about to be unlocked)
-#   [3] USER         (the user destroying the lock)
-#
-# The default working directory for the invocation is undefined, so
-# the program should set one explicitly if it cares.
-#
-# If the hook program exits with success, the lock is destroyed; but
-# if it exits with failure (non-zero), the unlock action is aborted
-# and STDERR is returned to the client.
-
-# On a Unix system, the normal procedure is to have 'pre-unlock'
-# invoke other programs to do the real work, though it may do the
-# work itself too.
-#
-# Note that 'pre-unlock' must be executable by the user(s) who will
-# invoke it (typically the user httpd runs as), and that user must
-# have filesystem-level permission to access the repository.
-#
-# On a Windows system, you should name the hook program
-# 'pre-unlock.bat' or 'pre-unlock.exe',
-# but the basic idea is the same.
-#
-# Here is an example hook script, for a Unix /bin/sh interpreter:
-
-REPOS="$1"
-PATH="$2"
-USER="$3"
-
-# If a lock is owned by a different person, don't allow it be broken.
-# (Maybe this script could send email to the lock owner?)
-
-SVNLOOK=/opt/local/bin/svnlook
-GREP=/bin/grep
-SED=/bin/sed
-
-LOCK_OWNER=`$SVNLOOK lock "$REPOS" "$PATH" | \
-            $GREP '^Owner: ' | $SED 's/Owner: //'`
-
-# If we get no result from svnlook, there's no lock, return success:
-if [ "$LOCK_OWNER" = "" ]; then
-  exit 0
-fi
-# If the person unlocking matches the lock's owner, return success:
-if [ "$LOCK_OWNER" = "$USER" ]; then
-  exit 0
-fi
-
-# Otherwise, we've got an owner mismatch, so return failure:
-echo "Error: $PATH locked by ${LOCK_OWNER}." 1>&2
-exit 1

data/test/repositories/svn_with_tree_move/hooks/start-commit.tmpl

@@ -1,54 +0,0 @@
-#!/bin/sh
-
-# START-COMMIT HOOK
-#
-# The start-commit hook is invoked before a Subversion txn is created
-# in the process of doing a commit.  Subversion runs this hook
-# by invoking a program (script, executable, binary, etc.) named
-# 'start-commit' (for which this file is a template)
-# with the following ordered arguments:
-#
-#   [1] REPOS-PATH   (the path to this repository)
-#   [2] USER         (the authenticated user attempting to commit)
-#
-# The default working directory for the invocation is undefined, so
-# the program should set one explicitly if it cares.
-#
-# If the hook program exits with success, the commit continues; but
-# if it exits with failure (non-zero), the commit is stopped before
-# a Subversion txn is created, and STDERR is returned to the client.
-#
-# On a Unix system, the normal procedure is to have 'start-commit'
-# invoke other programs to do the real work, though it may do the
-# work itself too.
-#
-# Note that 'start-commit' must be executable by the user(s) who will
-# invoke it (typically the user httpd runs as), and that user must
-# have filesystem-level permission to access the repository.
-#
-# On a Windows system, you should name the hook program
-# 'start-commit.bat' or 'start-commit.exe',
-# but the basic idea is the same.
-# 
-# The hook program typically does not inherit the environment of
-# its parent process.  For example, a common problem is for the
-# PATH environment variable to not be set to its usual value, so
-# that subprograms fail to launch unless invoked via absolute path.
-# If you're having unexpected problems with a hook program, the
-# culprit may be unusual (or missing) environment variables.
-# 
-# Here is an example hook script, for a Unix /bin/sh interpreter.
-# For more examples and pre-written hooks, see those in
-# the Subversion repository at
-# http://svn.collab.net/repos/svn/trunk/tools/hook-scripts/ and
-# http://svn.collab.net/repos/svn/trunk/contrib/hook-scripts/
-
-
-REPOS="$1"
-USER="$2"
-
-commit-allower.pl --repository "$REPOS" --user "$USER" || exit 1
-special-auth-check.py --user "$USER" --auth-level 3 || exit 1
-
-# All checks passed, so allow the commit.
-exit 0

data/test/repositories/svn_with_tree_move/locks/db-logs.lock

@@ -1,3 +0,0 @@
-This file is not used by Subversion 1.3.x or later.
-However, its existence is required for compatibility with
-Subversion 1.2.x or earlier.

data/test/repositories/svn_with_tree_move/locks/db.lock

@@ -1,3 +0,0 @@
-This file is not used by Subversion 1.3.x or later.
-However, its existence is required for compatibility with
-Subversion 1.2.x or earlier.

data/test/test_helper.rb

@@ -1,127 +0,0 @@
-require 'test/unit'
-require 'fileutils'
-require 'find'
-
-unless defined?(TEST_DIR)
-	TEST_DIR = File.dirname(__FILE__)
-end
-require_relative '../lib/ohloh_scm'
-
-OhlohScm::Adapters::AbstractAdapter.logger = Logger.new(File.open('log/test.log','a'))
-
-unless defined?(REPO_DIR)
-	REPO_DIR = File.expand_path(File.join(TEST_DIR, 'repositories'))
-end
-
-unless defined?(DATA_DIR)
-	DATA_DIR = File.expand_path(File.join(TEST_DIR, 'data'))
-end
-
-class OhlohScm::Test < Test::Unit::TestCase
-	# For reasons unknown, the base class defines a default_test method to throw a failure.
-	# We override it with a no-op to prevent this 'helpful' feature.
-	def default_test
-	end
-
-	def assert_convert(parser, log, expected)
-		result = ''
-		parser.parse File.new(log), :writer => OhlohScm::Parsers::XmlWriter.new(result)
-		assert_buffers_equal File.read(expected), result
-	end
-
-	# assert_equal just dumps the massive strings to the console, which is not helpful.
-	# Instead we try to indentify the line of the first error.
-	def assert_buffers_equal(expected, actual)
-		return if expected == actual
-
-		expected_lines = expected.split("\n")
-		actual_lines = actual.split("\n")
-
-		expected_lines.each_with_index do |line, i|
-			if line != actual_lines[i]
-				assert_equal line, actual_lines[i], "at line #{i} of the reference buffer"
-			end
-		end
-
-		# We couldnt' find the mismatch. Just bail.
-		assert_equal expected_lines, actual_lines
-	end
-
-	def with_repository(type, name, branch_name = nil)
-		OhlohScm::ScratchDir.new do |dir|
-			if Dir.entries(REPO_DIR).include?(name)
-				`cp -R #{File.join(REPO_DIR, name)} #{dir}`
-			elsif Dir.entries(REPO_DIR).include?(name + '.tgz')
-				`tar xzf #{File.join(REPO_DIR, name + '.tgz')} --directory #{dir}`
-			else
-				raise RuntimeError.new("Repository archive #{File.join(REPO_DIR, name)} not found.")
-			end
-			yield type.new(:url => File.join(dir, name), branch_name: branch_name).normalize
-		end
-	end
-
-  # We are unable to add a commit message with non utf8 characters using svn 1.6 & above.
-  # In order to emulate encoding issues, we use a custom svn executable that returns
-  #   an xml log with invalid characters in it.
-  # We prepend our custom svn's location to $PATH to make it available during our tests.
-  def with_invalid_encoded_svn_repository
-    with_repository(OhlohScm::Adapters::SvnChainAdapter, 'svn_with_invalid_encoding') do |svn|
-      original_env_path = ENV['PATH']
-      custom_svn_path = File.expand_path('../bin/', __FILE__)
-      ENV['PATH'] = custom_svn_path + ':' + ENV['PATH']
-
-      yield svn
-
-      ENV['PATH'] = original_env_path
-    end
-  end
-
-	def with_svn_repository(name, branch_name='')
-		with_repository(OhlohScm::Adapters::SvnAdapter, name) do |svn|
-			svn.branch_name = branch_name
-			svn.url = File.join(svn.root, svn.branch_name)
-			svn.url = svn.url[0..-2] if svn.url[-1..-1] == '/' # Strip trailing /
-			yield svn
-		end
-	end
-
-	def with_svn_chain_repository(name, branch_name='')
-		with_repository(OhlohScm::Adapters::SvnChainAdapter, name) do |svn|
-			svn.branch_name = branch_name
-			svn.url = File.join(svn.root, svn.branch_name)
-			svn.url = svn.url[0..-2] if svn.url[-1..-1] == '/' # Strip trailing /
-			yield svn
-		end
-	end
-
-	def with_cvs_repository(name, module_name='')
-		with_repository(OhlohScm::Adapters::CvsAdapter, name) do |cvs|
-			cvs.module_name = module_name
-			yield cvs
-		end
-	end
-
-  def with_git_repository(name, branch_name = nil)
-    with_repository(OhlohScm::Adapters::GitAdapter, name, branch_name) { |git| yield git }
-  end
-
-  def with_git_svn_repository(name)
-    with_repository(OhlohScm::Adapters::GitSvnAdapter, name) { |svn| yield svn }
-  end
-
-  def with_hg_repository(name, branch_name = nil)
-    with_repository(OhlohScm::Adapters::HgAdapter, name, branch_name) { |hg| yield hg }
-  end
-
-	def with_hglib_repository(name)
-		with_repository(OhlohScm::Adapters::HglibAdapter, name) { |hg| yield hg }
-	end
-
-	def with_bzr_repository(name)
-		with_repository(OhlohScm::Adapters::BzrAdapter, name) { |bzr| yield bzr }
-	end
-
-	def with_bzrlib_repository(name)
-		with_repository(OhlohScm::Adapters::BzrlibAdapter, name) { |bzr| yield bzr }
-	end
-end

data/test/unit/abstract_adapter_test.rb

@@ -1,106 +0,0 @@
-require_relative '../test_helper'
-
-module OhlohScm::Adapters
-	class AbstractAdapterTest < OhlohScm::Test
-		def test_simple_validation
-			scm = AbstractAdapter.new()
-			assert !scm.valid?
-			assert_equal [[:url, "The URL can't be blank."]], scm.errors
-
-			scm.url = "http://www.test.org/test"
-			assert scm.valid?
-			assert scm.errors.empty?
-		end
-
-		def test_valid_urls
-			['http://www.ohloh.net'].each do |url|
-				assert !AbstractAdapter.new(:url => url).validate_url
-			end
-		end
-
-		def test_invalid_urls
-			[nil, '', '*' * 121].each do |url|
-				assert AbstractAdapter.new(:url => url).validate_url.any?
-			end
-		end
-
-		def test_invalid_usernames
-			['no spaces allowed', '/', ':', 'a'*33].each do |username|
-				assert AbstractAdapter.new(:username => username).validate_username.any?
-			end
-		end
-
-		def test_valid_usernames
-			[nil,'','joe_36','a'*32].each do |username|
-				assert !AbstractAdapter.new(:username => username).validate_username
-			end
-		end
-
-		def test_invalid_passwords
-			['no spaces allowed', 'a'*33].each do |password|
-				assert AbstractAdapter.new(:password => password).validate_password.any?
-			end
-		end
-
-		def test_valid_passwords
-			[nil,'','abc','a'*32].each do |password|
-				assert !AbstractAdapter.new(:password => password).validate_password
-			end
-		end
-
-		def test_invalid_branch_names
-			['%','a'*81].each do |branch_name|
-				assert AbstractAdapter.new(:branch_name => branch_name).validate_branch_name.any?
-			end
-		end
-
-		def test_valid_branch_names
-			[nil,'','/trunk','_','a'*80].each do |branch_name|
-				assert !AbstractAdapter.new(:branch_name => branch_name).validate_branch_name
-			end
-		end
-
-		def test_normalize
-			scm = AbstractAdapter.new(:url => "   http://www.test.org/test   ", :username => "  joe  ", :password => "  abc  ", :branch_name => "   trunk  ")
-			scm.normalize
-			assert_equal "http://www.test.org/test", scm.url
-			assert_equal "trunk", scm.branch_name
-			assert_equal "joe", scm.username
-			assert_equal "abc", scm.password
-		end
-
-    def test_shellout
-      cmd =  %q( ruby -e"  t = 'Hello World'; STDOUT.puts t; STDERR.puts t  " )
-      stdout = AbstractAdapter.run(cmd)
-      assert_equal "Hello World\n", stdout
-    end
-
-    def test_shellout_with_stderr
-      cmd = %q( ruby -e"  t = 'Hello World'; STDOUT.puts t; STDERR.puts t  " )
-      stdout, stderr, status = AbstractAdapter.run_with_err(cmd)
-      assert_equal 0, status.exitstatus
-      assert_equal "Hello World\n", stdout
-      assert_equal "Hello World\n", stderr
-    end
-
-    def test_shellout_large_output
-      cat = 'ruby -e"  puts Array.new(65536){ 42 }  "'
-      stdout = AbstractAdapter.run(cat)
-      assert_equal Array.new(65536){ 42 }.join("\n").concat("\n"), stdout
-    end
-
-    def test_shellout_error
-      cmd = "false"
-      assert_raise RuntimeError do
-        stdout = AbstractAdapter.run(cmd)
-      end
-    end
-
-    def test_string_encoder_must_return_path_to_script
-      string_encoder_path = File.expand_path('../../../bin/string_encoder', __FILE__)
-
-      assert_equal string_encoder_path, AbstractAdapter.new.string_encoder
-    end
-
-	end
-end