Commit | Line | Data |
---|---|---|
69e34dac S |
1 | #!/usr/local/bin/perl -w |
2 | #Author: Dan Dascalescu | |
3 | use strict; | |
4 | use Test::More tests => 1; | |
5 | ||
6 | use Text::Wrap; | |
7 | ||
8 | local $Text::Wrap::columns = 15; | |
9 | local $Text::Wrap::separator2 = '[N]'; | |
10 | ||
11 | is(wrap('','','some long text here that should be wrapped on at least three lines'), | |
12 | "some long text[N]here that[N]should be[N]wrapped on at[N]least three[N]lines", | |
13 | 'If you just to preserve existing newlines but add new breaks with something else, set $Text::Wrap::separator2 instead.'); |