Mercurial > hg > nginx-tests

comparison _common.pm @ 7:9eb509695651

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: drop our own CRLF constant, use Socket's one instead.
author Maxim Dounin <mdounin@mdounin.ru>
date Mon, 08 Sep 2008 06:08:38 +0400
parents 8813a78ab8b5
children a58a62e9d695
comparison
equal deleted inserted replaced
6:8813a78ab8b5 7:9eb509695651
10 use strict; 10 use strict;
11 11
12 use base qw/ Exporter /; 12 use base qw/ Exporter /;
13 13
14 our @EXPORT = qw/ start_nginx smtp_connect smtp_send smtp_read smtp_check 14 our @EXPORT = qw/ start_nginx smtp_connect smtp_send smtp_read smtp_check
15 smtp_ok log_in log_out CRLF http /; 15 smtp_ok log_in log_out http /;
16 16
17 ############################################################################### 17 ###############################################################################
18 18
19 use Test::More; 19 use Test::More;
20 use File::Temp qw/ tempdir /; 20 use File::Temp qw/ tempdir /;
21 use IO::Socket; 21 use IO::Socket;
22 22 use Socket qw/ CRLF /;
23 use constant CRLF => "\x0D\x0A";
24 23
25 our $testdir; 24 our $testdir;
26 our $s; 25 our $s;
27 26
28 ############################################################################### 27 ###############################################################################