ohloh_scm 2.5.1 → 3.0.1

data/test/unit/hg_head_test.rb

@@ -1,24 +0,0 @@
-require_relative '../test_helper'
-
-module OhlohScm::Adapters
-	class HgHeadTest < OhlohScm::Test
-
-		def test_hg_head_and_parents
-			with_hg_repository('hg') do |hg|
-				assert_equal '655f04cf6ad708ab58c7b941672dce09dd369a18', hg.head_token
-				assert_equal '655f04cf6ad708ab58c7b941672dce09dd369a18', hg.head.token
-				assert hg.head.diffs.any? # diffs should be populated
-
-				assert_equal '75532c1e1f1de55c2271f6fd29d98efbe35397c4', hg.parents(hg.head).first.token
-				assert hg.parents(hg.head).first.diffs.any?
-			end
-		end
-
-    def test_head_with_branch
-      with_hg_repository('hg', 'develop') do |hg|
-        assert_equal '4d54c3f0526a1ec89214a70615a6b1c6129c665c', hg.head.token
-        assert hg.head.diffs.any?
-      end
-    end
-	end
-end

data/test/unit/hg_misc_test.rb

@@ -1,48 +0,0 @@
-require_relative '../test_helper'
-
-module OhlohScm::Adapters
-	class HgMiscTest < OhlohScm::Test
-
-		def test_exist
-			save_hg = nil
-			with_hg_repository('hg') do |hg|
-				save_hg = hg
-				assert save_hg.exist?
-			end
-			assert !save_hg.exist?
-		end
-
-		def test_ls_tree
-			with_hg_repository('hg') do |hg|
-				assert_equal ['README','makefile', 'two'], hg.ls_tree(hg.head_token).sort
-			end
-		end
-
-		def test_export
-			with_hg_repository('hg') do |hg|
-				OhlohScm::ScratchDir.new do |dir|
-					hg.export(dir)
-					assert_equal ['.', '..', 'README', 'makefile', 'two'], Dir.entries(dir).sort
-				end
-			end
-		end
-
-    def test_ls_tree_encoding
-      with_hg_repository('hg_with_invalid_encoding') do |hg|
-        filenames = hg.ls_tree('51ea5277ca27')
-
-        filenames.each do |filename|
-          assert_equal true, filename.valid_encoding?
-        end
-      end
-    end
-
-    def test_tags
-      with_hg_repository('hg') do |hg|
-        time = Time.parse('Fri Jul 22 18:00:18 2016 +0530')
-        assert_equal  ['tip', '5', time], hg.tags.first
-        assert_equal  ['tagname with space', '2'], hg.tags.last.first(2)
-      end
-    end
-	end
-end

data/test/unit/hg_parser_test.rb

