[p5sagit/p5-mst-13.2.git] / ext / Package-Constants / t / 01_list.t

use strict;
use Test::More 'no_plan';

BEGIN { chdir 't' if -d 't' };
use lib '../lib';

my $Class   = 'Package::Constants';
my $Func    = 'list';
my $Pkg     = '_test';
my @Good    = 'A'..'C';
my @Bad     = 'D'..'E';

use_ok( $Class );
can_ok( $Class, $Func );

### enable debug statements?
$Package::Constants::DEBUG = $Package::Constants::DEBUG = @ARGV ? 1 : 0;


### small test class 
{   package _test;

    ### mark us as loaded
    $INC{'_test.pm'} = $0;
    
    use vars qw[$FOO];
    $FOO = 1;
    
    ### define various subs.. the first 3 are constants, 
    ### the others are not
    use constant A => 1;
    use constant B => sub { 1 };
    sub C ()        { 1 };
    
    sub D           { 1 };
    sub E (*)       { 1 };

}    

### get the list
{   my @list = $Class->$Func( $Pkg );
    ok( scalar(@list),          "Got a list of constants" );
    is_deeply( \@list, \@Good,  "   Contains all expected entries" );
}    


# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwidth=4:
Commit	Line	Data
1a04e791	1	use strict;
	2	use Test::More 'no_plan';
	3
	4	BEGIN { chdir 't' if -d 't' };
	5	use lib '../lib';
	6
	7	my $Class = 'Package::Constants';
	8	my $Func = 'list';
	9	my $Pkg = '_test';
	10	my @Good = 'A'..'C';
	11	my @Bad = 'D'..'E';
	12
	13	use_ok( $Class );
	14	can_ok( $Class, $Func );
	15
	16	### enable debug statements?
	17	$Package::Constants::DEBUG = $Package::Constants::DEBUG = @ARGV ? 1 : 0;
	18
	19
	20	### small test class
	21	{ package _test;
	22
	23	### mark us as loaded
	24	$INC{'_test.pm'} = $0;
	25
	26	use vars qw[$FOO];
	27	$FOO = 1;
	28
	29	### define various subs.. the first 3 are constants,
	30	### the others are not
	31	use constant A => 1;
	32	use constant B => sub { 1 };
	33	sub C () { 1 };
	34
	35	sub D { 1 };
	36	sub E (*) { 1 };
	37
	38	}
	39
	40	### get the list
	41	{ my @list = $Class->$Func( $Pkg );
	42	ok( scalar(@list), "Got a list of constants" );
	43	is_deeply( \@list, \@Good, " Contains all expected entries" );
	44	}
	45
	46
	47	# Local variables:
	48	# c-indentation-style: bsd
	49	# c-basic-offset: 4
	50	# indent-tabs-mode: nil
	51	# End:
	52	# vim: expandtab shiftwidth=4: