ohloh_scm 2.5.1 → 3.0.1

data/test/unit/svn_parser_test.rb

@@ -1,155 +0,0 @@
-require_relative '../test_helper'
-
-module OhlohScm::Parsers
-	class SvnParserTest < OhlohScm::Test
-
-		def test_basic
-			assert_convert(SvnParser, DATA_DIR + '/simple.svn_log', DATA_DIR + '/simple.ohlog')
-		end
-
-		def test_empty_array
-			assert_equal([], SvnParser.parse(''))
-		end
-
-		def test_empty_xml
-			assert_equal("<?xml version=\"1.0\"?>\n<ohloh_log scm=\"svn\">\n</ohloh_log>\n", SvnParser.parse('', :writer => XmlWriter.new))
-		end
-
-		def test_yield_instead_of_writer
-			commits = []
-			result = SvnParser.parse(File.read(DATA_DIR + '/simple.svn_log')) do |commit|
-				commits << commit.token
-			end
-			assert_nil result
-			assert_equal [5, 4, 3, 2, 1], commits
-		end
-
-		def test_log_parser
-			sample_log = <<SAMPLE
-------------------------------------------------------------------------
-r1 | robin | 2006-06-11 11:28:00 -0700 (Sun, 11 Jun 2006) | 2 lines
-
-Initial Checkin
-
-------------------------------------------------------------------------
-r2 | jason | 2006-06-11 11:32:13 -0700 (Sun, 11 Jun 2006) | 1 line
-
-added makefile
-------------------------------------------------------------------------
-r3 | robin | 2006-06-11 11:34:17 -0700 (Sun, 11 Jun 2006) | 1 line
-
-added some documentation and licensing info
-------------------------------------------------------------------------
-SAMPLE
-
-			revs = SvnParser.parse(sample_log)
-
-			assert revs
-			assert_equal 3, revs.size
-
-			assert_equal 1, revs[0].token
-			assert_equal 'robin', revs[0].committer_name
-			assert_equal "Initial Checkin\n", revs[0].message # Note \n at end of comment
-			assert_equal Time.utc(2006,6,11,18,28,00), revs[0].committer_date
-
-			assert_equal 2, revs[1].token
-			assert_equal 'jason', revs[1].committer_name
-			assert_equal "added makefile", revs[1].message # Note no \n at end of comment
-			assert_equal Time.utc(2006,6,11,18,32,13), revs[1].committer_date
-
-			assert_equal 3, revs[2].token
-			assert_equal 'robin', revs[2].committer_name
-			assert_equal "added some documentation and licensing info", revs[2].message
-			assert_equal Time.utc(2006,6,11,18,34,17), revs[2].committer_date
-		end
-
-		# This is an excerpt from the log for Wireshark. It includes Subversion log excerpts in
-		# its comments, which really screwed us up. This test confirms that I've fixed the
-		# parser to ignore log excerpts in the comments.
-		def test_log_embedded_in_comments
-			log = <<LOG
-------------------------------------------------------------------------
-r21932 | jmayer | 2007-05-25 01:34:15 -0700 (Fri, 25 May 2007) | 22 lines
-
-Update from samba tree revision 23054 to 23135
-============================ Samba log start ============
-------------------------------------------------------------------------
-r23069 | metze | 2007-05-22 13:23:36 +0200 (Tue, 22 May 2007) | 3 lines
-Changed paths:
-   M /branches/SAMBA_4_0/source/pidl/tests/Util.pm
-
-print out the command, to find out the problem on host 'tridge'
-
-metze
-------------------------------------------------------------------------
-r23071 | metze | 2007-05-22 14:45:58 +0200 (Tue, 22 May 2007) | 3 lines
-Changed paths:
-   M /branches/SAMBA_4_0/source/pidl/tests/Util.pm
-
-print the command on failure only
-
-metze
-------------------------------------------------------------------------
-------------------------------------------------------------------------
-============================ Samba log end ==============
-
-------------------------------------------------------------------------
-r21931 | kukosa | 2007-05-24 23:54:39 -0700 (Thu, 24 May 2007) | 2 lines
-
-UMTS RRC updated to 3GPP TS 25.331 V7.4.0 (2007-03) and moved to one directory
-
-------------------------------------------------------------------------
-LOG
-			revs = SvnParser.parse(log)
-
-			assert revs
-			assert_equal 2, revs.size
-
-			assert_equal 21932, revs[0].token
-			assert_equal 21931, revs[1].token
-
-			comment = <<COMMENT
-Update from samba tree revision 23054 to 23135
-============================ Samba log start ============
-------------------------------------------------------------------------
-r23069 | metze | 2007-05-22 13:23:36 +0200 (Tue, 22 May 2007) | 3 lines
-Changed paths:
-   M /branches/SAMBA_4_0/source/pidl/tests/Util.pm
-
-print out the command, to find out the problem on host 'tridge'
-
-metze
-------------------------------------------------------------------------
-r23071 | metze | 2007-05-22 14:45:58 +0200 (Tue, 22 May 2007) | 3 lines
-Changed paths:
-   M /branches/SAMBA_4_0/source/pidl/tests/Util.pm
-
-print the command on failure only
-
-metze
-------------------------------------------------------------------------
-------------------------------------------------------------------------
-============================ Samba log end ==============
-COMMENT
-			assert_equal comment, revs[0].message
-		end
-
-		def test_svn_copy
-			log = <<-LOG
-------------------------------------------------------------------------
-r8 | robin | 2009-02-05 05:40:46 -0800 (Thu, 05 Feb 2009) | 1 line
-Changed paths:
-   A /trunk (from /branches/development:7)
-
-the branch becomes the new trunk
-			LOG
-
-			commits = SvnParser.parse(log)
-			assert_equal 1, commits.size
-			assert_equal 1, commits.first.diffs.size
-			assert_equal "/trunk", commits.first.diffs.first.path
-			assert_equal "/branches/development", commits.first.diffs.first.from_path
-			assert_equal 7, commits.first.diffs.first.from_revision
-		end
-	end
-end

