rant 0.3.4 → 0.3.6

data/rantmethods.rb

@@ -28,7 +28,7 @@ task :gem_attrs do
 end
 
 file "bench-rant" do |t|
-    c = 500
+    c = 2000
     if var["TC"]
 	c = Integer(var["TC"])
     end
@@ -53,7 +53,7 @@ file "bench-rant" do |t|
 end
 
 file "bench-depsearch" do |t|
-    c = 500
+    c = 2000
     if var["TC"]
 	c = Integer var["TC"]
     end

data/test/Rantfile

@@ -1,4 +1,8 @@
 
+gen Action do
+    puts "running action" if var[:act_verbose]
+end
+
 task :do_nothing
 
 file "auto.rf" do |t|
@@ -11,8 +15,38 @@ file "auto.rf" do |t|
     }
 end
 
+file "version.t" do |t|
+    open(t.name, "w") { |f| f.puts "1.0" }
+end
+
+gen Action do
+    rac.build "version.t"
+end
+
 source "auto.rf"
 
 task :clean do
-    sys.rm_f %w(auto.t auto.rf)
+    sys.rm_f %w(auto.t auto.rf version.t)
 end
+
+gen Directory, "tmp.t"
+task "tmp.t/Rantfile" => "tmp.t" do |t|
+    open(t.name, "w") { |f|
+	f << <<-EOF
+	file "test.t" do |t| sys.touch t.name end
+	EOF
+    }
+end
+
+task :subdir_tmp do
+    subdirs %w(tmp.t)
+end
+
+task :build_test_t do |t|
+    rac.build "tmp.t/test.t"
+    # just ensure we're NOT in the tmp.t directory
+    #STDERR.puts Dir.pwd
+    test(?d, "tmp.t") or t.fail
+end
+
+# vim: ft=ruby

data/test/import/directedrule/Rantfile

@@ -0,0 +1,27 @@
+
+import %w(directedrule autoclean)
+
+task :mk_src => %w(src.t/1.b src.t/2.b src.t/3.b)
+gen Directory, "src.t"
+%w(src.t/1.b src.t/2.b src.t/3.b).each { |f|
+    file f => "src.t" do |t| sys.touch t.name end
+}
+
+file "foo.t" => %w(build.t/1.a build.t/2.a) do |t|
+    t.fail unless test(?f, "build.t/1.a") && test(?f, "build.t/2.a")
+    sys.touch t.name
+end
+
+gen Directory, "build.t"
+
+gen Action do
+    rac.build "build.t"
+end
+
+ro_tt = gen DirectedRule, "build.t" => ["src.t"], :a => :b do |t|
+    sys.touch t.name
+end
+
+gen AutoClean
+
+# vim:ft=ruby

data/test/import/directedrule/test_directedrule.rb

@@ -0,0 +1,31 @@
+
+require 'test/unit'
+require 'tutil'
+
+$testImportDrDir ||= File.expand_path(File.dirname(__FILE__))
+
+class TestDirectedRule < Test::Unit::TestCase
+    def setup
+	# Ensure we run in test directory.
+	Dir.chdir($testImportDrDir) unless Dir.pwd == $testImportDrDir
+    end
+    def teardown
+	assert_rant("autoclean")
+	assert_equal(0, Dir["**/*.t"].size)
+    end
+    def rant(*args)
+	Rant::RantApp.new(*args).run
+    end
+    def test_cmd_target
+	assert_rant
+	assert_rant("build.t/3.a")
+	assert(test(?d, "build.t"))
+	assert(test(?f, "build.t/3.a"))
+	assert(!test(?e, "build.t/1.a"))
+    end
+    def test_dependencies
+	assert_rant
+	assert_rant("foo.t")
+	assert(test(?f, "foo.t"))
+    end
+end

data/test/import/truth/Rantfile

@@ -0,0 +1,16 @@
+
+import %w(truth)
+
+task(:hello) {
+    puts "hello"
+} % "print hello"
+
+file("rm.t") { |t|
+    sys.touch t.name
+} %
+"touch rm.t" %
+"this file is useless"
+
+drag :AutoClean, :clean
+
+# vim:ft=ruby

data/test/import/truth/test_truth.rb

