release-1.10release-1.8release-1.9
|
Last change
on this file since 919cbf2 was
f415f83,
checked in by David Benjamin <davidben@mit.edu>, 13 years ago
|
|
Don't manually bootstrap BarnOwl in t/unicode.t
We use a custom perl interpreter, so the BarnOwl module has already been
bootstrapped. Silences warnings on older versions of perl. Also
explicitly use BarnOwl in the test so we don't rely on it being done for
us.
|
-
Property mode set to
100644
|
|
File size:
277 bytes
|
| Line | |
|---|
| 1 | #!/usr/bin/env perl |
|---|
| 2 | use strict; |
|---|
| 3 | use warnings; |
|---|
| 4 | use utf8; |
|---|
| 5 | use Encode; |
|---|
| 6 | |
|---|
| 7 | use Test::More qw(no_plan); |
|---|
| 8 | |
|---|
| 9 | use BarnOwl; |
|---|
| 10 | |
|---|
| 11 | my $unicode = "“hello”"; |
|---|
| 12 | |
|---|
| 13 | ok(Encode::is_utf8($unicode)); |
|---|
| 14 | ok(Encode::is_utf8(BarnOwl::wordwrap($unicode, 100))); |
|---|
| 15 | |
|---|
| 16 | is(BarnOwl::wordwrap($unicode, 100), $unicode); |
|---|
Note: See
TracBrowser
for help on using the repository browser.
