File: use.t

package info (click to toggle)
libtext-wrapi18n-perl 0.06-5
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 56 kB
  • ctags: 7
  • sloc: perl: 136; makefile: 51
file content (11 lines) | stat: -rw-r--r-- 228 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
 
#!/usr/bin/perl -w
use strict;
use Test::Simple tests => 2;

use Text::WrapI18N qw(:all);
$columns = 9;
ok(wrap("", "", "abcdefg") eq "abcdefg");
ok(wrap("# ", "! ", "abcdefg hijklmn") eq "# abcdefg\n! hijklmn");
exit;
__END__