@@ -0,0 +1,23 @@
+
+require 'test/unit'
+require 'tutil'
+
+$testImportTruthDir ||= File.expand_path(File.dirname(__FILE__))
+
+class TestTruth < Test::Unit::TestCase
+    def setup
+	# Ensure we run in test directory.
+	Dir.chdir($testImportTruthDir) unless Dir.pwd == $testImportTruthDir
+    end
+    def test_opt_tasks
+	out, err = assert_rant("--tasks")
+	assert_match(
+	    /print hello.*\n.*touch rm\.t.*\n.*this file is useless/, out)
+    end
+    def test_drag
+	assert_rant("rm.t")
+	assert(test(?f, "rm.t"))
+	assert_rant("clean")
+	assert(!test(?e, "rm.t"))
+    end
+end

data/test/rant-import/Rantfile

@@ -0,0 +1,15 @@
+
+gen Action do
+    sys.touch "action.t"
+end
+
+desc "Print hello."
+task :hello do |t|
+    puts t.name
+end
+
+task :private do |t|
+    puts t.name
+end
+
+# vim: ft=ruby

data/test/rant-import/test_rant-import.rb

@@ -0,0 +1,65 @@
+
+require 'test/unit'
+require 'rant/rantlib'
+require 'tutil'
+require 'fileutils'
+
+$testRantImportDir ||= File.expand_path(File.dirname(__FILE__))
+
+class TestRantImport < Test::Unit::TestCase
+    def setup
+	# Ensure we run in test directory.
+	Dir.chdir($testRantImportDir) unless Dir.pwd == $testRantImportDir
+    end
+    def teardown
+	FileUtils.rm_f Dir["ant*"]
+	FileUtils.rm_f Dir["make*"]
+	FileUtils.rm_rf Dir["*.t"]
+    end
+    def test_no_import
+	run_import("--quiet", "make.rb")
+	assert(test(?f, "make.rb"))
+	assert(!test(?f, "action.t"))
+	assert_equal(run_rant("hello"), run_ruby("make.rb", "hello"))
+	assert(test(?f, "action.t"))
+    end
+    def test_import_from_custom_lib
+	FileUtils.mkpath "mylib.t/rant/import"
+	open("mylib.t/rant/import/mygen.rb", "w") { |f|
+	    f << <<-EOF
+	    mygen = Object.new
+	    def mygen.rant_generate(rac, ch, args, &block)
+		tn = args.first || "mygen"
+		rac.task(:__caller__ => ch, tn => []) do |t|
+		    puts "Greetings from `" + t.name + "', generated by MyGen."
+		    rac.cx.sys.touch t.name
+		end
+	    end
+	    Rant::Generators::MyGen = mygen
+	    EOF
+	}
+	open("mygen.rf.t", "w") { |f|
+	    f << <<-EOF
+	    $:.unshift "mylib.t"
+	    import "mygen"
+	    desc "task created by mygen"
+	    gen MyGen
+	    EOF
+	}
+	out, err = capture_std do
+	    assert_equal(0, Rant::RantApp.new("-fmygen.rf.t").run)
+	end
+	assert_match(/Greetings.*mygen/, out)
+	assert(test(?f, "mygen"))
+	FileUtils.rm_f "mygen"
+	assert(!test(?e, "mygen"))
+	run_import("--quiet", "-fmygen.rf.t", "ant")
+	assert(test(?f, "ant"))
+	FileUtils.rm_r "mylib.t"
+	out = run_ruby("ant", "-fmygen.rf.t")
+	assert_match(/Greetings.*mygen/, out)
+	assert(test(?f, "mygen"))
+    ensure
+	FileUtils.rm_f "mygen"
+    end
+end

data/test/test_clean.rb

