ohloh_scm 2.5.1 → 3.0.1

data/spec/ohloh_scm/hg/scm_spec.rb

@@ -0,0 +1,23 @@
+require 'spec_helper'
+
+describe 'Hg::Scm' do
+  it 'must pull hg repository and clean up non .hg files' do
+    with_hg_repository('hg') do |src|
+      tmpdir do |dir|
+        dest = OhlohScm::Factory.get_core(scm_type: :hg, url: dir)
+        dest.status.wont_be :exist?
+
+        dest.scm.pull(src.scm, TestCallback.new)
+        dest.status.must_be :exist?
+        Dir.entries(dir).sort.must_equal ['.', '..', '.hg']
+
+        # Commit some new code on the original and pull again
+        run_p "cd '#{src.scm.url}' && touch foo && hg add foo && hg commit -u test -m test"
+        src.activity.commits.last.message.must_equal "test\n"
+
+        dest.scm.pull(src.scm, TestCallback.new)
+        Dir.entries(dir).sort.must_equal ['.', '..', '.hg']
+      end
+    end
+  end
+end

data/spec/ohloh_scm/hg/status_spec.rb

@@ -0,0 +1,12 @@
+require 'spec_helper'
+
+describe 'Hg::Status' do
+  it 'exist? must check if repo exists' do
+    hg_repo = nil
+    with_hg_repository('hg') do |hg|
+      hg_repo = hg
+      assert hg_repo.status.exist?
+    end
+    refute hg_repo.status.exist?
+  end
+end

data/spec/ohloh_scm/hg/validation_spec.rb

@@ -0,0 +1,32 @@
+require 'spec_helper'
+
+describe 'Hg::Validation' do
+  describe 'validate_server_connection' do
+    it 'must handle non existent remote source' do
+      core = OhlohScm::Factory.get_core(scm_type: :hg, url: 'http://www.selenic.com/repo/foobar')
+      core.validate
+      core.errors.wont_be :empty?
+    end
+  end
+
+  describe 'validate url' do
+    it 'must have errors for invalid urls' do
+      assert_url_error(:hg, nil, '', 'foo', 'http:/', 'http:://', 'http://', 'http://a')
+      assert_url_error(:hg, 'www.selenic.com/repo/hello') # missing a protool prefix
+      assert_url_error(:hg, 'http://www.selenic.com/repo/hello%20world') # no encoded strings allowed
+      assert_url_error(:hg, 'http://www.selenic.com/repo/hello world') # no spaces allowed
+      assert_url_error(:hg, 'git://www.selenic.com/repo/hello') # git protocol not allowed
+      assert_url_error(:hg, 'svn://www.selenic.com/repo/hello') # svn protocol not allowed
+      assert_url_error(:hg, '/home/robin/hg')
+      assert_url_error(:hg, 'file:///home/robin/hg')
+      assert_url_error(:hg, 'ssh://robin@localhost/home/robin/hg')
+      assert_url_error(:hg, 'ssh://localhost/home/robin/hg')
+    end
+
+    it 'wont have errors for valid urls' do
+      assert_url_valid(:hg, 'http://www.selenic.com/repo/hello')
+      assert_url_valid(:hg, 'http://www.selenic.com:80/repo/hello')
+      assert_url_valid(:hg, 'https://www.selenic.com/repo/hello')
+    end
+  end
+end

data/spec/ohloh_scm/parser/array_writer_spec.rb

