1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
require 'tempfile'
assert('no files') do
o = `bin/mruby-strip 2>&1`
assert_equal 1, $?.exitstatus
assert_equal "no files to strip", o.split("\n")[0]
end
assert('file not found') do
o = `bin/mruby-strip not_found.mrb 2>&1`
assert_equal 1, $?.exitstatus
assert_equal "can't open file for reading not_found.mrb\n", o
end
assert('not irep file') do
t = Tempfile.new('script.rb')
t.write 'p test\n'
t.flush
o = `bin/mruby-strip #{t.path} 2>&1`
assert_equal 1, $?.exitstatus
assert_equal "can't read irep file #{t.path}\n", o
end
assert('success') do
script_file, compiled1, compiled2 =
Tempfile.new('script.rb'), Tempfile.new('c1.mrb'), Tempfile.new('c2.mrb')
script_file.write "p 'test'\n"
script_file.flush
`bin/mrbc -g -o #{compiled1.path} #{script_file.path}`
`bin/mrbc -g -o #{compiled2.path} #{script_file.path}`
o = `bin/mruby-strip #{compiled1.path}`
assert_equal 0, $?.exitstatus
assert_equal "", o
assert_equal `bin/mruby #{script_file.path}`, `bin/mruby -b #{compiled1.path}`
o = `bin/mruby-strip #{compiled1.path} #{compiled2.path}`
assert_equal 0, $?.exitstatus
assert_equal "", o
end
assert('check debug section') do
script_file, with_debug, without_debug =
Tempfile.new('script.rb'), Tempfile.new('c1.mrb'), Tempfile.new('c2.mrb')
script_file.write "p 'test'\n"
script_file.flush
`bin/mrbc -o #{without_debug.path} #{script_file.path}`
`bin/mrbc -g -o #{with_debug.path} #{script_file.path}`
assert_true with_debug.size >= without_debug.size
`bin/mruby-strip #{with_debug.path}`
assert_equal without_debug.size, with_debug.size
end
assert('check lv section') do
script_file, with_lv, without_lv =
Tempfile.new('script.rb'), Tempfile.new('c1.mrb'), Tempfile.new('c2.mrb')
script_file.write <<EOS
a, b = 0, 1
a += b
p Kernel.local_variables
EOS
script_file.flush
`bin/mrbc -o #{with_lv.path} #{script_file.path}`
`bin/mrbc -o #{without_lv.path} #{script_file.path}`
`bin/mruby-strip -l #{without_lv.path}`
assert_true without_lv.size < with_lv.size
assert_equal '[:a, :b]', `bin/mruby -b #{with_lv.path}`.chomp
assert_equal '[]', `bin/mruby -b #{without_lv.path}`.chomp
end
|
