#!/usr/bin/perl

use constant RUNS    => 1000;

use Test::More tests => 1 + RUNS;

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

use List::Util 'shuffle';
use lib 't';
use Data;

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

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

our @data;

foreach my $r (1 .. RUNS) {
    my $str = "";
    my $pat = "";
    my @i = shuffle 0 .. 9;
    foreach my $i (@i) {
        $str .= chr hex $data [$i] [rand @{$data [$i]}];
      again:
        my $alt = 0 + int rand 9;
        goto again if $alt == $i;
        $pat .= rand (2) < 1 ? "\\p{IsDigit$i}" : "\\P{IsDigit$alt}";
    }
    ok $str =~ /^$pat$/, "random string $r";
}
        

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