@@ -0,0 +1,134 @@
+
+require 'test/unit'
+require 'rant/rantlib'
+require 'tutil'
+require 'fileutils'
+
+$testDir ||= File.expand_path(File.dirname(__FILE__))
+
+class TestClean < Test::Unit::TestCase
+    def setup
+	# Ensure we run in test directory.
+	Dir.chdir($testDir) unless Dir.pwd == $testDir
+    end
+    def teardown
+    end
+    def layout_project1
+	FileUtils.mkdir "p1.t"
+	Dir.chdir "p1.t" do
+	    open("Rantfile", "w") { |f|
+		f << <<-EOF
+		import "clean"
+		task :mk_junk => "sub1.t/mk_junk" do
+		    sys.touch %w(a1.t a2.t b1.t b2.t)
+		    sys.mkdir %w(sa.t sb.t)
+		    sys.touch %w(sa.t/1 sb.t/1)
+		end
+		gen Clean
+		var[:clean].include "*a*.t"
+		subdirs "sub1.t"
+		EOF
+	    }
+	end
+	FileUtils.mkdir "p1.t/sub1.t"
+	Dir.chdir "p1.t/sub1.t" do
+	    open("Rantfile", "w") { |f|
+		f << <<-EOF
+		import "clean"
+		task :mk_junk do
+		    sys.touch %w(a1.t a2.t b1.t b2.t)
+		    sys.mkdir %w(sa.t sb.t)
+		end
+		gen Clean
+		var[:clean].include "*b*.t"
+		EOF
+	    }
+	end
+    end
+    def cleanup_project1
+	FileUtils.rm_rf "p1.t"
+    end
+    def test_project1
+	layout_project1
+	assert(test(?d, "p1.t"))
+	Dir.chdir "p1.t"
+	assert(test(?f, "Rantfile"))
+	assert(test(?d, "sub1.t"))
+	assert(test(?f, "sub1.t/Rantfile"))
+
+	capture_std do
+	    assert_equal(0, Rant::RantApp.new.run)
+	end
+	files = %w(a1.t a2.t b1.t b2.t sub1.t/a1.t
+		    sub1.t/a2.t sub1.t/b1.t sub1.t/b2.t)
+	dirs = %w(sa.t sb.t)
+	files.each { |f| assert(test(?f, f)) }
+	dirs.each { |f| assert(test(?d, f)) }
+	capture_std do
+	    assert_equal(0, Rant::RantApp.new("clean").run)
+	end
+	%w(sa.t a1.t a2.t sub1.t/b1.t sub1.t/b2.t).each { |f|
+	    assert(!test(?e, f))
+	}
+	%w(sb.t b1.t b2.t sub1.t/a1.t sub1.t/a2.t).each { |f|
+	    assert(test(?e, f))
+	}
+	Dir.chdir "sub1.t"
+	FileUtils.rm_rf %w(sa.t sb.t)
+	capture_std do
+	    assert_equal(0, Rant::RantApp.new.run)
+	end
+	%w(a1.t a2.t b1.t b2.t).each { |f| assert(test(?f, f)) }
+	%w(sa.t sb.t).each { |f| assert(test(?d, f)) }
+	capture_std do
+	    assert_equal(0, Rant::RantApp.new("clean").run)
+	end
+	%w(b1.t b2.t sb.t).each { |f| assert(!test(?e, f)) }
+	%w(a1.t a2.t sa.t).each { |f| assert(test(?e, f)) }
+
+    ensure
+	Dir.chdir $testDir
+	cleanup_project1
+    end
+    def layout_project2
+	FileUtils.mkdir "p2.t"
+	Dir.chdir "p2.t"
+	open("Rantfile", "w") { |f|
+	    f << <<-EOF
+	    import "autoclean"
+	    task :mk_junk => %w(a.t b.t/c.t/d.t) do
+		sys.touch "mk_junk.t"
+	    end
+	    gen AutoClean
+	    file "a.t" do |t|
+		sys.touch t.name
+	    end
+	    gen Directory, "b.t/c.t"
+	    file "b.t/c.t/d.t" => "b.t/c.t" do |t|
+		sys.touch t.name
+	    end
+	    var[:autoclean].include "mk_junk.t"
+	    var[:autoclean].include "nix.t"
+	    EOF
+	}
+    end
+    def cleanup_project2
+	FileUtils.rm_rf "p2.t"
+    end
+    def test_project2_autoclean
+	layout_project2
+	capture_std do
+	    assert_equal(0, Rant::RantApp.new.run)
+	end
+	%w(a.t b.t/c.t/d.t mk_junk.t).each { |f| assert(test(?e, f)) }
+	capture_std do
+	    assert_equal(0, Rant::RantApp.new("autoclean").run)
+	end
+	%w(a.t b.t/c.t/d.t mk_junk.t).each { |f| assert(!test(?e, f)) }
+	capture_std do
+	    assert_equal(1, Rant::RantApp.new("clean").run)
+	end
+    ensure
+	cleanup_project2
+    end
+end

