#!/usr/bin/perl

use Test::More tests => 324;

use strict;
use warnings;
no warnings 'syntax';

our ($VERSION) = q $Revision: 1.3 $ =~ /[\d.]+/g;

my @digits  = qw [IsDigit0 IsDigit1 IsDigit2 IsDigit3 IsDigit4
                  IsDigit5 IsDigit6 IsDigit7 IsDigit8 IsDigit9
                  IsLatinDigit IsArabicIndicDigit
                  IsExtendedArabicIndicDigit IsNkoDigit IsDevanagariDigit
                  IsGurmukhiDigit IsOriyaDigit IsTamilDigit IsTeluguDigit
                  IsKannadaDigit IsMalayalamDigit IsThaiDigit IsLaoDigit
                  IsTibetanDigit IsMyanmarDigit IsKhmerDigit IsMongolianDigit
                  IsLimbuDigit IsNewTaiLueDigit IsBalineseDigit IsOsmanyaDigit
                  IsFullwidthDigit IsMathematicalBoldDigit
                  IsMathematicalDoubleStruckDigit IsMathematicalSansSerifDigit
                  IsMathematicalSansSerifBoldDigit
                  IsMathematicalMonospaceDigit];
my @perl    = qw [IsPerlSigil   IsLeftParen   IsRightParen IsParen];
my @english = qw [IsLcVowel     IsUcVowel     IsVowel
                  IsLcConsonant IsUcConsonant IsConsonant];
my @encode  = qw [IsUuencode IsBase64 IsBase64url IsBase32 IsBase32hex
                  IsBase16 IsBinHex];
my @all     = (@digits, @perl, @english, @encode);

package Test::digits;

use Regexp::CharClasses ':digits';

foreach my $digit (@digits) {
    no strict 'refs';
    Test::More::ok defined &{"Test::digits::$digit"}, "Imported $digit";
}
foreach my $thing (@perl, @english, @encode) {
    no strict 'refs';
    Test::More::ok !defined &{"Test::digits::$thing"}, "Imported $thing";
}

package Test::perl;

use Regexp::CharClasses ':perl';

foreach my $perl (@perl) {
    no strict 'refs';
    Test::More::ok defined &{"Test::perl::$perl"}, "Imported $perl";
}
foreach my $thing (@digits, @english, @encode) {
    no strict 'refs';
    Test::More::ok !defined &{"Test::perl::$thing"}, "Imported $thing";
}

package Test::english;

use Regexp::CharClasses ':english';

foreach my $english (@english) {
    no strict 'refs';
    Test::More::ok defined &{"Test::english::$english"}, "Imported $english";
}
foreach my $thing (@digits, @perl, @encode) {
    no strict 'refs';
    Test::More::ok !defined &{"Test::english::$thing"}, "Imported $thing";
}

package Test::encode;

use Regexp::CharClasses ':encode';

foreach my $english (@encode) {
    no strict 'refs';
    Test::More::ok defined &{"Test::encode::$english"}, "Imported $english";
}
foreach my $thing (@digits, @perl, @english) {
    no strict 'refs';
    Test::More::ok !defined &{"Test::encode::$thing"}, "Imported $thing";
}

package Test::all;

use Regexp::CharClasses;

foreach my $any (@all) {
    no strict 'refs';
    Test::More::ok defined &{"Test::all::$any"}, "Imported $any";
}

package Test::nothing;

use Regexp::CharClasses ();

foreach my $any (@all) {
    no strict 'refs';
    Test::More::ok !defined &{"Test::nothing::$any"}, "Not imported $any";
}

__END__

 $Log: 99_export.t,v $
 Revision 1.3  2008/01/12 00:40:50  abigail
 Tests for the :encode tag.

 Revision 1.2  2008/01/12 00:21:33  abigail
 - Added $VERSION
 - Added "no warnings 'syntax'"