repobrowse 0.0.0

data/test/test_config.rb

@@ -0,0 +1,29 @@
+# Copyright (C) 2017-2018 all contributors <repobrowse-public@80x24.org>
+# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
+# frozen_string_literal: true
+require_relative 'helper'
+
+class TestConfig < Test::Unit::TestCase
+  def test_load_hash
+    config = {
+      'repo.git.path' => '/path/to/git.git',
+      'repo.repobrowse.path' => '/path/to/repobrowse.git',
+    }
+    config = Repobrowse::Config.new(config)
+    assert_instance_of Repobrowse::Config, config
+  end
+
+  def test_load_file
+    cfg = Tempfile.new('git-config')
+    cfg.write <<''
+[repo "git"]
+	email = a@example.com
+	email = b@example.com
+	path = /path/to/nowhere
+
+    cfg.flush
+    cfg = Repobrowse::Config.new(cfg.path)
+    assert_equal %w(a@example.com b@example.com),
+      cfg.instance_variable_get(:@raw)['repo.git.email']
+  end
+end

data/test/test_git.rb

@@ -0,0 +1,15 @@
+# -*- encoding: binary -*-
+# Copyright (C) 2017-2018 all contributors <repobrowse-public@80x24.org>
+# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
+# frozen_string_literal: true
+require_relative 'helper'
+require 'repobrowse/git'
+
+class TestGit < Test::Unit::TestCase
+  def test_unquote
+    g = Repobrowse::Git.new('/dev/null')
+    assert_equal "foo\nbar", g.git_unquote('"foo\\nbar"'), 'unquoted newline'
+    assert_equal "Eléanor", g.git_unquote('"El\\303\\251anor"'),
+      'unquoted octal'
+  end
+end

data/test/test_git_atom.rb