data/test/unit/svn_patch_test.rb

@@ -1,14 +0,0 @@
-require_relative '../test_helper'
-
-module OhlohScm::Adapters
-  class SvnPatchTest < OhlohScm::Test
-    def test_patch_for_commit
-      with_svn_repository('svn') do |repo|
-        commit = repo.verbose_commit(2)
-        data = File.read(File.join(DATA_DIR, 'svn_patch.diff'))
-        assert_equal data, repo.patch_for_commit(commit)
-      end
-    end
-  end
-end
-

data/test/unit/svn_pull_test.rb

@@ -1,60 +0,0 @@
-require_relative '../test_helper'
-require 'socket'
-
-module OhlohScm::Adapters
-	class SvnPullTest < OhlohScm::Test
-
-		def test_svnadmin_create
-			OhlohScm::ScratchDir.new do |dir|
-				url = File.join(dir, "my_svn_repo")
-				svn = SvnAdapter.new(:url => url).normalize
-
-				assert !svn.exist?
-				svn.svnadmin_create
-				assert svn.exist?
-
-				# Ensure that revision properties are settable
-        # Note that only valid properties can be set
-				svn.propset('log','bar')
-				assert_equal 'bar', svn.propget('log')
-			end
-		end
-
-		def test_basic_pull_using_svnsync
-			with_svn_repository('svn') do |src|
-				OhlohScm::ScratchDir.new do |dest_dir|
-
-					dest = SvnAdapter.new(:url => dest_dir).normalize
-					assert !dest.exist?
-
-					dest.pull(src)
-					assert dest.exist?
-
-					assert_equal src.log, dest.log
-				end
-			end
-		end
-
-		def test_svnadmin_create_local
-			OhlohScm::ScratchDir.new do |dir|
-				svn = SvnAdapter.new(:url => "file://#{dir}")
-				svn.svnadmin_create_local
-				assert svn.exist?
-				assert FileTest.exist?(File.join(dir, 'hooks', 'pre-revprop-change'))
-				assert FileTest.executable?(File.join(dir, 'hooks', 'pre-revprop-change'))
-				svn.run File.join(dir, 'hooks', 'pre-revprop-change')
-			end
-		end
-
-		def test_svnadmin_create_remote
-			OhlohScm::ScratchDir.new do |dir|
-				svn = SvnAdapter.new(:url => "svn+ssh://localhost#{dir}")
-				svn.svnadmin_create_remote
-				assert svn.exist?
-				assert FileTest.exist?(File.join(dir, 'hooks', 'pre-revprop-change'))
-				assert FileTest.executable?(File.join(dir, 'hooks', 'pre-revprop-change'))
-				svn.run File.join(dir, 'hooks', 'pre-revprop-change')
-			end
-		end
-	end
-end

data/test/unit/svn_push_test.rb

