ohloh_scm 2.5.1 → 3.0.1

data/test/unit/adapter_factory_test.rb

@@ -1,67 +0,0 @@
-require_relative '../test_helper'
-
-module OhlohScm::Adapters
-	class FactoryTest < OhlohScm::Test
-
-		def test_factory_hg
-			OhlohScm::ScratchDir.new do |path|
-				`cd #{path} && hg init`
-				hg = Factory.from_path(path)
-				assert hg.is_a?(HgAdapter)
-				assert_equal hg.url, path
-			end
-		end
-
-		def test_factory_bzr
-			OhlohScm::ScratchDir.new do |path|
-				`cd #{path} && bzr init`
-				bzr = Factory.from_path(path)
-				assert bzr.is_a?(BzrAdapter)
-				assert_equal bzr.url, path
-			end
-		end
-
-		def test_factory_git
-			OhlohScm::ScratchDir.new do |path|
-				`cd #{path} && git init`
-				git = Factory.from_path(path)
-				assert git.is_a?(GitAdapter)
-				assert_equal git.url, path
-			end
-		end
-
-		def test_factory_svn
-			OhlohScm::ScratchDir.new do |path|
-				`cd #{path} && svnadmin create foo`
-				svn = Factory.from_path(File.join(path, 'foo'))
-				assert svn.is_a?(SvnAdapter)
-				assert_equal svn.url, 'file://' + File.expand_path(File.join(path, 'foo'))
-			end
-		end
-
-		def test_factory_svn_checkout
-			OhlohScm::ScratchDir.new do |path|
-				`cd #{path} && svnadmin create foo`
-				`cd #{path} && svn co file://#{File.expand_path(File.join(path, 'foo'))} bar`
-				svn = Factory.from_path(File.join(path, 'bar'))
-				assert svn.is_a?(SvnAdapter)
-				# Note that even though we gave checkout dir 'bar' to the factory,
-				# we get back a link to the original repo at 'foo'
-				assert_equal svn.url, 'file://' + File.expand_path(File.join(path, 'foo'))
-			end
-		end
-
-		def test_factory_from_cvs_checkout
-			with_cvs_repository('cvs', 'simple') do |cvs|
-				OhlohScm::ScratchDir.new do |path|
-					`cd #{path} && cvsnt -d #{File.expand_path(cvs.url)} co simple 2> /dev/null`
-					factory_response = Factory.from_path(File.join(path, 'simple'))
-					assert factory_response.is_a?(CvsAdapter)
-					assert_equal cvs.url, factory_response.url
-				end
-			end
-		end
-
-	end
-end
-

data/test/unit/array_writer_test.rb

@@ -1,33 +0,0 @@
-require_relative '../test_helper'
-
-module OhlohScm::Parsers
-	class ArrayWriterTest < OhlohScm::Test
-
-		def test_basic
-
-			log = <<-LOG
-------------------------------------------------------------------------
-r3 | robin | 2006-06-11 11:34:17 -0700 (Sun, 11 Jun 2006) | 1 line
-Changed paths:
-   A /trunk/README
-   M /trunk/helloworld.c
-
-added some documentation and licensing info
-------------------------------------------------------------------------
-			LOG
-
-			# By default, the ArrayWriter is used, and an empty string is parsed
-			assert_equal [], SvnParser.parse
-			assert_equal [], SvnParser.parse('')
-			assert_equal [], SvnParser.parse('', :writer => ArrayWriter.new)
-
-			result = SvnParser.parse(log, :writer => ArrayWriter.new)
-			assert_equal 1, result.size
-			assert_equal 'robin', result.first.committer_name
-			assert_equal 3, result.first.token
-			assert_equal 2, result.first.diffs.size
-			assert_equal '/trunk/README', result.first.diffs.first.path
-			assert_equal 'A', result.first.diffs.first.action
-		end
-	end
-end

data/test/unit/bzr_cat_file_test.rb

