Mercurial > hg > nginx-tests

comparison lib/Test/Nginx.pm @ 467:43e05ac6c23c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: the read_file function added in Test::Nginx.
author Sergey Kandaurov <pluknet@nginx.com>
date Mon, 22 Sep 2014 13:30:04 +0400
parents 0342957cca37
children 084f8c8cb648
comparison
equal deleted inserted replaced
466:a64b4057189c 467:43e05ac6c23c
311 } 311 }
312 312
313 return $self; 313 return $self;
314 } 314 }
315 315
316 sub read_file($) {
317 my ($self, $name) = @_;
318 local $/;
319
320 open F, '<', $self->{_testdir} . '/' . $name
321 or die "Can't open $name: $!";
322 my $content = <F>;
323 close F;
324
325 return $content;
326 }
327
316 sub write_file($$) { 328 sub write_file($$) {
317 my ($self, $name, $content) = @_; 329 my ($self, $name, $content) = @_;
318 330
319 open F, '>' . $self->{_testdir} . '/' . $name 331 open F, '>' . $self->{_testdir} . '/' . $name
320 or die "Can't create $name: $!"; 332 or die "Can't create $name: $!";