@@ -1,40 +0,0 @@
-require_relative '../test_helper'
-require 'socket'
-
-module OhlohScm::Adapters
-	class SvnPushTest < OhlohScm::Test
-
-		def test_basic_push_using_svnsync
-			with_svn_repository('svn') do |src|
-				OhlohScm::ScratchDir.new do |dest_dir|
-
-					dest = SvnAdapter.new(:url => dest_dir).normalize
-					assert !dest.exist?
-
-					src.push(dest)
-					assert dest.exist?
-
-					assert_equal src.log, dest.log
-				end
-			end
-		end
-
-		# Triggers the "ssh" code path by using svn+ssh:// protocol instead of file:// protocol.
-		# Simulates pushing to another server in our cluster.
-		def test_ssh_push_using_svnsync
-			with_svn_repository('svn') do |src|
-				OhlohScm::ScratchDir.new do |dest_dir|
-
-					dest = SvnAdapter.new(:url => "svn+ssh://localhost#{File.expand_path(dest_dir)}").normalize
-					assert !dest.exist?
-
-					src.push(dest)
-					assert dest.exist?
-
-					assert_equal src.log, dest.log
-				end
-			end
-		end
-
-	end
-end

data/test/unit/svn_validation_test.rb

@@ -1,176 +0,0 @@
-require_relative '../test_helper'
-
-module OhlohScm::Adapters
-	class SvnValidationTest < OhlohScm::Test
-		def test_valid_usernames
-			[nil,'','joe_36','a'*32,'robin@ohloh.net'].each do |username|
-				assert !SvnAdapter.new(:username => username).validate_username
-			end
-		end
-
-		def test_for_blank_svn_urls
-			svn = SvnAdapter.new(:url =>"")
-			assert_nil svn.path_to_file_url(svn.url)
-		end
-
-		def test_for_non_blank_svn_urls
-			svn = SvnAdapter.new(:url =>"/home/rapbhan")
-			assert_equal 'file:///home/rapbhan', svn.path_to_file_url(svn.url)
-		end
-
-		def test_rejected_urls
-			[	nil, "", "foo", "http:/", "http:://", "http://",
-			"sourceforge.net/svn/project/trunk", # missing a protocol prefix
-			"http://robin@svn.sourceforge.net/", # must not include a username with the url
-			"/home/robin/cvs", # local file paths not allowed
-			"git://kernel.org/whatever/linux.git", # git protocol is not allowed
-			":pserver:anonymous:@juicereceiver.cvs.sourceforge.net:/cvsroot/juicereceiver", # pserver is just wrong
-			"svn://svn.gajim.org:/gajim/trunk", # invalid port number
-			"svn://svn.gajim.org:abc/gajim/trunk", # invalid port number
-			"svn log https://svn.sourceforge.net/svnroot/myserver/trunk"
-			].each do |url|
-				# Rejected for both internal and public use
-				[true, false].each do |p|
-					svn = SvnAdapter.new(:url => url, :public_urls_only => p)
-					assert svn.validate_url
-				end
-			end
-		end
-
-		def test_accepted_urls
-			[	"https://svn.sourceforge.net/svnroot/opende/trunk", # https protocol OK
-			"svn://svn.gajim.org/gajim/trunk", # svn protocol OK
-			"http://svn.mythtv.org/svn/trunk/mythtv", # http protocol OK
-			"https://svn.sourceforge.net/svnroot/vienna-rss/trunk/2.0.0", # periods, numbers and dashes OK
-			"svn://svn.gajim.org:3690/gajim/trunk", # port number OK
-			"http://svn.mythtv.org:80/svn/trunk/mythtv", # port number OK
-			"http://svn.gnome.org/svn/gtk+/trunk", # + character OK
-			"http://svn.gnome.org", # no path, no trailing /, just a domain name is OK
-			"http://brlcad.svn.sourceforge.net/svnroot/brlcad/rt^3/trunk", # a caret ^ is allowed
-			"http://www.thus.ch/~patrick/svn/pvalsecc", # ~ is allowed
-			"http://franklinmath.googlecode.com/svn/trunk/Franklin Math", # space is allowed in path
-			].each do |url|
-				# Accepted for both internal and public use
-				[true, false].each do |p|
-					svn = SvnAdapter.new(:url => url, :public_urls_only => p)
-					assert !svn.validate_url
-				end
-			end
-		end
-
-		# These urls are not available to the public
-		def test_rejected_public_urls
-			[ "file:///home/robin/svn"
-			].each do |url|
-				svn = SvnAdapter.new(:url => url, :public_urls_only => true)
-				assert svn.validate_url
-
-				svn = SvnAdapter.new(:url => url)
-				assert !svn.validate_url
-			end
-		end
-
-		def test_guess_forge
-			svn = SvnAdapter.new(:url => nil)
-			assert_equal nil, svn.guess_forge
-
-			svn = SvnAdapter.new(:url => 'garbage_in_garbage_out')
-			assert_equal nil, svn.guess_forge
-
-			svn = SvnAdapter.new(:url => 'svn://rubyforge.org//var/svn/rubyomf2097')
-			assert_equal 'rubyforge.org', svn.guess_forge
-
-			svn = SvnAdapter.new(:url => 'svn://rubyforge.org:3960//var/svn/rubyomf2097')
-			assert_equal 'rubyforge.org', svn.guess_forge
-
-			svn = SvnAdapter.new(:url => 'http://bivouac.rubyforge.org/svn/trunk')
-			assert_equal 'rubyforge.org', svn.guess_forge
-
-			svn = SvnAdapter.new(:url => 'https://svn.sourceforge.net/svnroot/typo3/CoreDocs/trunk')
-			assert_equal 'sourceforge.net', svn.guess_forge
-
-			svn = SvnAdapter.new(:url => 'https://svn.sourceforge.net:80/svnroot/typo3/CoreDocs/trunk')
-			assert_equal 'sourceforge.net', svn.guess_forge
-
-			svn = SvnAdapter.new(:url => 'https://vegastrike.svn.sourceforge.net/svnroot/vegastrike/trunk')
-			assert_equal 'sourceforge.net', svn.guess_forge
-
-      svn = SvnAdapter.new(:url => 'https://svn.code.sf.net/p/gallery/code/trunk/gallery2')
-      assert_equal 'code.sf.net', svn.guess_forge
-
-			svn = SvnAdapter.new(:url => 'https://appfuse.dev.java.net/svn/appfuse/trunk')
-			assert_equal 'java.net', svn.guess_forge
-
-			svn = SvnAdapter.new(:url => 'http://moulinette.googlecode.com/svn/trunk')
-			assert_equal 'googlecode.com', svn.guess_forge
-
-			svn = SvnAdapter.new(:url => 'http://moulinette.googlecode.com')
-			assert_equal 'googlecode.com', svn.guess_forge
-		end
-
-		def test_sourceforge_requires_https
-      url = '://svn.code.sf.net/p/gallery/code/trunk/gallery2'
-      assert_equal "https#{url}", SvnAdapter.new(:url => "http#{url}").normalize.url
-
-			assert_equal "https#{url}", SvnAdapter.new(:url => "https#{url}").normalize.url
-
-      url = 'https://github.com/blackducksw/ohloh_scm/trunk'
-			assert_equal url,  SvnAdapter.new(:url => url).normalize.url
-		end
-
-		def test_validate_server_connection
-			save_svn = nil
-			with_svn_repository('svn') do |svn|
-				assert !svn.validate_server_connection # No errors
-				save_svn = svn
-			end
-			assert save_svn.validate_server_connection.any? # Repo is gone, should get an error
-		end
-
-		def test_recalc_branch_name
-			with_svn_repository('svn') do |svn|
-				svn_based_at_root = SvnAdapter.new(:url => svn.root)
-				assert !svn_based_at_root.branch_name
-				assert_equal '', svn_based_at_root.recalc_branch_name
-				assert_equal '', svn_based_at_root.branch_name
-
-				svn_based_at_root_with_whack = SvnAdapter.new(:url => svn.root, :branch_name => '/')
-				assert_equal '', svn_based_at_root.recalc_branch_name
-				assert_equal '', svn_based_at_root.branch_name
-
-				svn_trunk = SvnAdapter.new(:url => svn.root + '/trunk')
-				assert !svn_trunk.branch_name
-				assert_equal '/trunk', svn_trunk.recalc_branch_name
-				assert_equal '/trunk', svn_trunk.branch_name
-
-				svn_trunk_with_whack = SvnAdapter.new(:url => svn.root + '/trunk/')
-				assert !svn_trunk_with_whack.branch_name
-				assert_equal '/trunk', svn_trunk_with_whack.recalc_branch_name
-				assert_equal '/trunk', svn_trunk_with_whack.branch_name
-
-				svn_trunk = SvnAdapter.new(:url => svn.root + '/trunk')
-				assert !svn_trunk.branch_name
-        svn_trunk.normalize # only normalize to ensure branch_name is populated correctly
-				assert_equal '/trunk', svn_trunk.branch_name
-
-        svn_trunk = SvnAdapter.new(:url => svn.root)
-				assert !svn_trunk.branch_name
-        svn_trunk.normalize
-				assert_equal '', svn_trunk.branch_name
-			end
-		end
-
-    def test_strip_trailing_whack_from_branch_name
-      with_svn_repository('svn') do |svn|
-        assert_equal '/trunk', SvnAdapter.new(:url => svn.root, :branch_name => "/trunk/").normalize.branch_name
-      end
-    end
-
-    def test_empty_branch_name_with_file_system
-      OhlohScm::ScratchDir.new do |dir|
-        svn = SvnAdapter.new(:url => dir).normalize
-        assert svn.branch_name.to_s.empty?
-      end
-    end
-	end
-end