@@ -0,0 +1,27 @@
+# Copyright (C) 2017-2018 all contributors <repobrowse-public@80x24.org>
+# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
+# frozen_string_literal: true
+require_relative 'helper'
+require 'rss'
+
+class TestGitAtom < Test::Unit::TestCase
+  def test_git_atom
+    git_tmp_repo do |tmp_dir, git_dir|
+      s, h, b = req('GET', "/tmp/atom/master")
+      assert_equal 'application/atom+xml', h['Content-Type']
+      assert_equal 200, s.to_i
+      str = body_string(b)
+      feed = RSS::Parser.parse(str)
+      assert_kind_of RSS::Atom::Feed, feed
+      assert_predicate feed, :valid?
+
+      s, h, _ = req('GET', "/tmp/atom/master:non/existent")
+      assert h['Content-Type'], 'whatever type is fine for now'
+      assert_equal 404, s.to_i
+
+      s, h, _ = req('GET', "/tmp/atom/master:dir/")
+      assert_equal 302, s.to_i
+      assert_match %r{\Ahttp://[^/]+/tmp/atom/master:dir\z}, h['Location']
+    end
+  end
+end

data/test/test_git_clone.rb

@@ -0,0 +1,73 @@
+# -*- encoding: binary -*-
+# Copyright (C) 2017-2018 all contributors <repobrowse-public@80x24.org>
+# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
+# frozen_string_literal: true
+require_relative 'helper'
+
+class TestClone < Test::Unit::TestCase
+  def test_clone
+    git_tmp_repo do |tmp_dir, git_dir|
+      rack_server(@app) do |logq, host, port|
+        url = "http://#{host}:#{port}/tmp"
+        dst = "#{tmp_dir}/dst"
+
+        assert system(*%W(git clone -q #{url} #{dst})),
+            'smart clone works'
+        FileUtils.rm_rf(dst)
+
+        assert system(*%W(git --git-dir=#{git_dir} update-server-info)),
+            'enable dumb clones'
+
+        env = { 'GIT_SMART_HTTP' => '0' }
+        assert system(env, *%W(git clone -q #{url} #{dst})),
+            'dumb clone works'
+        FileUtils.rm_rf(dst)
+
+        assert system(*%W(git --git-dir=#{git_dir} repack -adq)), 'repack'
+        assert system(env, *%W(git clone -q #{url} #{dst})),
+            'dumb clone works after packing'
+
+        packs = Dir["#{git_dir}/objects/pack/*.pack"]
+        if packs[0] =~ %r{(/objects/pack/[^\.]+\.pack)\z}
+          require 'net/http'
+          Net::HTTP.start(host, port) do |http|
+            path = -"/tmp#$1"
+            res = http.request(Net::HTTP::Get.new(path))
+            pack = File.open(packs[0], 'rb', &:read)
+            size = pack.size
+            assert_equal pack, res.body
+            assert_equal 200, res.code.to_i
+
+            req = Net::HTTP::Get.new(path, 'Range' => 'bytes=5-46')
+            res = http.request(req)
+            assert_equal 206, res.code.to_i
+            assert_equal "bytes 5-46/#{size}", res['Content-Range']
+            assert_equal pack[5..46], res.body
+            assert_equal 'application/x-git-packed-objects', res['Content-Type']
+
+            req = Net::HTTP::Get.new(path, 'Range' => 'bytes=5-')
+            res = http.request(req)
+            assert_equal 206, res.code.to_i
+            last = size - 1
+            assert_equal "bytes 5-#{last}/#{size}", res['Content-Range']
+            assert_equal pack[5..-1], res.body
+
+            req = Net::HTTP::Get.new(path, 'Range' => 'bytes=-1')
+            res = http.request(req)
+            assert_equal 206, res.code.to_i
+            assert_equal "bytes #{last}-#{last}/#{size}", res['Content-Range']
+            assert_equal pack[-1], res.body
+
+            req = Net::HTTP::Get.new(path, 'Range' => 'bytes=0-0')
+            res = http.request(req)
+            assert_equal 206, res.code.to_i
+            assert_equal "bytes 0-0/#{size}", res['Content-Range']
+            assert_equal pack[0], res.body
+          end
+        else
+          warn "no packs? #{packs.inspect}"
+        end
+      end
+    end
+  end
+end

data/test/test_git_patch.rb

@@ -0,0 +1,44 @@
+# Copyright (C) 2017-2018 all contributors <repobrowse-public@80x24.org>
+# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
+# frozen_string_literal: true
+require_relative 'helper'
+
+class TestGitPatch < Test::Unit::TestCase
+  def test_git_patch
+    git_tmp_repo do |tmp_dir, git_dir|
+      g = Repobrowse::Git.new(git_dir)
+      cmt = g.rugged.rev_parse('HEAD')
+      cmt = cmt.oid
+      assert_match %r{\A[a-f0-9]{40}\z}, cmt
+      status, headers, body = req('GET', "/tmp/#{cmt}.patch")
+      assert headers.delete('Expires'), 'Expires exists'
+      orig = [ status, headers ].freeze
+      assert_equal 200, status.to_i
+      assert_equal 'text/plain; charset=UTF-8', headers['Content-Type']
+      assert_equal %Q{inline; filename="#{cmt}.patch"},
+                    headers['Content-Disposition']
+      str = body_string(body)
+      assert_match %r{\AFrom #{cmt} }, str
+
+      patch = str.split("\n")
+      sig = patch.pop
+      assert(sig.sub!(/format-patch /, 'format-patch --no-signature '))
+      assert_equal '-- ', patch.pop
+      sig_out = IO.popen(sig, chdir: git_dir, &:read)
+      sig_out = sig_out.split("\n")
+      assert_equal patch, sig_out, 'sig used to regenerate the patch'
+
+      status, headers, body = req('GET', "/tmp/#{cmt[0,16]}.patch")
+      assert_equal 302, status, 'redirected to full commit URL'
+      assert_match %r{://[^/]+/tmp/#{cmt}\.patch\z}, headers['Location']
+
+      res = req('HEAD', "/tmp/#{cmt}.patch")
+      assert res[1].delete('Expires'), 'Expires exists'
+      assert_equal '', body_string(res.pop), 'HEAD gives empty body'
+      assert_equal orig, res, 'HEAD works'
+
+      res = req('GET', "/tmp/#{'0' * 40}.patch")
+      assert_equal 404, res[0].to_i
+    end
+  end
+end

data/test/test_git_raw_tree_html.rb

@@ -0,0 +1,34 @@
+# -*- encoding: binary -*-
+# Copyright (C) 2017-2018 all contributors <repobrowse-public@80x24.org>
+# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
+# frozen_string_literal: true
+require_relative 'helper'
+require 'repobrowse/git_raw_tree_html'
+
+class TestGitRawTreeHTML < Test::Unit::TestCase
+  def test_foo
+    git_tmp_repo do |tmp_dir, git_dir|
+      g = Repobrowse::Git.new(git_dir)
+      rgd = g.rugged
+      re = %r{<li><a\nhref="[^"]+">([^<]+)</a></li>}
+
+      tree = rgd.rev_parse('HEAD:')
+      foo = Repobrowse::GitRawTreeHTML.new(tree, 'HEAD', nil)
+      s = +''
+      foo.each { |buf| s << buf }
+      cmd = %W(git --git-dir=#{git_dir} ls-tree -z --name-only HEAD:)
+      dir = IO.popen(cmd, 'rb') { |rd| rd.readlines("\0", chomp: true) }
+      assert_equal dir, s.scan(re).flatten!
+      foo.close
+
+      tree = rgd.rev_parse('HEAD:dir')
+      foo = Repobrowse::GitRawTreeHTML.new(tree, 'HEAD', 'dir')
+      s = +''
+      foo.each { |buf| s << buf }
+      cmd = %W(git --git-dir=#{git_dir} ls-tree -z --name-only HEAD:dir)
+      dir = IO.popen(cmd, 'rb') { |rd| rd.readlines("\0", chomp: true) }
+      assert_equal [ '../', dir ].flatten!, s.scan(re).flatten!
+      foo.close
+    end
+  end
+end

data/test/test_git_show.rb

@@ -0,0 +1,17 @@
+# Copyright (C) 2017-2018 all contributors <repobrowse-public@80x24.org>
+# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
+# frozen_string_literal: true
+require_relative 'helper'
+
+class TestGitShow < Test::Unit::TestCase
+  def test_git_show
+    git_tmp_repo do |tmp_dir, git_dir|
+      g = Repobrowse::Git.new(git_dir)
+      cmt = g.rugged.rev_parse_oid('HEAD')
+      assert_match %r{\A[a-f0-9]{40}\z}, cmt
+      status, _, body = req('GET', "/tmp/#{cmt}")
+      assert_equal 200, status.to_i
+      tidy_check(body)
+    end
+  end
+end

data/test/test_html.rb

@@ -0,0 +1,23 @@
+# -*- encoding: binary -*-
+# Copyright (C) 2017-2018 all contributors <repobrowse-public@80x24.org>
+# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
+# frozen_string_literal: false
+require_relative 'helper'
+require 'repobrowse/html'
+
+class TestHtml < Test::Unit::TestCase
+  def test_attr
+    html = Repobrowse::HTML.new
+    ary = [ 'Hello/World.pm', 'Zcat', 'hello world.c', 'Eléanor', '$at',
+      'hello_world'
+    ]
+    ary.each do |s|
+      attr = html.to_anchor(-s)
+      assert_not_same s, attr
+      assert_match %r{\A[a-zA-Z][\w:\.]+\z}, attr
+      assert_equal %Q("#{attr}"), attr.encode(xml: :attr),
+                  'no need to encode again'
+      assert_equal s, html.from_anchor(-attr)
+    end
+  end
+end

metadata

@@ -0,0 +1,139 @@
+--- !ruby/object:Gem::Specification
+name: repobrowse
+version: !ruby/object:Gem::Version
+  version: 0.0.0
+platform: ruby
+authors:
+- repobrowse hackers
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2018-07-15 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: test-unit
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '3.0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '3.0'
+- !ruby/object:Gem::Dependency
+  name: roda
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '3.3'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '3.3'
+- !ruby/object:Gem::Dependency
+  name: rugged
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '0.24'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '0.24'
+description: |-
+  A repository browser with only basic HTML and text; free of
+  images and JavaScript.  It is intended as a companion to
+  public-inbox[1] but may be used on its own.  It only supports
+  git for now, but support for other Free Software version control
+  systems may happen.
+email: repobrowse-public@80x24.org
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- ".gitattributes"
+- ".gitignore"
+- COPYING
+- GNUmakefile
+- MANIFEST
+- README
+- lib/repobrowse.rb
+- lib/repobrowse/app.rb
+- lib/repobrowse/config.rb
+- lib/repobrowse/error.rb
+- lib/repobrowse/escape.rb
+- lib/repobrowse/git.rb
+- lib/repobrowse/git_atom.rb
+- lib/repobrowse/git_commit_html.rb
+- lib/repobrowse/git_disambiguate.rb
+- lib/repobrowse/git_http_backend.rb
+- lib/repobrowse/git_log.rb
+- lib/repobrowse/git_patch.rb
+- lib/repobrowse/git_raw.rb
+- lib/repobrowse/git_raw_tree_html.rb
+- lib/repobrowse/git_show.rb
+- lib/repobrowse/git_src.rb
+- lib/repobrowse/git_src_blob_html.rb
+- lib/repobrowse/git_src_tree_html.rb
+- lib/repobrowse/html.rb
+- lib/repobrowse/limit_rd.rb
+- lib/repobrowse/pipe_body.rb
+- lib/repobrowse/repo.rb
+- lib/repobrowse/static.rb
+- repobrowse.gemspec
+- test/covshow.rb
+- test/git.fast-import-data
+- test/helper.rb
+- test/test_config.rb
+- test/test_git.rb
+- test/test_git_atom.rb
+- test/test_git_clone.rb
+- test/test_git_patch.rb
+- test/test_git_raw_tree_html.rb
+- test/test_git_show.rb
+- test/test_html.rb
+homepage: https://80x24.org/repobrowse/
+licenses:
+- AGPL-3.0+
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '2.3'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.7.7
+signing_key: 
+specification_version: 4
+summary: repobrowse - old-fashioned repository browser
+test_files:
+- test/test_html.rb
+- test/test_git_patch.rb
+- test/test_git_show.rb
+- test/test_git_clone.rb
+- test/test_config.rb
+- test/test_git_raw_tree_html.rb
+- test/test_git.rb
+- test/test_git_atom.rb