source: t/unicode.t @ 14965e5

release-1.4release-1.5release-1.6release-1.7release-1.8release-1.9
Last change on this file since 14965e5 was 09ff1eb, checked in by Nelson Elhage <nelhage@mit.edu>, 12 years ago
Some simple tests for perlglue functions handling Unicode properly.
  • Property mode set to 100644
File size: 294 bytes
Line 
1#!/usr/bin/env perl
2use strict;
3use warnings;
4use utf8;
5use Encode;
6
7BEGIN { bootstrap BarnOwl; };
8
9use Test::More qw(no_plan);
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.