gonzui 1.2

data/test/foo/Makefile.foo

@@ -0,0 +1,66 @@
+VERSION  = 0.1
+TARGET   = foo
+SOURCES  = foo.c bar.c
+HEADERS  = bar.h
+CFLAGS   = -O2
+OBJS     = ${SOURCES:.c=.o}
+
+all: $(TARGET)
+
+foo: $(OBJS)
+	$(CC) -o foo $(OBJS)
+.c.o:
+	$(CC) -c $<
+
+clean:
+	rm -f $(TARGET) $(OBJS)
+	rm -rf *.tar.gz *.tar.bz2 *.zip foo-$(VERSION)
+
+
+dist:  dist-tree dist-targz dist-tarbz2 dist-zip dist-srpm dist-postprocess
+
+dist-tree:
+	@rm -rf foo-$(VERSION)
+	@mkdir foo-$(VERSION)
+	@cp $(SOURCES) $(HEADERS) foo-$(VERSION)
+	@cp Makefile.foo foo-$(VERSION)/Makefile
+
+dist-targz: dist-tree
+	@rm -f foo-$(VERSION).tar.gz
+	@tar zcf foo-$(VERSION).tar.gz foo-$(VERSION)
+
+dist-tarbz2: dist-tree
+	@rm -f foo-$(VERSION).tar.bz2
+	@tar jcf foo-$(VERSION).tar.bz2 foo-$(VERSION)
+
+dist-zip: dist-tree
+	@rm -f foo-$(VERSION).zip
+	@zip -qr foo-$(VERSION).zip foo-$(VERSION)
+
+dist-srpm: dist-targz
+	@rm -f foo-$(VERSION)-1.src.rpm
+	@if which rpmbuild >/dev/null 2>&1; then \
+		mkdir -p SOURCES SRPMS; \
+		cp foo-$(VERSION).tar.gz SOURCES; \
+		rpmbuild --define '_topdir .' -bs foo.spec >/dev/null 2>&1; \
+		mv SRPMS/foo-$(VERSION)-1.src.rpm .; \
+		rm -rf SOURCES SRPMS; \
+	fi
+	
+dist-postprocess:
+	@rm -rf foo-$(VERSION)
+
+dist-poor: dist-tree \
+           dist-poor-targz dist-poor-tarbz2 dist-poor-zip dist-postprocess
+
+dist-poor-targz:
+	@rm -f foo-$(VERSION)p.tar.gz
+	@cd foo-$(VERSION) && tar zcf ../foo-$(VERSION)p.tar.gz .
+
+dist-poor-tarbz2:
+	@rm -f foo-$(VERSION)p.tar.bz2
+	@cd foo-$(VERSION) && tar jcf ../foo-$(VERSION)p.tar.bz2 .
+
+dist-poor-zip:
+	@rm -f foo-$(VERSION)p.zip
+	@cd foo-$(VERSION) && zip -qr ../foo-$(VERSION)p.zip .

data/test/foo/bar.c

@@ -0,0 +1,5 @@
+int
+bar (int a, int b)
+{
+	return a + b;
+}

data/test/foo/bar.h

@@ -0,0 +1,6 @@
+#ifndef BAR_H
+#define BAR_H
+
+int bar(int a, int b);
+
+#endif

data/test/foo/foo.c

@@ -0,0 +1,25 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <assert.h>
+#include "bar.h"
+
+int foo (int a, int b);
+
+/*
+ * We use tab characters for test purpose. gonzui internally
+ * converts tab characters into spaces and we need to test
+ * the effect.
+ */
+int 
+main (int argc, char **argv)
+{
+	printf("%d\n", foo(1, 2));
+	return 0;
+}
+
+int
+foo (int a, int b)
+{
+	return bar(a, b);
+}
+

data/test/foo/foo.spec

@@ -0,0 +1,33 @@
+Summary: foo is a test program
+Name: foo
+Version: 0.1
+Release: 1
+License: GPL
+Group: Applications/Text
+Source0: %{name}-%{version}.tar.gz
+BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root
+
+%description
+foo is a test program.
+
+%prep
+%setup -q
+
+%build
+
+%install
+rm -rf $RPM_BUILD_ROOT
+
+%clean
+rm -rf $RPM_BUILD_ROOT
+
+
+%files
+%defattr(-,root,root,-)
+%doc
+
+
+%changelog
+* Wed Sep  1 2004 Satoru Takabayashi <satoru@namazu.org> - 
+- Initial build.
+

data/test/test_apt.rb

@@ -0,0 +1,42 @@
+#! /usr/bin/env ruby
+require File.dirname(__FILE__) + '/test_helper.rb'
+require '_external_tools'
+require '_test-util'
+
+class AptTest < Test::Unit::TestCase
+  def _test_apt_get_temporary_directory(aptget)
+    assert(File.directory?(aptget.temporary_directory))
+    aptget.clean
+    assert_equal(false, File.directory?(aptget.temporary_directory))
+  end
+
+  def test_apt_get
+    return unless Gonzui::AptGet.available?
+    apt_type = Gonzui::AptGet.get_apt_type
+    assert((apt_type == :rpm or apt_type == :deb))
+    config = Gonzui::Config.new
+    aptget = Gonzui::AptGet.new(config, "portmap")
+
+    directory = aptget.extract
+    assert(File.directory?(directory))
+
+    _test_apt_get_temporary_directory(aptget)
+  end
+
+  def test_apt_get_nonexisting
+    return unless Gonzui::AptGet.available?
+    apt_type = Gonzui::AptGet.get_apt_type
+    assert((apt_type == :rpm or apt_type == :deb))
+    config = Gonzui::Config.new
+    aptget = Gonzui::AptGet.new(config, "qpewrguiniquegnoqwiu")
+    begin
+      aptget.extract
+      assert(false)
+    rescue Gonzui::AptGetError => e
+      assert(true)
+    end
+
+    _test_apt_get_temporary_directory(aptget)
+  end
+end if (APT_)
+

data/test/test_autopack_extn.rb

@@ -0,0 +1,7 @@
+require File.dirname(__FILE__) + '/test_helper.rb'
+
+class TestAutopackExtn < Test::Unit::TestCase
+  def test_truth
+    assert true #TODO
+  end
+end

data/test/test_bdbdbm.rb

@@ -0,0 +1,79 @@
+#! /usr/bin/env ruby
+require File.dirname(__FILE__) + '/test_helper.rb'
+require '_test-util'
+
+class BDBDBMTest < Test::Unit::TestCase
+  include TestUtil
+
+  def setup
+	@dbm = nil
+  end
+  def teardown
+    unless @dbm.nil?
+      @dbm.close rescue nil
+    end
+    @dbm = nil
+    remove_db(Gonzui::Config.new)
+  end
+
+  Words = ["foo", "bar", "baz", "quux"]
+
+  def test_api
+    config = Gonzui::Config.new
+    remove_db(config)
+    dbm = Gonzui::DBM.open(config)
+    @dbm = dbm
+    dbm.is_a?(Gonzui::BDBDBM)
+    dbm.respond_to?(:find_all_by_prefix)
+  end
+
+  def _test_each_by_prefix(db)
+    db.each_by_prefix("foo") {|k, v|
+      assert_equal("foo", k)
+      assert_equal(0, v)
+    }
+
+    db.each_by_prefix("ba") {|k ,v|
+      case k
+      when "bar"
+        assert_equal(v, 1)
+      when "baz"
+        assert_equal(v, 2)
+      when
+        assert(false)
+      end
+    }
+  end
+
+  def _test_delete_both(db)
+    assert(db.include?("foo"))
+    db.delete_both("foo", 1)
+    assert(db.include?("foo"))
+    db.delete_both("foo", 0)
+    assert(!db.include?("foo"))
+  end
+
+  def _test_get_last_key(db)
+    assert_equal("quux", db.get_last_key)
+    db.delete("quux")
+    assert_equal("baz", db.get_last_key)
+  end
+
+  def test_bdb_extentions
+    file_name = File.dirname(__FILE__) + "/test.db"
+
+    db = BDB::Btree.open(file_name, "test", BDB::CREATE, 0644,
+                         "set_store_value" => Gonzui::AutoPack::Fixnum.store,
+                         "set_fetch_value" => Gonzui::AutoPack::Fixnum.fetch)
+    db.extend(Gonzui::BDBExtension)
+    Words.each_with_index {|word, i|
+      db[word] = i
+    }
+
+    _test_each_by_prefix(db)
+    _test_delete_both(db)
+    _test_get_last_key(db)
+
+    File.unlink(file_name)
+  end if false # [BUG] Segmentation fault
+end

data/test/test_cmdapp-app.rb

@@ -0,0 +1,35 @@
+#! /usr/bin/env ruby
+require File.dirname(__FILE__) + '/test_helper.rb'
+require 'gonzui/cmdapp'
+require '_test-util'
+
+class CommandLineApplicationTest < Test::Unit::TestCase
+  class TestApplication < Gonzui::CommandLineApplication
+    def parse_options
+      option_table = []
+      return parse_options_to_hash(option_table)
+    end
+
+    def start
+      parse_options
+      return @config
+    end
+  end
+
+
+  def test_app
+    app = TestApplication.new
+    config = app.start
+    assert(config.is_a?(Gonzui::Config))
+
+    original_stdout = STDOUT.dup
+    assert(STDOUT.tty?)
+    app.be_quiet
+	begin
+      assert_equal(false, STDOUT.tty?)
+	ensure
+      STDOUT.reopen(original_stdout)
+	end
+    assert(STDOUT.tty?)
+  end
+end

data/test/test_cmdapp-search.rb

