Cleanup hg repo instead of using bare clone

`hg clone -U` creates bare repository.
Bare repositories don't return trunk commits with `hg log -f`.

Author: notalex

lib/ohloh_scm/hg/scm.rb

@@ -25,18 +25,27 @@ def clone_or_fetch(remote_scm, callback)
 
         status.exist? ? revert_and_pull(remote_scm) : clone_repository(remote_scm)
 
+        clean_up_disk
+
         callback.update(1, 1)
       end
 
       def clone_repository(remote_scm)
         run "rm -rf '#{url}'"
-        run "hg clone -U '#{remote_scm.url}' '#{url}'"
+        run "hg clone '#{remote_scm.url}' '#{url}'"
       end
 
       def revert_and_pull(remote_scm)
         branch_opts = "-r #{remote_scm.branch_name}" if branch_name
         run "cd '#{url}' && hg revert --all && hg pull #{branch_opts} -u -y '#{remote_scm.url}'"
       end
+
+      def clean_up_disk
+        return unless FileTest.exist?(url)
+
+        run "cd #{url} && find . -maxdepth 1 -not -name .hg -not -name . -print0"\
+              ' | xargs -0 rm -rf --'
+      end
     end
   end
 end

spec/ohloh_scm/hg/scm_spec.rb

@@ -1,20 +1,22 @@
 require 'spec_helper'
 
 describe 'Hg::Scm' do
-  it 'must pull hg repository' 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