@@ -1,184 +0,0 @@
-require_relative '../test_helper'
-
-module OhlohScm::Parsers
-	class HgParserTest < OhlohScm::Test
-
-		def test_empty_array
-			assert_equal([], HgParser.parse(''))
-		end
-
-		def test_log_parser_default
-sample_log = <<SAMPLE
-changeset:   1:b14fa4692f94
-user:        Jason Allen <jason@ohloh.net>
-date:        Tue, Jan 20 2009 11:33:17 -0800
-summary:     added makefile
-
-
-changeset:   0:01101d8ef3ce
-user:        Robin Luckey <robin@ohloh.net>
-date:        Tue, Jan 20 2009 11:32:54 -0800
-summary:     Initial Checkin
-
-SAMPLE
-
-			commits = HgParser.parse(sample_log)
-
-			assert commits
-			assert_equal 2, commits.size
-
-			assert_equal 'b14fa4692f94', commits[0].token
-			assert_equal 'Jason Allen', commits[0].committer_name
-			assert_equal 'jason@ohloh.net', commits[0].committer_email
-			assert_equal "added makefile", commits[0].message # Note \n at end of comment
-			assert_equal Time.utc(2009,1,20,19,33,17), commits[0].committer_date
-			assert_equal 0, commits[0].diffs.size
-
-			assert_equal '01101d8ef3ce', commits[1].token
-			assert_equal 'Robin Luckey', commits[1].committer_name
-			assert_equal 'robin@ohloh.net', commits[1].committer_email
-			assert_equal "Initial Checkin", commits[1].message # Note \n at end of comment
-			assert_equal Time.utc(2009,1,20,19,32,54), commits[1].committer_date
-			assert_equal 0, commits[1].diffs.size
-		end
-
-		def test_log_parser_default_partial_user_name
-sample_log = <<SAMPLE
-changeset:   259:45c293b71341
-user:        robin@ohloh.net
-date:        Sat, Jun 04 2005 23:37:11 -0800
-summary:     fix addremove
-
-SAMPLE
-
-			commits = HgParser.parse(sample_log)
-
-			assert commits
-			assert_equal 1, commits.size
-
-			assert_equal '45c293b71341', commits[0].token
-			assert_equal 'robin@ohloh.net', commits[0].committer_name
-			assert !commits[0].committer_email
-		end
-
-		# Sometimes the log does not include a summary
-		def test_log_parser_default_no_summary
-sample_log = <<SAMPLE
-changeset:   1:b14fa4692f94
-user:        Jason Allen <jason@ohloh.net>
-date:        Tue, Jan 20 2009 11:33:17 -0800
-
-
-changeset:   0:01101d8ef3ce
-user:        Robin Luckey <robin@ohloh.net>
-date:        Tue, Jan 20 2009 11:32:54 -0800
-
-SAMPLE
-			commits = HgParser.parse(sample_log)
-
-			assert commits
-			assert_equal 2, commits.size
-
-			assert_equal 'b14fa4692f94', commits[0].token
-			assert_equal 'Jason Allen', commits[0].committer_name
-			assert_equal 'jason@ohloh.net', commits[0].committer_email
-			assert_equal Time.utc(2009,1,20,19,33,17), commits[0].committer_date
-			assert_equal 0, commits[0].diffs.size
-
-			assert_equal '01101d8ef3ce', commits[1].token
-			assert_equal 'Robin Luckey', commits[1].committer_name
-			assert_equal 'robin@ohloh.net', commits[1].committer_email
-			assert_equal Time.utc(2009,1,20,19,32,54), commits[1].committer_date
-			assert_equal 0, commits[1].diffs.size
-		end
-
-		def test_log_parser_verbose
-sample_log = <<SAMPLE
-changeset:   1:b14fa4692f94
-user:        Jason Allen <jason@ohloh.net>
-date:        Tue, Jan 20 2009 11:33:17 -0800
-files:       makefile
-description:
-added makefile
-
-
-changeset:   0:01101d8ef3ce
-user:        Robin Luckey <robin@ohloh.net>
-date:        Tue, Jan 20 2009 11:32:54 -0800
-files:       helloworld.c
-description:
-Initial Checkin
-
-
-SAMPLE
-
-			commits = HgParser.parse(sample_log)
-
-			assert commits
-			assert_equal 2, commits.size
-
-			assert_equal 'b14fa4692f94', commits[0].token
-			assert_equal 'Jason Allen', commits[0].committer_name
-			assert_equal 'jason@ohloh.net', commits[0].committer_email
-			assert_equal "added makefile\n", commits[0].message # Note \n at end of comment
-			assert_equal Time.utc(2009,1,20,19,33,17), commits[0].committer_date
-			assert_equal 1, commits[0].diffs.size
-			assert_equal 'makefile', commits[0].diffs[0].path
-
-			assert_equal '01101d8ef3ce', commits[1].token
-			assert_equal 'Robin Luckey', commits[1].committer_name
-			assert_equal 'robin@ohloh.net', commits[1].committer_email
-			assert_equal "Initial Checkin\n", commits[1].message # Note \n at end of comment
-			assert_equal Time.utc(2009,1,20,19,32,54), commits[1].committer_date
-			assert_equal 1, commits[1].diffs.size
-			assert_equal 'helloworld.c', commits[1].diffs[0].path
-		end
-
-		def test_styled_parser
-			with_hg_repository('hg') do |hg|
-				assert FileTest.exist?(HgStyledParser.style_path)
-				log = hg.run("cd #{hg.url} && hg log -f --style #{OhlohScm::Parsers::HgStyledParser.style_path}")
-				commits = OhlohScm::Parsers::HgStyledParser.parse(log)
-				assert_styled_commits(commits, false)
-
-				assert FileTest.exist?(HgStyledParser.verbose_style_path)
-				log = hg.run("cd #{hg.url} && hg log -f --style #{OhlohScm::Parsers::HgStyledParser.verbose_style_path}")
-				commits = OhlohScm::Parsers::HgStyledParser.parse(log)
-				assert_styled_commits(commits, true)
-			end
-		end
-
-		protected
-
-		def assert_styled_commits(commits, with_diffs=false)
-			assert_equal 5, commits.size
-
-			assert_equal '75532c1e1f1de55c2271f6fd29d98efbe35397c4', commits[1].token
-			assert_equal 'Robin Luckey', commits[1].committer_name
-			assert_equal 'robin@ohloh.net', commits[1].committer_email
-			assert Time.utc(2009,1,20,19,34,53) - commits[1].committer_date < 1 # Don't care about milliseconds
-			assert_equal "deleted helloworld.c\n", commits[1].message
-
-			if with_diffs
-				assert_equal 1, commits[1].diffs.size
-				assert_equal 'D', commits[1].diffs[0].action
-				assert_equal 'helloworld.c', commits[1].diffs[0].path
-			else
-				assert_equal [], commits[1].diffs
-			end
-
-			assert_equal '468336c6671cbc58237a259d1b7326866afc2817', commits[2].token
-			assert Time.utc(2009, 1,20,19,34,04) - commits[2].committer_date < 1
-
-			if with_diffs
-				assert_equal 2, commits[2].diffs.size
-				assert_equal 'M', commits[2].diffs[0].action
-				assert_equal 'helloworld.c', commits[2].diffs[0].path
-				assert_equal 'A', commits[2].diffs[1].action
-				assert_equal 'README', commits[2].diffs[1].path
-			else
-				assert_equal [], commits[0].diffs
-			end
-		end
-	end
-end