@@ -0,0 +1,29 @@
+require 'spec_helper'
+
+describe 'ArrayWriter' do
+  it 'must work' do
+    log = <<-LOG.gsub(/^ {6}/, '')
+      __BEGIN_COMMIT__
+      Commit: 1df547800dcd168e589bb9b26b4039bff3a7f7e4
+      Author: Jason Allen
+      AuthorEmail: jason@ohloh.net
+      Date:   Fri, 14 Jul 2006 16:07:15 -0700
+      __BEGIN_COMMENT__
+      moving COPYING
+
+      __END_COMMENT__
+
+      :000000 100755 0000000000000000000000000000000000000000 a7b13ff050aed1191c45d7a5db9a50edcdc5755f A	COPYING
+    LOG
+
+    commits = OhlohScm::GitParser.parse(log)
+    commits.size.must_equal 1
+    commit = commits.first
+    commit.token.must_equal '1df547800dcd168e589bb9b26b4039bff3a7f7e4'
+    commit.author_name.must_equal 'Jason Allen'
+    commit.author_email.must_equal 'jason@ohloh.net'
+    commit.message.must_equal "moving COPYING\n"
+    commit.author_date.must_equal Time.utc(2006, 7, 14, 23, 7, 15)
+    commit.diffs.size.must_equal 1
+  end
+end

data/spec/ohloh_scm/parser/branch_number_spec.rb

