2003-09-04 16:18:59 +00:00
|
|
|
require 'test/unit'
|
2007-09-28 16:51:41 +00:00
|
|
|
require 'tmpdir'
|
2008-02-18 08:09:05 +00:00
|
|
|
require_relative 'envutil'
|
2003-09-04 16:18:59 +00:00
|
|
|
|
|
|
|
class TestSystem < Test::Unit::TestCase
|
2003-09-05 15:15:43 +00:00
|
|
|
def valid_syntax?(code, fname)
|
2007-12-21 05:03:14 +00:00
|
|
|
code.force_encoding("ascii-8bit")
|
2007-08-18 03:24:32 +00:00
|
|
|
code = code.sub(/\A(?:\s*\#.*$)*(\n)?/n) {
|
|
|
|
"#$&#{"\n" if $1 && !$2}BEGIN{return true}\n"
|
|
|
|
}
|
|
|
|
eval(code, nil, fname, 0)
|
2003-09-05 15:15:43 +00:00
|
|
|
end
|
|
|
|
|
2003-09-04 16:18:59 +00:00
|
|
|
def test_system
|
2003-10-05 02:56:42 +00:00
|
|
|
ruby = EnvUtil.rubybin
|
2003-09-05 15:15:43 +00:00
|
|
|
assert_equal("foobar\n", `echo foobar`)
|
|
|
|
assert_equal('foobar', `#{ruby} -e 'print "foobar"'`)
|
|
|
|
|
2007-09-28 18:22:23 +00:00
|
|
|
Dir.mktmpdir("ruby_script_tmp") {|tmpdir|
|
|
|
|
tmpfilename = "#{tmpdir}/ruby_script_tmp.#{$$}"
|
2007-09-28 16:51:41 +00:00
|
|
|
|
2007-09-28 18:22:23 +00:00
|
|
|
tmp = open(tmpfilename, "w")
|
|
|
|
tmp.print "print $zzz\n";
|
|
|
|
tmp.close
|
2003-09-05 15:15:43 +00:00
|
|
|
|
2007-09-28 18:22:23 +00:00
|
|
|
assert_equal('true', `#{ruby} -s #{tmpfilename} -zzz`)
|
|
|
|
assert_equal('555', `#{ruby} -s #{tmpfilename} -zzz=555`)
|
2003-09-05 15:15:43 +00:00
|
|
|
|
2007-09-28 18:22:23 +00:00
|
|
|
tmp = open(tmpfilename, "w")
|
|
|
|
tmp.print "#! /usr/local/bin/ruby -s\n";
|
|
|
|
tmp.print "print $zzz\n";
|
|
|
|
tmp.close
|
2003-09-05 15:15:43 +00:00
|
|
|
|
2007-09-28 18:22:23 +00:00
|
|
|
assert_equal('678', `#{ruby} #{tmpfilename} -zzz=678`)
|
2003-09-05 15:15:43 +00:00
|
|
|
|
2007-09-28 18:22:23 +00: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 15:15:43 +00:00
|
|
|
|
2007-09-28 18:22:23 +00:00
|
|
|
assert_equal('', `#{ruby} -x #{tmpfilename}`)
|
|
|
|
assert_equal('555', `#{ruby} -x #{tmpfilename} -zzz=555`)
|
2003-09-05 15:15:43 +00:00
|
|
|
|
2007-09-28 18:22:23 +00:00
|
|
|
tmp = open(tmpfilename, "w")
|
|
|
|
for i in 1..5
|
|
|
|
tmp.print i, "\n"
|
|
|
|
end
|
|
|
|
tmp.close
|
2003-09-05 15:15:43 +00:00
|
|
|
|
2007-09-28 18:22:23 +00: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 15:15:43 +00:00
|
|
|
|
2007-09-28 18:22:23 +00:00
|
|
|
File.unlink tmpfilename or `/bin/rm -f "#{tmpfilename}"`
|
|
|
|
File.unlink "#{tmpfilename}.bak" or `/bin/rm -f "#{tmpfilename}.bak"`
|
|
|
|
}
|
2003-12-23 10:43:04 +00:00
|
|
|
end
|
2003-09-05 15:15:43 +00:00
|
|
|
|
2003-12-23 10:43:04 +00:00
|
|
|
def test_syntax
|
2003-12-23 07:13:59 +00:00
|
|
|
assert_nothing_raised(Exception) do
|
2003-12-23 10:43:04 +00:00
|
|
|
for script in Dir[File.expand_path("../../../{lib,sample,ext}/**/*.rb", __FILE__)]
|
2003-09-05 15:15:43 +00:00
|
|
|
valid_syntax? IO::read(script), script
|
2003-09-04 16:18:59 +00:00
|
|
|
end
|
|
|
|
end
|
2003-09-05 15:15:43 +00:00
|
|
|
end
|
2004-12-08 02:46:39 +00:00
|
|
|
|
2007-11-18 07:18:56 +00:00
|
|
|
def test_empty_evstr
|
|
|
|
assert_equal("", eval('"#{}"', nil, __FILE__, __LINE__), "[ruby-dev:25113]")
|
2004-12-08 02:46:39 +00:00
|
|
|
end
|
2003-09-04 16:18:59 +00:00
|
|
|
end
|