source: t/unicode.t @ 5001a3d

release-1.8release-1.9
Last change on this file since 5001a3d was f415f83, checked in by David Benjamin <davidben@mit.edu>, 10 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
2use strict;
3use warnings;
4use utf8;
5use Encode;
6
7use Test::More qw(no_plan);
8
9use BarnOwl;
10
11my $unicode = "“hello”";
12
13ok(Encode::is_utf8($unicode));
14ok(Encode::is_utf8(BarnOwl::wordwrap($unicode, 100)));
15
16is(BarnOwl::wordwrap($unicode, 100), $unicode);
Note: See TracBrowser for help on using the repository browser.