2003-09-04 12:18:59 -04:00
|
|
|
require 'test/unit'
|
2007-09-28 12:51:41 -04:00
|
|
|
require 'tmpdir'
|
2008-02-18 03:09:05 -05:00
|
|
|
require_relative 'envutil'
|
2003-09-04 12:18:59 -04:00
|
|
|
|
|
|
|
class TestSystem < Test::Unit::TestCase
|
2003-09-05 11:15:43 -04:00
|
|
|
def valid_syntax?(code, fname)
|
2009-06-17 01:37:23 -04:00
|
|
|
code = code.dup.force_encoding("ascii-8bit")
|
2009-06-17 02:22:58 -04:00
|
|
|
code.sub!(/\A(?:\xef\xbb\xbf)?(\s*\#.*$)*(\n)?/n) {
|
2009-02-01 22:39:01 -05:00
|
|
|
"#$&#{"\n" if $1 && !$2}BEGIN{throw tag, :ok}\n"
|
2007-08-17 23:24:32 -04:00
|
|
|
}
|
2009-06-17 01:37:23 -04:00
|
|
|
code.force_encoding("us-ascii")
|
2009-02-01 22:39:01 -05:00
|
|
|
catch {|tag| eval(code, binding, fname, 0)}
|
2003-09-05 11:15:43 -04:00
|
|
|
end
|
|
|
|
|
2003-09-04 12:18:59 -04:00
|
|
|
def test_system
|
2003-10-04 22:56:42 -04:00
|
|
|
ruby = EnvUtil.rubybin
|
2003-09-05 11:15:43 -04:00
|
|
|
assert_equal("foobar\n", `echo foobar`)
|
|
|
|
assert_equal('foobar', `#{ruby} -e 'print "foobar"'`)
|
|
|
|
|
2007-09-28 14:22:23 -04:00
|
|
|
Dir.mktmpdir("ruby_script_tmp") {|tmpdir|
|
|
|
|
tmpfilename = "#{tmpdir}/ruby_script_tmp.#{$$}"
|
2007-09-28 12:51:41 -04:00
|
|
|
|
2007-09-28 14:22:23 -04:00
|
|
|
tmp = open(tmpfilename, "w")
|
|
|
|
tmp.print "print $zzz\n";
|
|
|
|
tmp.close
|
2003-09-05 11:15:43 -04:00
|
|
|
|
2007-09-28 14:22:23 -04:00
|
|
|
assert_equal('true', `#{ruby} -s #{tmpfilename} -zzz`)
|
|
|
|
assert_equal('555', `#{ruby} -s #{tmpfilename} -zzz=555`)
|
2003-09-05 11:15:43 -04:00
|
|
|
|
2007-09-28 14:22:23 -04:00
|
|
|
tmp = open(tmpfilename, "w")
|
|
|
|
tmp.print "#! /usr/local/bin/ruby -s\n";
|
|
|
|
tmp.print "print $zzz\n";
|
|
|
|
tmp.close
|
2003-09-05 11:15:43 -04:00
|
|
|
|
2007-09-28 14:22:23 -04:00
|
|
|
assert_equal('678', `#{ruby} #{tmpfilename} -zzz=678`)
|
2003-09-05 11:15:43 -04:00
|
|
|
|
2007-09-28 14:22:23 -04:00
|
|
|
tmp = open(tmpfilename, "w")
|
|
|
|
tmp.print "this is a leading junk\n";
|
|
|
|
tmp.print "#! /usr/local/bin/ruby -s\n";
|
|
|
|
tmp.print "print $zzz\n";
|
|
|
|
tmp.print "__END__\n";
|
|
|
|
tmp.print "this is a trailing junk\n";
|
|
|
|
tmp.close
|
2003-09-05 11:15:43 -04:00
|
|
|
|
2007-09-28 14:22:23 -04:00
|
|
|
assert_equal('', `#{ruby} -x #{tmpfilename}`)
|
|
|
|
assert_equal('555', `#{ruby} -x #{tmpfilename} -zzz=555`)
|
2003-09-05 11:15:43 -04:00
|
|
|
|
2009-08-05 06:19:18 -04:00
|
|
|
tmp = open(tmpfilename, "w")
|
|
|
|
tmp.print "#! /non/exist\\interpreter?/./to|be:ignored\n";
|
|
|
|
tmp.print "this is a leading junk\n";
|
|
|
|
tmp.print "#! /usr/local/bin/ruby -s\n";
|
|
|
|
tmp.print "print $zzz\n";
|
|
|
|
tmp.print "__END__\n";
|
|
|
|
tmp.print "this is a trailing junk\n";
|
|
|
|
tmp.close
|
|
|
|
|
|
|
|
assert_equal('', `#{ruby} #{tmpfilename}`)
|
|
|
|
assert_equal('555', `#{ruby} #{tmpfilename} -zzz=555`)
|
|
|
|
|
2007-09-28 14:22:23 -04:00
|
|
|
tmp = open(tmpfilename, "w")
|
|
|
|
for i in 1..5
|
|
|
|
tmp.print i, "\n"
|
|
|
|
end
|
|
|
|
tmp.close
|
2003-09-05 11:15:43 -04:00
|
|
|
|
2007-09-28 14:22:23 -04:00
|
|
|
`#{ruby} -i.bak -pe '$_.sub!(/^[0-9]+$/){$&.to_i * 5}' #{tmpfilename}`
|
|
|
|
tmp = open(tmpfilename, "r")
|
|
|
|
while tmp.gets
|
|
|
|
assert_equal(0, $_.to_i % 5)
|
|
|
|
end
|
|
|
|
tmp.close
|
2003-09-05 11:15:43 -04:00
|
|
|
|
2007-09-28 14:22:23 -04:00
|
|
|
File.unlink tmpfilename or `/bin/rm -f "#{tmpfilename}"`
|
|
|
|
File.unlink "#{tmpfilename}.bak" or `/bin/rm -f "#{tmpfilename}.bak"`
|
2009-06-29 05:56:03 -04:00
|
|
|
|
|
|
|
if /mswin|mingw/ =~ RUBY_PLATFORM
|
|
|
|
testname = '[ruby-dev:38588]'
|
|
|
|
batch = "batch_tmp.#{$$}"
|
|
|
|
tmpfilename = "#{tmpdir}/#{batch}.bat"
|
|
|
|
open(tmpfilename, "wb") {|f| f.print "\r\n"}
|
|
|
|
assert(system(tmpfilename), testname)
|
|
|
|
assert(system("#{tmpdir}/#{batch}"), testname)
|
|
|
|
assert(system(tmpfilename, "1"), testname)
|
|
|
|
assert(system("#{tmpdir}/#{batch}", "1"), testname)
|
|
|
|
begin
|
|
|
|
path = ENV["PATH"]
|
|
|
|
ENV["PATH"] = "#{tmpdir.tr(File::SEPARATOR, File::ALT_SEPARATOR)}#{File::PATH_SEPARATOR + path if path}"
|
|
|
|
assert(system("#{batch}.bat"), testname)
|
|
|
|
assert(system(batch), testname)
|
|
|
|
assert(system("#{batch}.bat", "1"), testname)
|
|
|
|
assert(system(batch, "1"), testname)
|
|
|
|
ensure
|
|
|
|
ENV["PATH"] = path
|
|
|
|
end
|
|
|
|
File.unlink tmpfilename
|
|
|
|
end
|
2007-09-28 14:22:23 -04:00
|
|
|
}
|
2003-12-23 05:43:04 -05:00
|
|
|
end
|
2003-09-05 11:15:43 -04:00
|
|
|
|
2003-12-23 05:43:04 -05:00
|
|
|
def test_syntax
|
2003-12-23 02:13:59 -05:00
|
|
|
assert_nothing_raised(Exception) do
|
2003-12-23 05:43:04 -05:00
|
|
|
for script in Dir[File.expand_path("../../../{lib,sample,ext}/**/*.rb", __FILE__)]
|
2003-09-05 11:15:43 -04:00
|
|
|
valid_syntax? IO::read(script), script
|
2003-09-04 12:18:59 -04:00
|
|
|
end
|
|
|
|
end
|
2003-09-05 11:15:43 -04:00
|
|
|
end
|
2004-12-07 21:46:39 -05:00
|
|
|
|
2007-11-18 02:18:56 -05:00
|
|
|
def test_empty_evstr
|
|
|
|
assert_equal("", eval('"#{}"', nil, __FILE__, __LINE__), "[ruby-dev:25113]")
|
2004-12-07 21:46:39 -05:00
|
|
|
end
|
2003-09-04 12:18:59 -04:00
|
|
|
end
|