#!/usr/bin/perl

use Test::More tests => 2901;

use strict;
use warnings;
no warnings 'syntax';

our ($VERSION) = q $Revision: 1.2 $ =~ /[\d.]+/g;

BEGIN {
    use_ok ('Regexp::CharClasses')
};

use charnames ':full';

my @names = map {s/^\s+//; $_} split /\n/ => <<"--";
    ARABIC-INDIC
    EXTENDED ARABIC-INDIC
    NKO
    DEVANAGARI
    BENGALI
    GURMUKHI
    GUJARATI
    ORIYA
    TAMIL
    TELUGU
    KANNADA
    MALAYALAM
    THAI
    LAO
    TIBETAN
    MYANMAR
    KHMER
    MONGOLIAN
    LIMBU
    NEW TAI LUE
    BALINESE
    FULLWIDTH
    OSMANYA
    MATHEMATICAL BOLD
    MATHEMATICAL DOUBLE-STRUCK
    MATHEMATICAL SANS-SERIF
    MATHEMATICAL SANS-SERIF BOLD
    MATHEMATICAL MONOSPACE
--
unshift @names => "";

my @numbers = qw [ZERO  ONE   TWO   THREE FOUR
                  FIVE  SIX   SEVEN EIGHT NINE];

for (my $index = 0; $index < @numbers; $index ++) {
    my $number = $numbers [$index];

    foreach my $digit (@names) {
        my $name = $digit ? "$digit DIGIT $number" : "DIGIT $number";
        my $str  = eval qq ["\\N{$name}"];
        my $pat  = "\\p{IsDigit$index}";
        ok $str  =~ /^$pat$/, qq ["\\N{$name}" =~ /^$pat\$/];

        for (my $j = 0; $j < @numbers; $j ++) {
            next if $j == $index;
            my $pat    = "\\P{IsDigit$j}";
            ok $str    =~ /^$pat$/, qq ["\\N{$name}" =~ /^$pat\$/];
        }
    }
}


__END__

 $Log: 02_digits_named.t,v $
 Revision 1.2  2008/01/12 00:21:33  abigail
 - Added $VERSION
 - Added "no warnings 'syntax'"