blob: 48eb5b9494ae1b3ccab1f7e143d402ee996ea0cd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
#!perl -w
use strict;
use Test::More;
use XS::APItest;
ok(test_isBLANK_uni(ord("\N{EM SPACE}")), "EM SPACE is blank in isBLANK_uni()");
ok(test_isBLANK_utf8("\N{EM SPACE}"), "EM SPACE is blank in isBLANK_utf8()");
ok(! test_isBLANK_uni(ord("\N{GREEK DASIA}")), "GREEK DASIA is not a blank in isBLANK_uni()");
ok(! test_isBLANK_utf8("\N{GREEK DASIA}"), "GREEK DASIA is not a blank in isBLANK_utf8()");
done_testing;
|