@@ -0,0 +1,126 @@
+require 'spec_helper'
+
+describe 'BranchNumber' do
+  it 'must test basic' do
+    OhlohScm::BranchNumber.new('1.1').to_a.must_equal [1, 1]
+    OhlohScm::BranchNumber.new('1234.1234').to_a.must_equal [1234, 1234]
+    OhlohScm::BranchNumber.new('1.2.3.4').to_a.must_equal [1, 2, 3, 4]
+  end
+
+  it 'must test simple inherits_from' do
+    b = OhlohScm::BranchNumber.new('1.3')
+
+    assert b.send(:inherits_from?, OhlohScm::BranchNumber.new('1.2'))
+    assert b.send(:inherits_from?, OhlohScm::BranchNumber.new('1.1'))
+    assert b.send(:inherits_from?, OhlohScm::BranchNumber.new('1.3'))
+
+    refute b.send(:inherits_from?, OhlohScm::BranchNumber.new('1.4'))
+    refute b.send(:inherits_from?, OhlohScm::BranchNumber.new('1.1.2.1'))
+    refute b.send(:inherits_from?, OhlohScm::BranchNumber.new('1.2.2.1'))
+    refute b.send(:inherits_from?, OhlohScm::BranchNumber.new('1.3.2.1'))
+  end
+
+  it 'must test complex inherits_from' do
+    b = OhlohScm::BranchNumber.new('1.3.6.3.2.3')
+
+    assert b.send(:inherits_from?, OhlohScm::BranchNumber.new('1.2'))
+    assert b.send(:inherits_from?, OhlohScm::BranchNumber.new('1.1'))
+    assert b.send(:inherits_from?, OhlohScm::BranchNumber.new('1.3'))
+    assert b.send(:inherits_from?, OhlohScm::BranchNumber.new('1.3.6.1'))
+    assert b.send(:inherits_from?, OhlohScm::BranchNumber.new('1.3.6.2'))
+    assert b.send(:inherits_from?, OhlohScm::BranchNumber.new('1.3.6.3'))
+    assert b.send(:inherits_from?, OhlohScm::BranchNumber.new('1.3.6.3.2.1'))
+    assert b.send(:inherits_from?, OhlohScm::BranchNumber.new('1.3.6.3.2.2'))
+    assert b.send(:inherits_from?, OhlohScm::BranchNumber.new('1.3.6.3.2.3'))
+
+    refute b.send(:inherits_from?, OhlohScm::BranchNumber.new('1.4'))
+    refute b.send(:inherits_from?, OhlohScm::BranchNumber.new('1.1.2.1'))
+    refute b.send(:inherits_from?, OhlohScm::BranchNumber.new('1.2.2.1'))
+    refute b.send(:inherits_from?, OhlohScm::BranchNumber.new('1.3.2.1'))
+    refute b.send(:inherits_from?, OhlohScm::BranchNumber.new('1.3.4.1'))
+    refute b.send(:inherits_from?, OhlohScm::BranchNumber.new('1.3.6.1.2.1'))
+    refute b.send(:inherits_from?, OhlohScm::BranchNumber.new('1.3.6.4'))
+    refute b.send(:inherits_from?, OhlohScm::BranchNumber.new('1.3.6.3.4.1'))
+    refute b.send(:inherits_from?, OhlohScm::BranchNumber.new('1.3.6.3.2.2.2.1'))
+    refute b.send(:inherits_from?, OhlohScm::BranchNumber.new('1.3.6.3.2.4'))
+  end
+
+  it 'must  test primary revision number change' do
+    b = OhlohScm::BranchNumber.new('2.3')
+
+    assert b.send(:inherits_from?, OhlohScm::BranchNumber.new('2.2'))
+    assert b.send(:inherits_from?, OhlohScm::BranchNumber.new('2.1'))
+    assert b.send(:inherits_from?, OhlohScm::BranchNumber.new('1.1'))
+    assert b.send(:inherits_from?, OhlohScm::BranchNumber.new('1.9999'))
+
+    refute b.send(:inherits_from?, OhlohScm::BranchNumber.new('2.4'))
+    refute b.send(:inherits_from?, OhlohScm::BranchNumber.new('3.1'))
+  end
+
+  it 'must test complex primary revision number change' do
+    b = OhlohScm::BranchNumber.new('2.3.2.1')
+
+    assert b.send(:inherits_from?, OhlohScm::BranchNumber.new('2.3'))
+    assert b.send(:inherits_from?, OhlohScm::BranchNumber.new('2.2'))
+    assert b.send(:inherits_from?, OhlohScm::BranchNumber.new('1.1'))
+    assert b.send(:inherits_from?, OhlohScm::BranchNumber.new('1.9999'))
+
+    refute b.send(:inherits_from?, OhlohScm::BranchNumber.new('3.1'))
+  end
+
+  it 'must test simple on_same_line' do
+    b = OhlohScm::BranchNumber.new('1.3')
+
+    assert b.on_same_line?(OhlohScm::BranchNumber.new('1.2'))
+    assert b.on_same_line?(OhlohScm::BranchNumber.new('1.1'))
+    assert b.on_same_line?(OhlohScm::BranchNumber.new('1.3'))
+    assert b.on_same_line?(OhlohScm::BranchNumber.new('1.4'))
+
+    refute b.on_same_line?(OhlohScm::BranchNumber.new('1.1.2.1'))
+    refute b.on_same_line?(OhlohScm::BranchNumber.new('1.2.2.1'))
+    refute b.on_same_line?(OhlohScm::BranchNumber.new('1.3.2.1'))
+  end
+
+  it 'must test complex on_same_line' do
+    b = OhlohScm::BranchNumber.new('1.3.6.3.2.3')
+
+    assert b.on_same_line?(OhlohScm::BranchNumber.new('1.1'))
+    assert b.on_same_line?(OhlohScm::BranchNumber.new('1.2'))
+    assert b.on_same_line?(OhlohScm::BranchNumber.new('1.3'))
+    assert b.on_same_line?(OhlohScm::BranchNumber.new('1.3.6.1'))
+    assert b.on_same_line?(OhlohScm::BranchNumber.new('1.3.6.2'))
+    assert b.on_same_line?(OhlohScm::BranchNumber.new('1.3.6.3'))
+    assert b.on_same_line?(OhlohScm::BranchNumber.new('1.3.6.3.2.1'))
+    assert b.on_same_line?(OhlohScm::BranchNumber.new('1.3.6.3.2.2'))
+    assert b.on_same_line?(OhlohScm::BranchNumber.new('1.3.6.3.2.3'))
+    assert b.on_same_line?(OhlohScm::BranchNumber.new('1.3.6.3.2.4'))
+    assert b.on_same_line?(OhlohScm::BranchNumber.new('1.3.6.3.2.99'))
+
+    refute b.on_same_line?(OhlohScm::BranchNumber.new('1.4'))
+    refute b.on_same_line?(OhlohScm::BranchNumber.new('1.1.2.1'))
+    refute b.on_same_line?(OhlohScm::BranchNumber.new('1.2.2.1'))
+    refute b.on_same_line?(OhlohScm::BranchNumber.new('1.3.2.1'))
+    refute b.on_same_line?(OhlohScm::BranchNumber.new('1.3.4.1'))
+    refute b.on_same_line?(OhlohScm::BranchNumber.new('1.3.6.1.2.1'))
+    refute b.on_same_line?(OhlohScm::BranchNumber.new('1.3.6.4'))
+    refute b.on_same_line?(OhlohScm::BranchNumber.new('1.3.6.3.4.1'))
+    refute b.on_same_line?(OhlohScm::BranchNumber.new('1.3.6.3.2.2.2.1'))
+    refute b.on_same_line?(OhlohScm::BranchNumber.new('1.3.6.3.2.99.2.1'))
+  end
+
+  # Crazy CVS inserts a zero before the last piece of a branch number
+  it 'must test magic branch numbers' do
+    assert OhlohScm::BranchNumber.new('1.1.2.1').on_same_line?(OhlohScm::BranchNumber.new('1.1.0.2'))
+    assert OhlohScm::BranchNumber.new('1.1.2.1.2.1').on_same_line?(OhlohScm::BranchNumber.new('1.1.0.2'))
+
+    assert OhlohScm::BranchNumber.new('1.1.0.2').on_same_line?(OhlohScm::BranchNumber.new('1.1'))
+    refute OhlohScm::BranchNumber.new('1.1.0.2').on_same_line?(OhlohScm::BranchNumber.new('1.2'))
+    assert OhlohScm::BranchNumber.new('1.1.0.2').on_same_line?(OhlohScm::BranchNumber.new('1.1.2.1'))
+
+    assert OhlohScm::BranchNumber.new('1.1.0.4').on_same_line?(OhlohScm::BranchNumber.new('1.1'))
+    refute OhlohScm::BranchNumber.new('1.1.0.4').on_same_line?(OhlohScm::BranchNumber.new('1.1.2.1'))
+    refute OhlohScm::BranchNumber.new('1.1.0.4').on_same_line?(OhlohScm::BranchNumber.new('1.1.0.2'))
+    assert OhlohScm::BranchNumber.new('1.1.0.4').on_same_line?(OhlohScm::BranchNumber.new('1.1.4.1'))
+    refute OhlohScm::BranchNumber.new('1.1.0.4').on_same_line?(OhlohScm::BranchNumber.new('1.1.0.6'))
+  end
+end

