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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
|
require 'testing_env'
require 'cleaner'
require 'formula'
class CleanerTests < Test::Unit::TestCase
include FileUtils
def setup
@f = formula("cleaner_test") { url 'foo-1.0' }
@f.prefix.mkpath
end
def teardown
@f.prefix.rmtree if @f.prefix.exist?
end
def test_clean_file
@f.bin.mkpath
@f.lib.mkpath
cp "#{TEST_FOLDER}/mach/a.out", @f.bin
cp Dir["#{TEST_FOLDER}/mach/*.dylib"], @f.lib
Cleaner.new @f
assert_equal 0100555, (@f.bin/'a.out').stat.mode
assert_equal 0100444, (@f.lib/'fat.dylib').stat.mode
assert_equal 0100444, (@f.lib/'x86_64.dylib').stat.mode
assert_equal 0100444, (@f.lib/'i386.dylib').stat.mode
end
def test_prunes_prefix_if_empty
Cleaner.new @f
assert !@f.prefix.directory?
end
def test_prunes_empty_directories
subdir = @f.bin/'subdir'
subdir.mkpath
Cleaner.new @f
assert !@f.bin.directory?
assert !subdir.directory?
end
def test_skip_clean_empty_directory
@f.class.skip_clean 'bin'
@f.bin.mkpath
Cleaner.new @f
assert @f.bin.directory?
end
def test_skip_clean_directory_with_empty_subdir
@f.class.skip_clean 'bin'
subdir = @f.bin/'subdir'
subdir.mkpath
Cleaner.new @f
assert @f.bin.directory?
assert subdir.directory?
end
def test_removes_symlink_when_target_was_pruned_first
dir = @f.prefix/'b'
symlink = @f.prefix/'a'
dir.mkpath
ln_s dir.basename, symlink
Cleaner.new @f
assert !dir.exist?
assert !symlink.symlink?
assert !symlink.exist?
end
def test_removes_symlink_pointing_to_empty_directory
dir = @f.prefix/'b'
symlink = @f.prefix/'c'
dir.mkpath
ln_s dir.basename, symlink
Cleaner.new @f
assert !dir.exist?
assert !symlink.symlink?
assert !symlink.exist?
end
def test_removes_broken_symlinks
symlink = @f.prefix/'symlink'
ln_s 'target', symlink
Cleaner.new @f
assert !symlink.symlink?
end
def test_skip_clean_broken_symlink
@f.class.skip_clean 'symlink'
symlink = @f.prefix/'symlink'
ln_s 'target', symlink
Cleaner.new @f
assert symlink.symlink?
end
def test_skip_clean_symlink_pointing_to_empty_directory
@f.class.skip_clean 'c'
dir = @f.prefix/'b'
symlink = @f.prefix/'c'
dir.mkpath
ln_s dir.basename, symlink
Cleaner.new @f
assert !dir.exist?
assert symlink.symlink?
assert !symlink.exist?
end
def test_skip_clean_symlink_when_target_pruned
@f.class.skip_clean 'a'
dir = @f.prefix/'b'
symlink = @f.prefix/'a'
dir.mkpath
ln_s dir.basename, symlink
Cleaner.new @f
assert !dir.exist?
assert symlink.symlink?
assert !symlink.exist?
end
def test_removes_la_files
file = @f.lib/'foo.la'
@f.lib.mkpath
touch file
Cleaner.new @f
assert !file.exist?
end
def test_skip_clean_la
file = @f.lib/'foo.la'
@f.class.skip_clean :la
@f.lib.mkpath
touch file
Cleaner.new @f
assert file.exist?
end
def test_remove_charset_alias
file = @f.lib/'charset.alias'
@f.lib.mkpath
touch file
Cleaner.new @f
assert !file.exist?
end
def test_skip_clean_subdir
dir = @f.lib/'subdir'
@f.class.skip_clean 'lib/subdir'
dir.mkpath
Cleaner.new @f
assert dir.directory?
end
def test_skip_clean_paths_are_anchored_to_prefix
dir1 = @f.bin/'a'
dir2 = @f.lib/'bin/a'
@f.class.skip_clean 'bin/a'
dir1.mkpath
dir2.mkpath
Cleaner.new @f
assert dir1.exist?
assert !dir2.exist?
end
end
|
