#!perl

use strict;
use warnings;
use Test::More;
use Data::Babel;

# Implicit split is deprecated and removed in 5.12.2
# old = sub id2name {shift; split(':',$_[0]); pop(@_);}
# new = sub id2name {shift; my @names = split(':',$_[0]); pop(@names);}

# create AutoDB database
my $autodb=new Class::AutoDB(database=>'test',create=>1);
isa_ok($autodb,'Class::AutoDB','sanity test - $autodb');
my $name='test';

my $babel=new Data::Babel(name=>$name);
isa_ok($babel,'Data::Babel','sanity test - $babel');

my @ids=
    (qw(idtype:type_001 idtype:type_002 idtype:type_003 idtype:type_004),
     qw(master:type_001_master master:type_002_master master:type_003_master master:type_004_master),
     qw(maptable:maptable_001 maptable:maptable_002 maptable:maptable_003));
my @names=
    (qw(type_001 type_002 type_003 type_004),
     qw(type_001_master type_002_master type_003_master type_004_master),
     qw(maptable_001 maptable_002 maptable_003));
my %id2name=map {$ids[$_]=>$names[$_]} (0..$#ids);
for my $id (@ids) {
  my $actual=$babel->id2name($id);
  unlike($actual, qr/:/, "Name split correctly for $id to $actual");
}

done_testing();