data/spec/ohloh_scm/parser/cvs_parser_spec.rb

@@ -0,0 +1,77 @@
+require 'spec_helper'
+
+describe 'CvsParser' do
+  describe 'parse' do
+    it 'must return empty array' do
+      OhlohScm::CvsParser.parse('').must_be :empty?
+    end
+
+    it 'must parse the log' do
+      revisions = OhlohScm::CvsParser.parse File.read(FIXTURES_DIR + '/basic.rlog')
+
+      revisions.size.must_equal 2
+
+      revisions[0].token.must_equal '2005/07/25 17:09:59'
+      revisions[0].committer_name.must_equal 'pizzandre'
+      Time.utc(2005, 0o7, 25, 17, 9, 59).must_equal revisions[0].committer_date
+      revisions[0].message.must_equal '*** empty log message ***'
+
+      revisions[1].token.must_equal '2005/07/25 17:11:06'
+      revisions[1].committer_name.must_equal 'pizzandre'
+      Time.utc(2005, 0o7, 25, 17, 11, 6).must_equal revisions[1].committer_date
+      revisions[1].message.must_equal 'Addin UNL file with using example-'
+    end
+
+    # One file with several revisions
+    it 'must test multiple revisions' do
+      revisions = OhlohScm::CvsParser.parse File.read(FIXTURES_DIR + '/multiple_revisions.rlog')
+
+      # There are 9 revisions in the rlog, but some of them are close together with the same message.
+      # Therefore we bin them together into only 7 revisions.
+      revisions.size.must_equal 7
+
+      revisions[0].token.must_equal '2005/07/15 11:53:30'
+      revisions[0].committer_name.must_equal 'httpd'
+      revisions[0].message.must_equal 'Initial data for the intelliglue project'
+
+      revisions[1].token.must_equal '2005/07/15 16:40:17'
+      revisions[1].committer_name.must_equal 'pizzandre'
+      revisions[1].message.must_equal '*** empty log message ***'
+
+      revisions[5].token.must_equal '2005/07/26 20:35:13'
+      revisions[5].committer_name.must_equal 'pizzandre'
+      assert_equal "Issue number:\nObtained from:\nSubmitted by:\nReviewed by:\nAdding current milestones-",
+                   revisions[5].message
+
+      revisions[6].token.must_equal '2005/07/26 20:39:16'
+      revisions[6].committer_name.must_equal 'pizzandre'
+      assert_equal "Issue number:\nObtained from:\nSubmitted by:\nReviewed by:\nCompleting and fixing milestones texts",
+                   revisions[6].message
+    end
+
+    # A file is created and modified on the branch, then merged to the trunk, then deleted from the branch.
+    # From the trunk's point of view, we should see only the merge event.
+    it 'must test file created on branch as seen from trunk' do
+      revisions = OhlohScm::CvsParser.parse File.read(FIXTURES_DIR + '/file_created_on_branch.rlog')
+      revisions.size.must_equal 1
+      revisions[0].message.must_equal 'merged new_file.rb from branch onto the HEAD'
+    end
+
+    # A file is created on the vender branch. This causes a simultaneous checkin on HEAD
+    # with a different message ('Initial revision') but same committer_name name and timestamp.
+    # We should only pick up one of these checkins.
+    it 'must test simultaneous checkins' do
+      revisions = OhlohScm::CvsParser.parse File.read(FIXTURES_DIR + '/simultaneous_checkins.rlog')
+      revisions.size.must_equal 1
+      revisions[0].message.must_equal 'Initial revision'
+    end
+
+    # Two different authors check in with two different messages at the exact same moment.
+    # How this happens is a mystery, but I have seen it in rlogs.
+    # We arbitrarily choose the first one if so.
+    it 'must test simultaneous checkins_2' do
+      revisions = OhlohScm::CvsParser.parse File.read(FIXTURES_DIR + '/simultaneous_checkins_2.rlog')
+      revisions.size.must_equal 1
+    end
+  end
+end

