Mercurial > hg > nginx-tests
diff debug_connection.t @ 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 | 847ea345becb |
children | 089c4174e269 |
line wrap: on
line diff
--- a/debug_connection.t Mon Sep 22 13:29:20 2014 +0400 +++ b/debug_connection.t Mon Sep 22 13:30:04 2014 +0400 @@ -56,27 +56,14 @@ ############################################################################### -my $d = $t->testdir(); - http_get('/'); -is(read_file("$d/debug1.log"), '', 'no debug_connection file 1'); -is(read_file("$d/debug2.log"), '', 'no debug_connection file 1'); +is($t->read_file('debug1.log'), '', 'no debug_connection file 1'); +is($t->read_file('debug2.log'), '', 'no debug_connection file 1'); http_get('/debug'); -like(read_file("$d/debug1.log"), qr/\[debug\]/, 'debug_connection file 1'); -like(read_file("$d/debug2.log"), qr/\[debug\]/, 'debug_connection file 2'); -is(read_file("$d/debug1.log"), read_file("$d/debug2.log"), +like($t->read_file('debug1.log'), qr/\[debug\]/, 'debug_connection file 1'); +like($t->read_file('debug2.log'), qr/\[debug\]/, 'debug_connection file 2'); +is($t->read_file('debug1.log'), $t->read_file('debug2.log'), 'debug_connection file1 file2 match'); ############################################################################### - -sub read_file { - my ($file) = shift; - open my $fh, '<', $file or return "$!"; - local $/; - my $content = <$fh>; - close $fh; - return $content; -} - -###############################################################################