oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix syntax warnings.

Browse source
This commit is contained in:
Colin Kuskie 2009-03-16 21:54:52 +00:00
parent fb8cd3af30
commit 69768606eb
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
t/Mail/Send.t
View file

@ -86,7 +86,7 @@ is( $mime->parts(0)->as_string =~ m/\n/, $newlines,
#---------------------------------------------------------------------------- #----------------------------------------------------------------------------
# Test addHtml # Test addHtml
$mail = WebGUI::Mail::Send->create( $session ); $mail = WebGUI::Mail::Send->create( $session );
my $text = <<'EOF'; $text = <<'EOF';
Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Suspendisse eu lacus ut ligula fringilla elementum. Cras condimentum, velit commodo pretium semper, odio ante accumsan orci, a ultrices risus justo a nulla. Aliquam erat volutpat. Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Suspendisse eu lacus ut ligula fringilla elementum. Cras condimentum, velit commodo pretium semper, odio ante accumsan orci, a ultrices risus justo a nulla. Aliquam erat volutpat.
EOF EOF
@ -97,7 +97,7 @@ $mime = $mail->getMimeEntity;
# TODO: Test that addHtml creates a body with the right content type # TODO: Test that addHtml creates a body with the right content type
# addHtml should add newlines after 78 characters # addHtml should add newlines after 78 characters
my $newlines = length $text / 78; $newlines = length $text / 78;
is( $mime->parts(0)->as_string =~ m/\n/, $newlines, is( $mime->parts(0)->as_string =~ m/\n/, $newlines,
"addHtml should add newlines after 78 characters", "addHtml should add newlines after 78 characters",
); );
@ -107,7 +107,7 @@ is( $mime->parts(0)->as_string =~ m/\n/, $newlines,
#---------------------------------------------------------------------------- #----------------------------------------------------------------------------
# Test addHtmlRaw # Test addHtmlRaw
$mail = WebGUI::Mail::Send->create( $session ); $mail = WebGUI::Mail::Send->create( $session );
my $text = <<'EOF'; $text = <<'EOF';
Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Suspendisse eu lacus ut ligula fringilla elementum. Cras condimentum, velit commodo pretium semper, odio ante accumsan orci, a ultrices risus justo a nulla. Aliquam erat volutpat. Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Suspendisse eu lacus ut ligula fringilla elementum. Cras condimentum, velit commodo pretium semper, odio ante accumsan orci, a ultrices risus justo a nulla. Aliquam erat volutpat.
EOF EOF
@ -117,7 +117,7 @@ $mime = $mail->getMimeEntity;
# TODO: Test that addHtmlRaw doesn't add an HTML wrapper # TODO: Test that addHtmlRaw doesn't add an HTML wrapper
# addHtmlRaw should add newlines after 78 characters # addHtmlRaw should add newlines after 78 characters
my $newlines = length $text / 78; $newlines = length $text / 78;
is( $mime->parts(0)->as_string =~ m/\n/, $newlines, is( $mime->parts(0)->as_string =~ m/\n/, $newlines,
"addHtmlRaw should add newlines after 78 characters", "addHtmlRaw should add newlines after 78 characters",
); );