data/test/test_examples.rb

@@ -0,0 +1,47 @@
+
+require 'test/unit'
+require 'rant/rantlib'
+require 'tutil'
+
+$examplesDir ||= File.expand_path(
+    File.join(File.dirname(File.dirname(__FILE__)), "doc", "examples"))
+
+$cc_is_gcc ||= Rant::Env.find_bin("cc") && Rant::Env.find_bin("gcc")
+class TestExamples < Test::Unit::TestCase
+    def setup
+	# Ensure we run in test directory.
+	Dir.chdir($examplesDir) unless Dir.pwd == $examplesDir
+    end
+    def teardown
+    end
+    def test_myprog
+	Dir.chdir "myprog"
+	assert_match(/Build myprog.*\n.*Remove compiler products/,
+	    run_rant("--tasks"))
+	assert(!test(?f, "myprog"))
+	if $cc_is_gcc
+	    # Warning: we're assuming cc is actually gcc
+	    run_rant
+	    assert(test(?f, "myprog"))
+	else
+	    $stderr.puts "*** cc isn't gcc, less example testing ***"
+	    # less myprog testing
+	end
+	run_rant("clean")
+	assert(!test(?e, "myprog"))
+	assert(!test(?e, "src/myprog"))
+	assert(!test(?e, "src/lib.o"))
+	assert(!test(?e, "src/main.o"))
+    end
+    def test_directedrule
+	Dir.chdir "directedrule"
+	assert_match(/Build foo/, run_rant("-T"))
+	assert(!test(?f, "foo"))
+	if $cc_is_gcc
+	    run_rant
+	    assert(test(?f, "foo"))
+	end
+	run_rant("clean")
+	Dir["**/*.o"].each { |f| assert(!test(?e, f)) }
+    end
+end

data/test/test_filelist.rb

@@ -221,4 +221,62 @@ class TestFileList < Test::Unit::TestCase
     ensure
 	FileUtils.rm_rf "fl.t"
     end
+    def test_return_from_array_method
+	touch_temp "a.t" do
+	    l = fl("a.t", "a.t")
+	    ul = l.uniq
+	    assert(Array === ul)
+	    assert_equal(1, ul.size)
+	end
+    end
+    def test_return_self_from_array_method
+	touch_temp "a.t", "b.t" do
+	    l = fl("*.t")
+	    sl = l.sort!
+	    assert_same(l, sl)
+	    assert_equal("a.t", l.first)
+	    assert_equal("b.t", l[1])
+	end
+    end
+    def test_sys_with_cd
+	FileUtils.mkdir "sub.t"
+	open("sys_cd.rf.t", "w") { |f|
+	    f << <<-EOF
+	    file "sub.t/a.t" => "sub.t/b.t" do |t|
+		sys.touch t.name
+	    end
+	    file "sub.t/b.t" do |t|
+		sys.touch t.name
+	    end
+	    task :clean do
+		sys.cd "sub.t"
+		sys.rm_f sys["*.t"]
+	    end
+	    EOF
+	}
+	capture_std do
+	    Rant::RantApp.new("-fsys_cd.rf.t", "sub.t/a.t").run
+	end
+	assert(test(?f, "sub.t/a.t"))
+	assert(test(?f, "sub.t/b.t"))
+	capture_std do
+	    Rant::RantApp.new("-fsys_cd.rf.t", "clean").run
+	end
+	assert(!test(?e, "sub.t/a.t"))
+	assert(!test(?e, "sub.t/b.t"))
+    ensure
+	FileUtils.rm_rf %w(sub.t sys_cd.rf.t)
+    end
+    def test_sys_select
+	cx = Rant::RantApp.new.cx
+	touch_temp %w(a.t b.t) do
+	    l1 = cx.sys["*.t"]
+	    l2 = l1.select { |f| f =~ /^b/ }
+	    assert_equal(2, l1.size)
+	    assert(l1.include("a.t"))
+	    assert(l1.include("b.t"))
+	    assert_equal(1, l2.size)
+	    assert(l1.include("b.t"))
+	end
+    end
 end