data/test/unit/hg_patch_test.rb

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

data/test/unit/hg_pull_test.rb

@@ -1,29 +0,0 @@
-require_relative '../test_helper'
-
-module OhlohScm::Adapters
-	class HgPullTest < OhlohScm::Test
-
-		def test_pull
-			with_hg_repository('hg') do |src|
-				OhlohScm::ScratchDir.new do |dest_dir|
-
-					dest = HgAdapter.new(:url => dest_dir).normalize
-					assert !dest.exist?
-
-					dest.pull(src)
-					assert dest.exist?
-
-					assert_equal src.log, dest.log
-
-					# Commit some new code on the original and pull again
-					src.run "cd '#{src.url}' && touch foo && hg add foo && hg commit -u test -m test"
-					assert_equal "test\n", src.commits.last.message
-
-					dest.pull(src)
-					assert_equal src.log, dest.log
-				end
-			end
-		end
-
-	end
-end

data/test/unit/hg_push_test.rb

@@ -1,59 +0,0 @@
-require_relative '../test_helper'
-
-module OhlohScm::Adapters
-	class HgPushTest < OhlohScm::Test
-
-		def test_hostname
-			assert !HgAdapter.new.hostname
-			assert !HgAdapter.new(:url => "http://www.ohloh.net/test").hostname
-			assert !HgAdapter.new(:url => "/Users/robin/foo").hostname
-			assert_equal "foo", HgAdapter.new(:url => 'ssh://foo/bar').hostname
-		end
-
-		def test_local
-			assert !HgAdapter.new(:url => "foo:/bar").local? # Assuming your machine is not named "foo" :-)
-			assert !HgAdapter.new(:url => "http://www.ohloh.net/foo").local?
-			assert !HgAdapter.new(:url => "ssh://host/Users/robin/src").local?
-			assert HgAdapter.new(:url => "src").local?
-			assert HgAdapter.new(:url => "/Users/robin/src").local?
-			assert HgAdapter.new(:url => "file:///Users/robin/src").local?
-			assert HgAdapter.new(:url => "ssh://#{Socket.gethostname}/Users/robin/src").local?
-		end
-
-		def test_path
-			assert_equal nil, HgAdapter.new().path
-			assert_equal nil, HgAdapter.new(:url => "http://ohloh.net/foo").path
-			assert_equal nil, HgAdapter.new(:url => "https://ohloh.net/foo").path
-			assert_equal "/Users/robin/foo", HgAdapter.new(:url => "file:///Users/robin/foo").path
-			assert_equal "/Users/robin/foo", HgAdapter.new(:url => "ssh://localhost/Users/robin/foo").path
-			assert_equal "/Users/robin/foo", HgAdapter.new(:url => "/Users/robin/foo").path
-		end
-
-		def test_hg_path
-			assert_equal nil, HgAdapter.new().hg_path
-			assert_equal "/Users/robin/src/.hg", HgAdapter.new(:url => "/Users/robin/src").hg_path
-		end
-
-		def test_push
-			with_hg_repository('hg') do |src|
-				OhlohScm::ScratchDir.new do |dest_dir|
-
-					dest = HgAdapter.new(:url => dest_dir).normalize
-					assert !dest.exist?
-
-					src.push(dest)
-					assert dest.exist?
-					assert_equal src.log, dest.log
-
-					# Commit some new code on the original and pull again
-					src.run "cd '#{src.url}' && touch foo && hg add foo && hg commit -u test -m test"
-					assert_equal "test\n", src.commits.last.message
-
-					src.push(dest)
-					assert_equal src.log, dest.log
-				end
-			end
-		end
-
-	end
-end

