root/lang/perl/Business-ISRC/trunk/t/50_random.t @ 16900

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 2000;
use Business::ISRC;

# only officially assigned code
my @country_code = qw/
AD AE AF AG AI AL AM AN AO AQ Co AR AS AT AU AW AX AZ BA BB BD BE BF BG BH BI BJ BM BN BO BR BS BT BV BW BY Co BZ CA CC CD CF CG CH CI CK CL CM CN CO CR CU CV CX CY CZ DE Co DJ DK DM DO DZ EC EE EG EH Co ER ES Co ET FI FJ FK FM FO FR GA GB GD GE GF GH GI GL GM GN GP GQ GR GS GT GU GW GY HK HM HN HR HT HU ID IE IL IN IO IQ IR IS IT JM JO JP KE KG KH Co KI KM KN KP KR KW KY KZ LA LB LC LI LK LR LS LT LU LV LY MA MC MD MG MH MK Co ML MM MN MO MP MQ MR MS MT MU MV MW MX MY MZ NA NC NE NF NG NI NL NO NP NR NU NZ OM PA PE PF PG PH PK PL PM PN PR PS PT PW PY QA RE RO RU RW SA SB SC SD SE SG SH SI SJ SK SL SM SN SO SR ST SV SY SZ TC TD TF Co TG TH TJ TK TL TM TN TO TR TT TV TW De TZ UA UG UM US UY UZ VA Pr VC VE VG VI VN VU WF WS YE YT ZA ZM ZW
/;
# GG ME IM MF JE BL RS UK

my @registrant = qw/
a b c d e f g h i j k l m n o p q r s t u
A B C D E F G H I J K L M N O P Q R S T U
0 1 2 3 4 5 6 7 8 9
/;

for (1..1000) {
    # create dummy isrc
    my %dummy = (
        country    => $country_code[int(rand()*(scalar @country_code))],
        registrant => 
            $registrant[int(rand()*(scalar @registrant))] . 
            $registrant[int(rand()*(scalar @registrant))] . 
            $registrant[int(rand()*(scalar @registrant))],
        year        => sprintf("%02d", int(rand()*100)),
        designation => sprintf("%05d", int(rand()*10000)),
    );
    my $prefix = int(rand()*3) == 0 ? 'ISRC-' : '';
    my $delim  = int(rand()*3) == 0 ? '' : '-';
    
    my $dummy_isrc = $prefix . (join $delim
        , @dummy{qw/country registrant year designation/});

    my $isrc = Business::ISRC->new($dummy_isrc);
    isa_ok($isrc, 'Business::ISRC');
    is($dummy_isrc, $isrc->raw_string(), "$dummy_isrc");
}