Mercurial > hg > nginx-tests

changeset 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
files _common.pm smtp.t
diffstat 2 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/_common.pm
+++ b/_common.pm
@@ -12,15 +12,14 @@ use strict;
 use base qw/ Exporter /;
 
 our @EXPORT = qw/ start_nginx smtp_connect smtp_send smtp_read smtp_check
-	smtp_ok log_in log_out CRLF http /;
+	smtp_ok log_in log_out http /;
 
 ###############################################################################
 
 use Test::More;
 use File::Temp qw/ tempdir /;
 use IO::Socket;
-
-use constant CRLF => "\x0D\x0A";
+use Socket qw/ CRLF /;
 
 our $testdir;
 our $s;
--- a/smtp.t
+++ b/smtp.t
@@ -12,6 +12,7 @@ use strict;
 use Test::More tests => 28;
 
 use MIME::Base64;
+use Socket qw/ CRLF /;
 
 use _common;