data/spec/ohloh_scm/parser/git_parser_spec.rb

@@ -0,0 +1,102 @@
+require 'spec_helper'
+
+describe 'GitParser' do
+  describe 'parse' do
+    it 'must be empty for blank string' do
+      OhlohScm::GitParser.parse('').must_be :empty?
+    end
+
+    it 'must return epoch time for log with no date' do
+      # rubocop:disable Layout/TrailingWhitespace
+      sample_log = <<-SAMPLE.gsub(/^ {8}/, '')
+        __BEGIN_COMMIT__
+        Commit: 1df547800dcd168e589bb9b26b4039bff3a7f7e4
+        Author: Jason Allen
+        AuthorEmail: jason@ohloh.net
+        Date: 
+        __BEGIN_COMMENT__
+            moving COPYING
+
+        __END_COMMENT__
+      SAMPLE
+      # rubocop:enable Layout/TrailingWhitespace
+
+      commits = OhlohScm::GitParser.parse(sample_log)
+      commits.size.must_equal 1
+      commits[0].author_date.must_equal Time.utc(1970, 1, 1, 0, 0, 0)
+    end
+
+    it 'must return epoch time for log with invalid date' do
+      sample_log = <<-SAMPLE.gsub(/^ {8}/, '')
+        __BEGIN_COMMIT__
+        Commit: 1df547800dcd168e589bb9b26b4039bff3a7f7e4
+        Author: Jason Allen
+        AuthorEmail: jason@ohloh.net
+        Date: Mon, Jan 01 2012 05:00:00 -0500
+        __BEGIN_COMMENT__
+            moving COPYING
+
+        __END_COMMENT__
+      SAMPLE
+
+      commits = OhlohScm::GitParser.parse(sample_log)
+      commits.size.must_equal 1
+      commits[0].author_date.must_equal Time.utc(1970, 1, 1, 0, 0, 0)
+    end
+
+    it 'must parse a log correctly' do
+      sample_log = <<-SAMPLE.gsub(/^ {8}/, '')
+        __BEGIN_COMMIT__
+        Commit: 1df547800dcd168e589bb9b26b4039bff3a7f7e4
+        Author: Jason Allen
+        AuthorEmail: jason@ohloh.net
+        Date:   Fri, 14 Jul 2006 16:07:15 -0700
+        __BEGIN_COMMENT__
+        moving COPYING
+
+        __END_COMMENT__
+
+        :000000 100755 0000000000000000000000000000000000000000 a7b13ff050aed1191c45d7a5db9a50edcdc5755f A	COPYING
+
+        __BEGIN_COMMIT__
+        Commit: 2e9366dd7a786fdb35f211fff1c8ea05c51968b1
+        Author: Robin Luckey
+        AuthorEmail: robin@ohloh.net
+        Date:   Sun, 11 Jun 2006 11:34:17 -0700
+        __BEGIN_COMMENT__
+        added some documentation and licensing info
+
+        __END_COMMENT__
+
+        :100644 100644 d4a46caf1891fccebb726504f34794a0ca5d2e42 41dc0d12cb9eaa30e57aa7126b1227ba320ad297 M	README
+        :100644 000000 41dc0d12cb9eaa30e57aa7126b1227ba320ad297 0000000000000000000000000000000000000000 D	helloworld.c
+      SAMPLE
+
+      commits = OhlohScm::GitParser.parse(sample_log)
+
+      commits.size.must_equal 2
+
+      commits[0].token.must_equal '1df547800dcd168e589bb9b26b4039bff3a7f7e4'
+      commits[0].author_name.must_equal 'Jason Allen'
+      commits[0].author_email.must_equal 'jason@ohloh.net'
+      commits[0].message.must_equal "moving COPYING\n"
+      commits[0].author_date.must_equal Time.utc(2006, 7, 14, 23, 7, 15)
+      commits[0].diffs.size.must_equal 1
+
+      commits[0].diffs[0].action.must_equal 'A'
+      commits[0].diffs[0].path.must_equal 'COPYING'
+
+      commits[1].token.must_equal '2e9366dd7a786fdb35f211fff1c8ea05c51968b1'
+      commits[1].author_name.must_equal 'Robin Luckey'
+      commits[1].author_email.must_equal 'robin@ohloh.net'
+      commits[1].message.must_equal "added some documentation and licensing info\n"
+      commits[1].author_date.must_equal Time.utc(2006, 6, 11, 18, 34, 17)
+      commits[1].diffs.size.must_equal 2
+
+      commits[1].diffs[0].action.must_equal 'M'
+      commits[1].diffs[0].path.must_equal 'README'
+      commits[1].diffs[1].action.must_equal 'D'
+      commits[1].diffs[1].path.must_equal 'helloworld.c'
+    end
+  end
+end