@@ -0,0 +1,99 @@
+#! /usr/bin/env ruby
+require File.dirname(__FILE__) + '/test_helper.rb'
+require 'gonzui/cmdapp'
+require '_external_tools.rb'
+require '_test-util'
+
+class CommandLineSearcherTest < Test::Unit::TestCase
+  include TestUtil
+
+  include Gonzui::Util
+
+  def search(config, pattern, options = {})
+    strio = StringIO.new
+    options['out'] = strio
+    searcher = Gonzui::CommandLineSearcher.new(config, options)
+    searcher.search(pattern)
+    begin
+      if options['context']
+        return strio.string.gsub(/^== .*\n/s, "")
+      else
+        return strio.string
+      end
+    ensure
+      searcher.finish
+    end
+  end
+
+  def grep(argument)
+    ENV['GREP_OPTIONS'] = ""
+    files = FOO_FILES.map {|basename| File.join(FOO_PACKAGE, basename) }
+	  cd = "cd"
+	  cd << " /d" if (/mswin|mingw|bccwin/ =~ RUBY_PLATFORM)
+    tmp = IO.popen("#{cd} #{@@foo} && grep #{argument} #{files.join(' ')}").read
+    return tmp.gsub(/\t/, " " * 8)
+  end
+
+  def grep_has_color_option?
+    status = system("grep --help | grep -q color")
+    return status
+  end
+
+  def test_result
+    require_command('grep')
+    config   = Gonzui::Config.new
+    make_db(config)
+    make_dist_tree
+
+    by_gonzui = search(config, "foo")
+    by_grep   = grep("-H 'foo'")
+    assert_equal(by_grep.split.join, by_gonzui.split.join)
+
+    by_gonzui = search(config, "foo", "package" => FOO_PACKAGE)
+    by_grep   = grep("-H 'foo'")
+    assert_equal(by_grep.split.join, by_gonzui.split.join)
+
+    by_gonzui = search(config, "foo", "package" => "hoge")
+    by_grep   = ""
+    assert_equal(by_grep.split.join, by_gonzui.split.join)
+
+    by_gonzui = search(config, "foo", "type" => "fundef")
+    by_grep   = grep(%Q;-H "^foo (";)
+    assert_equal(by_grep.split.join, by_gonzui.split.join)
+
+    by_gonzui = search(config, "foo", "line-number" => true)
+    by_grep   = grep("-nH 'foo'")
+    assert_equal(by_grep.split.join, by_gonzui.split.join)
+
+    by_gonzui = search(config, "foo", "no-filename" => true)
+    by_grep   = grep("-h 'foo'")
+    assert_equal(by_grep.split.join, by_gonzui.split.join)
+
+    by_gonzui = search(config, "mai", "prefix" => true)
+    by_grep   = grep("-H 'mai'")
+    assert_equal(by_grep.split.join, by_gonzui.split.join)
+
+    by_gonzui = search(config, "f.o", "regexp" => true)
+    by_grep   = grep("-H 'f.o'")
+    assert_equal(by_grep.split.join, by_gonzui.split.join)
+
+    by_gonzui = search(config, "foo", "type" => "funcall")
+    by_grep   = grep("-H ' foo(1, 2)'")
+    assert_equal(by_grep.split.join, by_gonzui.split.join)
+
+    (1..10).each {|i|
+      by_gonzui = search(config, "foo", "type" => "fundef",
+                         "context" => i)
+      by_grep   = grep(%Q;-hC#{i} "^foo (";)
+      assert_equal(by_grep.split.join, by_gonzui.split.join)
+    }
+
+    if grep_has_color_option?
+      by_gonzui = search(config, "main",
+                         "line-number" => true, "color" => true)
+      ENV["GREP_COLOR"] = ""
+      by_grep   = grep("-nH --color=always 'main'")
+      assert_equal(by_grep.split.join, by_gonzui.split.join)
+    end
+  end
+end if (GREP_ && ARC_)

data/test/test_config.rb

@@ -0,0 +1,28 @@
+#! /usr/bin/env ruby
+require File.dirname(__FILE__) + '/test_helper.rb'
+require '_test-util'
+
+class ConfigTest < Test::Unit::TestCase
+  def test_config
+    config = Gonzui::Config.new
+    assert_not_nil(config.temporary_directory)
+    assert_not_nil(config.db_directory)
+
+    config.temporary_directory = "foo"
+    assert_equal("foo", config.temporary_directory)
+    config.db_directory = "bar"
+    assert_equal("bar", config.db_directory)
+
+    config.http_port = 12345
+    file_name = "tmp.gonzuirc"
+    File.open(file_name, "w") {|f|
+      config.dump(f)
+    }
+    assert(File.exist?(file_name))
+    config.http_port = 0
+    assert_equal(0, config.http_port)
+    config.load(file_name)
+    assert_equal(12345, config.http_port)
+    File.unlink(file_name)
+  end
+end

data/test/test_content.rb

@@ -0,0 +1,15 @@
+#! /usr/bin/env ruby
+require File.dirname(__FILE__) + '/test_helper.rb'
+require '_test-util'
+
+class ContentTest < Test::Unit::TestCase
+  def test_content
+    text = "foo"
+    mtime = Time.now
+    content = Gonzui::Content.new(text, mtime)
+    assert_equal(text, content.text)
+    assert_equal(text.length, content.length)
+    assert_equal(mtime, content.mtime)
+  end
+end
+