blob: 4678f4e208efd1e6734ba5746bbc1e311bde0260 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
use strict; use warnings;
#Author: Dan Dascalescu
BEGIN { require './t/lib/ok.pl' }
use Text::Wrap;
print "1..1\n";
local $Text::Wrap::columns = 15;
local $Text::Wrap::separator2 = '[N]';
ok(wrap('','','some long text here that should be wrapped on at least three lines') eq
"some long text[N]here that[N]should be[N]wrapped on at[N]least three[N]lines",
'If you just to preserve existing newlines but add new breaks with something else, set $Text::Wrap::separator2 instead.');
|
