#!perl

use Test::More;
use Data::Dump qw(pp);

use Net::RIR_CC;

my %data = (
  AU    => [ 'APNIC', 'AP' ],
  NZL   => [ 'APNIC', 'AP' ],
  KR    => [ 'APNIC', 'AP' ],
  THA   => [ 'APNIC', 'AP' ],
  US    => [ 'ARIN', 'AR' ],
  USA   => [ 'ARIN', 'AR' ],
  CA    => [ 'ARIN', 'AR' ],
  SE    => [ 'RIPE', 'RI' ],
  FR    => [ 'RIPE', 'RI' ],
  UK    => [ 'RIPE', 'RI' ],
  GB    => [ 'RIPE', 'RI' ],
  EU    => [ 'RIPE', 'RI' ],
  MX    => [ 'LACNIC', 'LA' ],
  CO    => [ 'LACNIC', 'LA' ],
  AR    => [ 'LACNIC', 'LA' ],
  DOM   => [ 'LACNIC', 'LA' ],
  EG    => [ 'AFRINIC', 'AF' ],
  MA    => [ 'AFRINIC', 'AF' ],
  ZA    => [ 'AFRINIC', 'AF' ],
);

my ($rc, $rir);

ok($rc = Net::RIR_CC->new, 'constructor ok: ' . $rc);

for my $code (keys %data) {
  ok($rir = $rc->get_rir($code), "get_rir for $code ok");
  is($rir->name, $data{$code}->[0], 'RIR name ok: ' . $rir->name);
  is($rir->code, $data{$code}->[1], 'RIR code ok: ' . $rir->code);
  ok($rir->whois_server, 'RIR whois_server is set: ' . $rir->whois_server);
}

done_testing;