data/spec/ohloh_scm/parser/hg_parser_spec.rb

@@ -0,0 +1,194 @@
+require 'spec_helper'
+
+describe 'HgParser' do
+  describe 'parser' do
+    it 'must return an empty list for blank log' do
+      OhlohScm::HgParser.parse('').must_be :empty?
+    end
+
+    it 'must parse log into commits' do
+      sample_log = <<-SAMPLE.gsub(/^ {8}/, '')
+        __BEGIN_COMMIT__
+        changeset: 655f04cf6ad708ab58c7b941672dce09dd369a18
+        user:      Alex <alex@example.com>
+        date:      1232479997.028800
+        __BEGIN_COMMENT__
+        added makefile
+        __END_COMMENT__
+        __END_COMMIT__
+        __BEGIN_COMMIT__
+        changeset: 01101d8ef3cea7da9ac6e9a226d645f4418f05c9
+        user:      Robin Luckey <robin@ohloh.net>
+        date:      1232479974.028800
+        __BEGIN_COMMENT__
+        Initial Checkin
+        __END_COMMENT__
+        __END_COMMIT__
+
+      SAMPLE
+
+      commits = OhlohScm::HgParser.parse(sample_log)
+
+      assert commits
+      commits.size.must_equal 2
+
+      commits[0].token.must_match '655f04cf6ad708'
+      commits[0].committer_name.must_equal 'Alex'
+      commits[0].committer_email.must_equal 'alex@example.com'
+      commits[0].message.must_equal "added makefile\n" # Note \n at end of comment
+      commits[0].committer_date.to_i.must_equal Time.utc(2009, 1, 20, 19, 33, 17).to_i
+      commits[0].diffs.size.must_equal 0
+
+      commits[1].token.must_match '01101d8ef3ce'
+      commits[1].committer_name.must_equal 'Robin Luckey'
+      commits[1].committer_email.must_equal 'robin@ohloh.net'
+      commits[1].message.must_equal "Initial Checkin\n" # Note \n at end of comment
+      commits[1].committer_date.to_i.must_equal Time.utc(2009, 1, 20, 19, 32, 54).to_i
+      commits[1].diffs.size.must_equal 0
+    end
+
+    it 'must set committer_name to email and committer_email to NULL when name is not present' do
+      sample_log = <<-SAMPLE.gsub(/^ {8}/, '')
+        __BEGIN_COMMIT__
+        changeset: 01101d8ef3cea7da9ac6e9a226d645f4418f05c9
+        user:      robin@ohloh.net
+        date:      1232479974.028800
+        __BEGIN_COMMENT__
+        Initial Checkin
+        __END_COMMENT__
+        __END_COMMIT__
+      SAMPLE
+
+      commits = OhlohScm::HgParser.parse(sample_log)
+
+      assert commits
+      commits.size.must_equal 1
+
+      commits[0].token.must_match '01101d8ef3ce'
+      commits[0].committer_name.must_equal 'robin@ohloh.net'
+      commits[0].committer_email.must_be_nil
+    end
+
+    # Sometimes the log does not include a summary
+    it 'must parse log with no summary' do
+      sample_log = <<-SAMPLE.gsub(/^ {8}/, '')
+        __BEGIN_COMMIT__
+        changeset: 655f04cf6ad708ab58c7b941672dce09dd369a18
+        user:      Alex <alex@example.com>
+        date:      1232479997.028800
+        __END_COMMIT__
+        __BEGIN_COMMIT__
+        changeset: 01101d8ef3cea7da9ac6e9a226d645f4418f05c9
+        user:      Robin Luckey <robin@ohloh.net>
+        date:      1232479974.028800
+        __END_COMMIT__
+      SAMPLE
+      commits = OhlohScm::HgParser.parse(sample_log)
+
+      assert commits
+      commits.size.must_equal 2
+
+      commits[0].token.must_match '655f04cf6ad708'
+      commits[0].committer_name.must_equal 'Alex'
+      commits[0].committer_email.must_equal 'alex@example.com'
+      commits[0].message.must_be_nil
+      commits[0].committer_date.to_i.must_equal Time.utc(2009, 1, 20, 19, 33, 17).to_i
+      commits[0].diffs.size.must_equal 0
+    end
+
+    it 'must parse verbose log into commits and diffs' do
+      sample_log = <<-SAMPLE.gsub(/^ {8}/, '')
+        __BEGIN_COMMIT__
+        changeset: 655f04cf6ad708ab58c7b941672dce09dd369a18
+        user:      Alex <alex@example.com>
+        date:      1232479997.028800
+        __BEGIN_COMMENT__
+        Adding file foobar
+        __END_COMMENT__
+        __BEGIN_FILES__
+        A foobar
+        __END_FILES__
+        __END_COMMIT__
+
+        __BEGIN_COMMIT__
+        changeset: 01101d8ef3cea7da9ac6e9a226d645f4418f05c9
+        user:      Robin Luckey <robin@ohloh.net>
+        date:      1232479974.028800
+        __BEGIN_COMMENT__
+        Initial Checkin
+        __END_COMMENT__
+        __BEGIN_FILES__
+        A helloworld.c
+        __END_FILES__
+        __END_COMMIT__
+      SAMPLE
+
+      commits = OhlohScm::HgParser.parse(sample_log)
+
+      assert commits
+      commits.size.must_equal 2
+
+      commits[0].token.must_match '655f04cf6ad708'
+      commits[0].committer_name.must_equal 'Alex'
+      commits[0].committer_email.must_equal 'alex@example.com'
+      commits[0].message.must_equal "Adding file foobar\n" # Note \n at end of comment
+      commits[0].committer_date.to_i.must_equal Time.utc(2009, 1, 20, 19, 33, 17).to_i
+      commits[0].diffs[0].path.must_equal 'foobar'
+
+      commits[1].token.must_match '01101d8ef3ce'
+      commits[1].committer_name.must_equal 'Robin Luckey'
+      commits[1].committer_email.must_equal 'robin@ohloh.net'
+      commits[1].message.must_equal "Initial Checkin\n" # Note \n at end of comment
+      commits[1].committer_date.to_i.must_equal Time.utc(2009, 1, 20, 19, 32, 54).to_i
+      commits[1].diffs.size.must_equal 1
+      commits[1].diffs[0].path.must_equal 'helloworld.c'
+    end
+
+    it 'must parse log with the --style argument' do
+      with_hg_repository('hg') do |hg|
+        assert File.exist?(OhlohScm::HgParser.style_path)
+        log = run_p("cd #{hg.scm.url} && hg log -f --style #{OhlohScm::HgParser.style_path}")
+        commits = OhlohScm::HgParser.parse(log)
+        assert_styled_commits(commits, false)
+
+        assert File.exist?(OhlohScm::HgParser.verbose_style_path)
+        log = run_p("cd #{hg.scm.url} && hg log -f --style #{OhlohScm::HgParser.verbose_style_path}")
+        commits = OhlohScm::HgParser.parse(log)
+        assert_styled_commits(commits, true)
+      end
+    end
+
+    protected
+
+    def assert_styled_commits(commits, with_diffs = false)
+      commits.size.must_equal 5
+
+      commits[1].token.must_equal '75532c1e1f1de55c2271f6fd29d98efbe35397c4'
+      commits[1].committer_name.must_equal 'Robin Luckey'
+      commits[1].committer_email.must_equal 'robin@ohloh.net'
+      assert Time.utc(2009, 1, 20, 19, 34, 53) - commits[1].committer_date < 1 # Don't care about milliseconds
+      commits[1].message.must_equal "deleted helloworld.c\n"
+
+      if with_diffs
+        commits[1].diffs.size.must_equal 1
+        commits[1].diffs[0].action.must_equal 'D'
+        commits[1].diffs[0].path.must_equal 'helloworld.c'
+      else
+        commits[1].diffs.must_equal []
+      end
+
+      commits[2].token.must_equal '468336c6671cbc58237a259d1b7326866afc2817'
+      assert Time.utc(2009, 1, 20, 19, 34, 4) - commits[2].committer_date < 1
+
+      if with_diffs
+        commits[2].diffs.size.must_equal 2
+        commits[2].diffs[0].action.must_equal 'M'
+        commits[2].diffs[0].path.must_equal 'helloworld.c'
+        commits[2].diffs[1].action.must_equal 'A'
+        commits[2].diffs[1].path.must_equal 'README'
+      else
+        commits[0].diffs.must_equal []
+      end
+    end
+  end
+end