Добавлен тест экспорта

shoorick · Feb 21, 2010 · ce07ae1 · ce07ae1
1 parent 9002bb1
commit ce07ae1
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 3 deletions.
diff --git a/t/01-detect-gender.t b/t/01-detect-gender.t
@@ -1,12 +1,12 @@
-#-!perl -T
+#!perl -T
 
 use utf8;
 use Test::More 'no_plan';
 
 use Lingua::RU::Inflect;
 
-my $M = $Lingua::RU::Inflect::MASCULINE;
-my $F = $Lingua::RU::Inflect::FEMININE;
+my $M = Lingua::RU::Inflect::MASCULINE;
+my $F = Lingua::RU::Inflect::FEMININE;
 my $d = \&Lingua::RU::Inflect::detect_gender_by_given_name;
 
 # Masculine names

diff --git a/t/03-export.t b/t/03-export.t
@@ -0,0 +1,12 @@
+#!perl -T
+
+use utf8;
+use Test::More 'no_plan';
+
+# use Lingua::RU::Inflect qw/:subs :genders :cases/;
+use Lingua::RU::Inflect qw/:all/;
+
+ok( MASCULINE == 1, 'genders: MASCULINE' );
+ok( DATIVE    == 1, 'cases: DATIVE' );
+ok( FEMININE  == detect_gender_by_given_name( 'Учкудук', 'Ляйсан' ),
+    'gender: FEMININE and sub: detect_gender_by_given_name' );