Changeset 1648
- Timestamp:
- 09/02/06 06:55:37
- trunk/plagger (modified) (previous)
- trunk/plagger/t/TestPlagger.pm (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/plagger/t/TestPlagger.pm
r1647 r1648 258 258 } 259 259 260 =item file_contains($filename, $regexp) 261 262 Test if the file (specified by filename) matches the passed regexp. 263 264 =cut 265 260 266 sub file_contains() { 261 267 my($file, $pattern) = @_; … … 263 269 like slurp_file($file), $pattern; 264 270 } 271 272 =item file_doesnt_contains($filename, $regexp) 273 274 Test the file (specified by filename) doesnt matches the passed regexp. 275 If the file doesn't exist, this test will fail. 276 277 =cut 265 278 266 279 sub file_doesnt_contain() {
