Mercurial > hg > nginx-tests
comparison lib/Test/Nginx.pm @ 467:43e05ac6c23c
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: $!"; |