Rose-DBx-Object-I18N/t/03internal.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More 'tests' => 6;
   7
   8 use lib 't/lib';
   9
  10 use User;
  11 use UserI18N;
  12
  13 my $static = User->new( name => 'abc' );
  14 ok( $static->meta->i18n_translation_rel_name() );
  15
  16 is( $static->meta->i18n_translation_rel_name(), 'user_i18n' );
  17
  18 ok( not defined $static->meta->i18n_static_rel_name() );
  19
  20 #is_deeply( [ $static->i18n_languages ], [ qw/ ru en ua / ] );
  21
  22 my $translation = UserI18N->new( signature => 'abc' );
  23 ok( $translation->meta->i18n_static_rel_name() );
  24
  25 is( $translation->meta->i18n_static_rel_name(), 'user' );
  26
  27 ok( not defined $translation->meta->i18n_translation_rel_name() );