data/test/unit/hg_rev_list_test.rb

@@ -1,63 +0,0 @@
-require_relative '../test_helper'
-
-module OhlohScm::Adapters
-	# Repository hg_walk has the following structure:
-	#
-	#      G -> H -> I
-	#     /      \    \
-	#    A -> B -> C -> D -> tip
-	#
-	class HgRevListTest < OhlohScm::Test
-
-		def test_rev_list
-			with_hg_repository('hg_walk') do |hg|
-				# Full history to a commit
-				assert_equal [:A],                         rev_list_helper(hg, nil, :A)
-				assert_equal [:A, :B],                     rev_list_helper(hg, nil, :B)
-				assert_equal [:A, :B, :G, :H, :C],         rev_list_helper(hg, nil, :C)
-				assert_equal [:A, :B, :G, :H, :C, :I, :D], rev_list_helper(hg, nil, :D)
-				assert_equal [:A, :B, :G],                 rev_list_helper(hg, nil, :G)
-				assert_equal [:A, :B, :G, :H],             rev_list_helper(hg, nil, :H)
-				assert_equal [:A, :B, :G, :H, :C, :I],     rev_list_helper(hg, nil, :I)
-
-				# Limited history from one commit to another
-				assert_equal [],                           rev_list_helper(hg, :A, :A)
-				assert_equal [:B],                         rev_list_helper(hg, :A, :B)
-				assert_equal [:B, :G, :H, :C],             rev_list_helper(hg, :A, :C)
-				assert_equal [:B, :G, :H, :C, :I, :D],     rev_list_helper(hg, :A, :D)
-				assert_equal [:G, :H, :C, :I, :D],         rev_list_helper(hg, :B, :D)
-				assert_equal [:I, :D],                     rev_list_helper(hg, :C, :D)
-			end
-		end
-
-		protected
-
-		def rev_list_helper(hg, from, to)
-			to_labels(hg.commit_tokens(:after => from_label(from), :up_to => from_label(to)))
-		end
-
-		def commit_labels
-			{ '4bfbf836feeebb236492199fbb0d1474e26f69d9' => :A,
-				'23edb79d0d06c8c315d8b9e7456098823335377d' => :B,
-				'7e33b9fde56a6e3576753868d08fa143e4e8a9cf' => :C,
-				'8daa1aefa228d3ee5f9a0f685d696826e88266fb' => :D,
-				'e43cf1bb4b80d8ae70a695ec070ce017fdc529f3' => :G,
-				'dca215d8a3e4dd3e472379932f1dd9c909230331' => :H,
-				'3a1495175e40b1c983441d6a8e8e627d2bd672b6' => :I
-			}
-		end
-
-		def to_label(sha1)
-			commit_labels[sha1.to_s]
-		end
-
-		def to_labels(sha1s)
-			sha1s.collect { |sha1| to_label(sha1) }
-		end
-
-		def from_label(l)
-			commit_labels.each_pair { |k,v| return k if v.to_s == l.to_s }
-			nil
-		end
-	end
-end