@@ -1,56 +0,0 @@
-# encoding: utf-8
-require_relative '../test_helper'
-
-module OhlohScm::Adapters
-	class BzrCatFileTest < OhlohScm::Test
-
-		def test_cat_file
-			with_bzr_repository('bzr') do |bzr|
-				expected = <<-EXPECTED
-first file
-second line
-EXPECTED
-				assert_equal expected,
-					bzr.cat_file(OhlohScm::Commit::new(:token => 6),
-						     OhlohScm::Diff.new(:path => "file1.txt"))
-
-				# file2.txt has been removed in commit #5
-				assert_equal nil, bzr.cat_file(bzr.head,
-							       OhlohScm::Diff.new(:path => "file2.txt"))
-			end
-		end
-
-    def test_cat_file_non_ascii_name
-      with_bzr_repository('bzr') do |bzr|
-        expected = <<-EXPECTED
-first file
-second line
-EXPECTED
-        assert_equal expected,
-          bzr.cat_file(OhlohScm::Commit::new(:token => 7),
-                 OhlohScm::Diff.new(:path => "Cédric.txt"))
-      end
-    end
-
-		def test_cat_file_parent
-			with_bzr_repository('bzr') do |bzr|
-				expected = <<-EXPECTED
-first file
-second line
-EXPECTED
-				assert_equal expected,
-					bzr.cat_file_parent(OhlohScm::Commit::new(:token => 6),
-							    OhlohScm::Diff.new(:path => "file1.txt"))
-
-				# file2.txt has been removed in commit #5
-				expected = <<-EXPECTED
-another file
-EXPECTED
-				assert_equal expected,
-					bzr.cat_file_parent(OhlohScm::Commit.new(:token => 5),
-							    OhlohScm::Diff.new(:path => "file2.txt"))
-			end
-		end
-
-	end
-end

data/test/unit/bzr_commits_test.rb

