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)
|
2007-12-21 00:03:14 -05:00
|
|
|
code.force_encoding("ascii-8bit")
|
2007-08-17 23:24:32 -04:00
|
|
|
code = code.sub(/\A(?:\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-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
|
|
|
|
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"`
|
|
|
|
}
|
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
|