data/test/unit/hg_validation_test.rb

@@ -1,60 +0,0 @@
-require_relative '../test_helper'
-
-module OhlohScm::Adapters
-	class HgValidationTest < OhlohScm::Test
-		def test_rejected_urls
-			[	nil, "", "foo", "http:/", "http:://", "http://", "http://a",
-				"www.selenic.com/repo/hello", # missing a protool prefix
-				"http://www.selenic.com/repo/hello%20world", # no encoded strings allowed
-				"http://www.selenic.com/repo/hello world", # no spaces allowed
-				"git://www.selenic.com/repo/hello", # git protocol not allowed
-				"svn://www.selenic.com/repo/hello" # svn protocol not allowed
-			].each do |url|
-				hg = HgAdapter.new(:url => url, :public_urls_only => true)
-				assert hg.validate_url.any?
-			end
-		end
-
-		def test_accepted_urls
-			[ "http://www.selenic.com/repo/hello",
-				"http://www.selenic.com:80/repo/hello",
-				"https://www.selenic.com/repo/hello",
-			].each do |url|
-				hg = HgAdapter.new(:url => url, :public_urls_only => true)
-				assert !hg.validate_url
-			end
-		end
-
-		# These urls are not available to the public
-		def test_rejected_public_urls
-			[ "file:///home/robin/hg",
-				"/home/robin/hg",
-				"ssh://robin@localhost/home/robin/hg",
-				"ssh://localhost/home/robin/hg"
-			].each do |url|
-				hg = HgAdapter.new(:url => url, :public_urls_only => true)
-				assert hg.validate_url
-
-				hg = HgAdapter.new(:url => url)
-				assert !hg.validate_url
-			end
-		end
-
-		def test_guess_forge
-			hg = HgAdapter.new(:url => nil)
-			assert_equal nil, hg.guess_forge
-
-			hg = HgAdapter.new(:url => "/home/robin/hg")
-			assert_equal nil, hg.guess_forge
-
-			hg = HgAdapter.new( :url => 'http://www.selenic.com/repo/hello')
-			assert_equal 'www.selenic.com', hg.guess_forge
-
-			hg = HgAdapter.new( :url => 'http://algoc.hg.sourceforge.net:8000/hgroot/algoc')
-			assert_equal 'sourceforge.net', hg.guess_forge
-
-			hg = HgAdapter.new( :url => 'http://poliqarp.sourceforge.net/hg/poliqarp/')
-			assert_equal 'sourceforge.net', hg.guess_forge
-		end
-	end
-end