@@ -1,388 +0,0 @@
-require_relative '../test_helper'
-
-module OhlohScm::Adapters
-	class BzrCommitsTest < OhlohScm::Test
-
-		def test_commit_count
-			with_bzr_repository('bzr') do |bzr|
-				assert_equal 7, bzr.commit_count
-				assert_equal 6, bzr.commit_count(:after => revision_ids.first)
-				assert_equal 1, bzr.commit_count(:after => revision_ids[5])
-				assert_equal 0, bzr.commit_count(:after => revision_ids.last)
-			end
-		end
-
-		def test_commit_count_with_branches
-			with_bzr_repository('bzr_with_branch') do |bzr|
-				# Only 3 commits are on main line... make sure we catch the branch commit as well
-				assert_equal 4, bzr.commit_count
-			end
-		end
-
-    def test_commit_count_after_merge
-      with_bzr_repository('bzr_with_branch') do |bzr|
-        last_commit = bzr.commits.last
-        assert_equal 0, bzr.commit_count(:trunk_only => false, :after => last_commit.token)
-      end
-    end
-
-		def test_commit_count_trunk_only
-			with_bzr_repository('bzr_with_branch') do |bzr|
-				# Only 3 commits are on main line
-				assert_equal 3, bzr.commit_count(:trunk_only => true)
-			end
-		end
-
-		def test_commit_tokens_after
-			with_bzr_repository('bzr') do |bzr|
-				assert_equal revision_ids, bzr.commit_tokens
-				assert_equal revision_ids[1..6], bzr.commit_tokens(:after => revision_ids.first)
-				assert_equal revision_ids[6..6], bzr.commit_tokens(:after => revision_ids[5])
-				assert_equal [], bzr.commit_tokens(:after => revision_ids.last)
-			end
-		end
-
-    def test_commit_tokens_after_merge
-      with_bzr_repository('bzr_with_branch') do |bzr|
-        last_commit = bzr.commits.last
-        assert_equal [], bzr.commit_tokens(:trunk_only => false, :after => last_commit.token)
-      end
-    end
-
-    def test_commit_tokens_after_nested_merge
-      with_bzr_repository('bzr_with_nested_branches') do |bzr|
-        last_commit = bzr.commits.last
-        assert_equal [], bzr.commit_tokens(:trunk_only => false, :after => last_commit.token)
-      end
-    end
-
-		def test_commit_tokens_trunk_only_false
-			# Funny business with commit ordering has been fixed by BzrXmlParser.
-      # Now we always see branch commits before merge commit.
-			with_bzr_repository('bzr_with_branch') do |bzr|
-				assert_equal [
-					'test@example.com-20090206214301-s93cethy9atcqu9h',
-					'test@example.com-20090206214451-lzjngefdyw3vmgms',
-					'test@example.com-20090206214350-rqhdpz92l11eoq2t', # branch commit
-					'test@example.com-20090206214515-21lkfj3dbocao5pr'  # merge commit
-				], bzr.commit_tokens(:trunk_only => false)
-			end
-		end
-
-		def test_commit_tokens_trunk_only_true
-			with_bzr_repository('bzr_with_branch') do |bzr|
-				assert_equal [
-					'test@example.com-20090206214301-s93cethy9atcqu9h',
-					'test@example.com-20090206214451-lzjngefdyw3vmgms',
-					'test@example.com-20090206214515-21lkfj3dbocao5pr'  # merge commit
-				], bzr.commit_tokens(:trunk_only => true)
-			end
-		end
-
-    def test_nested_branches_commit_tokens_trunk_only_false
-      with_bzr_repository('bzr_with_nested_branches') do |bzr|
-        assert_equal [
-          'obnox@samba.org-20090204002342-5r0q4gejk69rk6uv',
-          'obnox@samba.org-20090204002422-5ylnq8l4713eqfy0',
-          'obnox@samba.org-20090204002453-u70a3ehf3ae9kay1',
-          'obnox@samba.org-20090204002518-yb0x153oa6mhoodu',
-          'obnox@samba.org-20090204002540-gmana8tk5f9gboq9',
-          'obnox@samba.org-20090204004942-73rnw0izen42f154',
-          'test@example.com-20110803170302-fz4mbr89n8f5agha',
-          'test@example.com-20110803170341-v1icvy05b430t68l',
-          'test@example.com-20110803170504-z7xz5uxj02e5x3z6',
-          'test@example.com-20110803170522-asv6i9z6m22jc8zz',
-          'test@example.com-20110803170648-o0xcbni7lwp97azj',
-          'test@example.com-20110803170818-v44umypquqg8migo'
-        ], bzr.commit_tokens(:trunk_only => false)
-      end
-    end
-
-    def test_nested_branches_commit_tokens_trunk_only_true
-      with_bzr_repository('bzr_with_nested_branches') do |bzr|
-        assert_equal [
-          'obnox@samba.org-20090204002342-5r0q4gejk69rk6uv',
-          'obnox@samba.org-20090204002422-5ylnq8l4713eqfy0',
-          'obnox@samba.org-20090204002453-u70a3ehf3ae9kay1',
-          'obnox@samba.org-20090204002518-yb0x153oa6mhoodu',
-          'obnox@samba.org-20090204002540-gmana8tk5f9gboq9',
-          'obnox@samba.org-20090204004942-73rnw0izen42f154',
-          'test@example.com-20110803170818-v44umypquqg8migo'
-        ], bzr.commit_tokens(:trunk_only => true)
-      end
-    end
-
-		def test_commits_trunk_only_false
-			with_bzr_repository('bzr_with_branch') do |bzr|
-				assert_equal [
-					'test@example.com-20090206214301-s93cethy9atcqu9h',
-					'test@example.com-20090206214451-lzjngefdyw3vmgms',
-					'test@example.com-20090206214350-rqhdpz92l11eoq2t', # branch commit
-					'test@example.com-20090206214515-21lkfj3dbocao5pr'  # merge commit
-				], bzr.commits(:trunk_only => false).map { |c| c.token }
-			end
-		end
-
-		def test_commits_trunk_only_true
-			with_bzr_repository('bzr_with_branch') do |bzr|
-				assert_equal [
-					'test@example.com-20090206214301-s93cethy9atcqu9h',
-					'test@example.com-20090206214451-lzjngefdyw3vmgms',
-					'test@example.com-20090206214515-21lkfj3dbocao5pr'  # merge commit
-				], bzr.commits(:trunk_only => true).map { |c| c.token }
-			end
-		end
-
-    def test_commits_after_merge
-      with_bzr_repository('bzr_with_branch') do |bzr|
-        last_commit = bzr.commits.last
-        assert_equal [], bzr.commits(:trunk_only => false, :after => last_commit.token)
-      end
-    end
-
-    def test_commits_after_nested_merge
-      with_bzr_repository('bzr_with_nested_branches') do |bzr|
-        last_commit = bzr.commits.last
-        assert_equal [], bzr.commits(:trunk_only => false, :after => last_commit.token)
-      end
-    end
-
-    def test_nested_branches_commits_trunk_only_false
-      with_bzr_repository('bzr_with_nested_branches') do |bzr|
-        assert_equal [
-          'obnox@samba.org-20090204002342-5r0q4gejk69rk6uv',
-          'obnox@samba.org-20090204002422-5ylnq8l4713eqfy0',
-          'obnox@samba.org-20090204002453-u70a3ehf3ae9kay1',
-          'obnox@samba.org-20090204002518-yb0x153oa6mhoodu',
-          'obnox@samba.org-20090204002540-gmana8tk5f9gboq9',
-          'obnox@samba.org-20090204004942-73rnw0izen42f154',
-          'test@example.com-20110803170302-fz4mbr89n8f5agha',
-          'test@example.com-20110803170341-v1icvy05b430t68l',
-          'test@example.com-20110803170504-z7xz5uxj02e5x3z6',
-          'test@example.com-20110803170522-asv6i9z6m22jc8zz',
-          'test@example.com-20110803170648-o0xcbni7lwp97azj',
-          'test@example.com-20110803170818-v44umypquqg8migo'
-        ], bzr.commits(:trunk_only => false).map { |c| c.token }
-      end
-    end
-
-    def test_nested_branches_commits_trunk_only_true
-      with_bzr_repository('bzr_with_nested_branches') do |bzr|
-        assert_equal [
-          'obnox@samba.org-20090204002342-5r0q4gejk69rk6uv',
-          'obnox@samba.org-20090204002422-5ylnq8l4713eqfy0',
-          'obnox@samba.org-20090204002453-u70a3ehf3ae9kay1',
-          'obnox@samba.org-20090204002518-yb0x153oa6mhoodu',
-          'obnox@samba.org-20090204002540-gmana8tk5f9gboq9',
-          'obnox@samba.org-20090204004942-73rnw0izen42f154',
-          'test@example.com-20110803170818-v44umypquqg8migo'
-        ], bzr.commits(:trunk_only => true).map { |c| c.token }
-      end
-    end
-
-		def test_commits
-			with_bzr_repository('bzr') do |bzr|
-				assert_equal revision_ids, bzr.commits.collect { |c| c.token }
-				assert_equal revision_ids[6..6], bzr.commits(:after => revision_ids[5]).collect { |c| c.token }
-				assert_equal [], bzr.commits(:after => revision_ids.last).collect { |c| c.token }
-
-				# Check that the diffs are not populated
-				assert_equal [], bzr.commits.first.diffs
-			end
-		end
-
-		def test_each_commit
-			with_bzr_repository('bzr') do |bzr|
-				commits = []
-				bzr.each_commit do |c|
-					assert c.committer_name
-					assert c.committer_date.is_a?(Time)
-					assert c.message.length > 0
-					assert c.diffs.any?
-					# Check that the diffs are populated
-					c.diffs.each do |d|
-						assert d.action =~ /^[MAD]$/
-						assert d.path.length > 0
-					end
-					commits << c
-				end
-
-				# Make sure we cleaned up after ourselves
-				assert !FileTest.exist?(bzr.log_filename)
-
-				# Verify that we got the commits in forward chronological order
-				assert_equal revision_ids, commits.collect{ |c| c.token }
-			end
-		end
-
-		def test_each_commit_trunk_only_false
-			with_bzr_repository('bzr_with_branch') do |bzr|
-				commits = []
-				bzr.each_commit(:trunk_only => false) { |c| commits << c }
-				assert_equal [
-					'test@example.com-20090206214301-s93cethy9atcqu9h',
-					'test@example.com-20090206214451-lzjngefdyw3vmgms',
-					'test@example.com-20090206214350-rqhdpz92l11eoq2t', # branch commit
-					'test@example.com-20090206214515-21lkfj3dbocao5pr'  # merge commit
-				], commits.map { |c| c.token }
-			end
-		end
-
-		def test_each_commit_trunk_only_true
-			with_bzr_repository('bzr_with_branch') do |bzr|
-				commits = []
-				bzr.each_commit(:trunk_only => true) { |c| commits << c }
-				assert_equal [
-					'test@example.com-20090206214301-s93cethy9atcqu9h',
-					'test@example.com-20090206214451-lzjngefdyw3vmgms',
-					'test@example.com-20090206214515-21lkfj3dbocao5pr'   # merge commit
-					# 'test@example.com-20090206214350-rqhdpz92l11eoq2t' # branch commit -- after merge!
-				], commits.map { |c| c.token }
-			end
-		end
-
-    def test_each_commit_after_merge
-      with_bzr_repository('bzr_with_branch') do |bzr|
-        last_commit = bzr.commits.last
-
-        commits = []
-        bzr.each_commit(:trunk_only => false, :after => last_commit.token) { |c| commits << c }
-        assert_equal [], commits
-      end
-    end
-
-    def test_each_commit_after_nested_merge_at_tip
-      with_bzr_repository('bzr_with_nested_branches') do |bzr|
-        last_commit = bzr.commits.last
-
-        commits = []
-        bzr.each_commit(:trunk_only => false, :after => last_commit.token) { |c| commits << c }
-        assert_equal [], commits
-      end
-    end
-
-    def test_each_commit_after_nested_merge_not_at_tip
-      with_bzr_repository('bzr_with_nested_branches') do |bzr|
-        last_commit = bzr.commits.last
-        next_to_last_commit = bzr.commits[-2]
-
-        yielded_commits = []
-        bzr.each_commit(:trunk_only => false, :after => next_to_last_commit.token) { |c| yielded_commits << c }
-        assert_equal [last_commit.token], yielded_commits.map(&:token)
-      end
-    end
-
-    def test_nested_branches_each_commit_trunk_only_false
-      with_bzr_repository('bzr_with_nested_branches') do |bzr|
-        commits = []
-        bzr.each_commit(:trunk_only => false) { |c| commits << c}
-        assert_equal [
-          'obnox@samba.org-20090204002342-5r0q4gejk69rk6uv',
-          'obnox@samba.org-20090204002422-5ylnq8l4713eqfy0',
-          'obnox@samba.org-20090204002453-u70a3ehf3ae9kay1',
-          'obnox@samba.org-20090204002518-yb0x153oa6mhoodu',
-          'obnox@samba.org-20090204002540-gmana8tk5f9gboq9',
-          'obnox@samba.org-20090204004942-73rnw0izen42f154',
-          'test@example.com-20110803170302-fz4mbr89n8f5agha',
-          'test@example.com-20110803170341-v1icvy05b430t68l',
-          'test@example.com-20110803170504-z7xz5uxj02e5x3z6',
-          'test@example.com-20110803170522-asv6i9z6m22jc8zz',
-          'test@example.com-20110803170648-o0xcbni7lwp97azj',
-          'test@example.com-20110803170818-v44umypquqg8migo'
-        ], commits.map { |c| c.token }
-      end
-    end
-
-		def test_nested_branches_each_commit_trunk_only_true
-			with_bzr_repository('bzr_with_nested_branches') do |bzr|
-				commits = []
-				bzr.each_commit(:trunk_only => true) { |c| commits << c }
-				assert_equal [
-          'obnox@samba.org-20090204002342-5r0q4gejk69rk6uv',
-          'obnox@samba.org-20090204002422-5ylnq8l4713eqfy0',
-          'obnox@samba.org-20090204002453-u70a3ehf3ae9kay1',
-          'obnox@samba.org-20090204002518-yb0x153oa6mhoodu',
-          'obnox@samba.org-20090204002540-gmana8tk5f9gboq9',
-          'obnox@samba.org-20090204004942-73rnw0izen42f154',
-          'test@example.com-20110803170818-v44umypquqg8migo'
-				], commits.map { |c| c.token }
-			end
-		end
-
-		# This bzr repository contains the following tree structure
-		#    /foo/
-		#    /foo/helloworld.c
-		#    /bar/
-		# Ohloh doesn't care about directories, so only /foo/helloworld.c should be reported.
-		def test_each_commit_excludes_directories
-			with_bzr_repository('bzr_with_subdirectories') do |bzr|
-				commits = []
-				bzr.each_commit do |c|
-					commits << c
-				end
-				assert_equal 1, commits.size
-				assert_equal 1, commits.first.diffs.size
-				assert_equal 'foo/helloworld.c', commits.first.diffs.first.path
-			end
-		end
-
-		# Verfies OTWO-344
-		def test_commit_tokens_with_colon_character
-			with_bzr_repository('bzr_colon') do |bzr|
-				assert_equal ['svn-v4:364a429a-ab12-11de-804f-e3d9c25ff3d2::0'], bzr.commit_tokens
-			end
-		end
-
-    def test_committer_and_author_name
-      with_bzr_repository('bzr_with_authors') do |bzr|
-        commits = []
-        bzr.each_commit do |c|
-          commits << c
-        end
-        assert_equal 3, commits.size
-
-        assert_equal 'Initial.', commits[0].message
-        assert_equal 'Abhay Mujumdar', commits[0].committer_name
-        assert_equal nil, commits[0].author_name
-        assert_equal nil, commits[0].author_email
-
-        assert_equal 'Updated.', commits[1].message
-        assert_equal 'Abhay Mujumdar', commits[1].committer_name
-        assert_equal 'John Doe', commits[1].author_name
-        assert_equal 'johndoe@example.com', commits[1].author_email
-
-        # When there are multiple authors, first one is captured.
-        assert_equal 'Updated by two authors.', commits[2].message
-        assert_equal 'test', commits[2].committer_name
-        assert_equal 'John Doe', commits[2].author_name
-        assert_equal 'johndoe@example.com', commits[2].author_email
-      end
-    end
-
-    # Bzr converts invalid utf-8 characters into valid format before commit.
-    # So no utf-8 encoding issues are seen in ruby when dealing with Bzr.
-    def test_commits_encoding
-      with_bzr_repository('bzr_with_invalid_encoding') do |bzr|
-        assert_nothing_raised do
-          bzr.commits
-        end
-      end
-    end
-
-		protected
-
-		def revision_ids
-			[
-				'obnox@samba.org-20090204002342-5r0q4gejk69rk6uv', # 1
-				'obnox@samba.org-20090204002422-5ylnq8l4713eqfy0', # 2
-				'obnox@samba.org-20090204002453-u70a3ehf3ae9kay1', # 3
-				'obnox@samba.org-20090204002518-yb0x153oa6mhoodu', # 4
-				'obnox@samba.org-20090204002540-gmana8tk5f9gboq9', # 5
-				'obnox@samba.org-20090204004942-73rnw0izen42f154', # 6
-        'test@example.com-20111222183733-y91if5npo3pe8ifs', # 7
-			]
-		end
-
-	end
-end
-