Projects / Ohloh SCM

require File.dirname(__FILE__) + '/../test_helper'

module Scm::Parsers
	class SvnParserTest < Scm::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