1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
#!/usr/bin/perl
# basic tests to see if things compile and are imported okay.
use strict;
use Test::More tests => 10;
use_ok "Test::utf8";
ok(defined(&is_valid_string), "is_valid_string imported");
ok(defined(&is_sane_utf8), "is_sane_utf8 imported");
ok(defined(&is_dodgy_utf8), "is_dodgy_utf8 imported");
ok(defined(&is_within_ascii), "is_within_ascii imported");
ok(defined(&is_within_latin_1), "is_within_latin_1 imported");
ok(defined(&is_within_latin1), "is_within_latin1 imported");
ok(defined(&is_flagged_utf8), "is_flagged_utf8 imported");
ok(defined(&isnt_flagged_utf8), "isnt_flagged_utf8 imported");
ok(defined(&isn't_flagged_utf8), "isn't_flagged_utf8 imported");
|
