ACIL FM

Nama	Ukuran	Aksi
97-pod.t	289 B	View DL Edit
99_author.t	1.48 MB	View DL Edit
appconfig.t	1.84 MB	View DL Edit
args.t	2.32 MB	View DL Edit
block.t	2.14 MB	View DL Edit
cgi.t	1.94 MB	View DL Edit
compact.t	3.02 MB	View DL Edit
const.t	1.23 MB	View DL Edit
default.t	2.7 MB	View DL Edit
file.t	8.04 MB	View DL Edit
flag.t	2.13 MB	View DL Edit
getopt.t	2.15 MB	View DL Edit
multi.t	2.98 MB	View DL Edit
novars.t	2.18 MB	View DL Edit
state.t	4.71 MB	View DL Edit
sys.t	1.68 MB	View DL Edit

Edit file: /home/.cpan/build/AppConfig-1.71-0/t/default.t

#!/usr/bin/perl -w

#========================================================================
#
# t/default.t 
#
# AppConfig::File test file.  Tests the '-option' syntax which is used 
# to reset variables to their default values.
#
# Written by Andy Wardley <abw@cre.canon.co.uk>
#
# Copyright (C) 1998 Canon Research Centre Europe Ltd.
# All Rights Reserved.
#
# This is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
#
#========================================================================

use strict;
use vars qw($loaded);
use lib qw( ../lib ./lib );
use Test::More tests => 19;
use AppConfig qw(:expand :argcount);
ok(1, 'loaded');

#------------------------------------------------------------------------
# create new AppConfig
#

my $BAZDEF = "all_bar_none";
my $BAZNEW = "new_bar";

my $config = AppConfig->new( { GLOBAL => { ARGCOUNT => 0 } },
        'foo', 
        'bar', 
        'baz'  => { ARGCOUNT => 1, DEFAULT => $BAZDEF },
        'qux'  => { ARGCOUNT => 1 },
        'list' => { ARGCOUNT => ARGCOUNT_LIST,
                    DEFAULT  => [ 2, 3, 5, 7, 9 ], },
        'hash' => { ARGCOUNT => ARGCOUNT_HASH,
                    DEFAULT  => { two   => 2, 
                                  three => 3, 
                                  five  => 5 }, },
    );

#2: test config got instantiated correctly
ok( defined $config, 'defined config' );

#3 - #4: set some dummy values
ok( $config->foo(1), 'got foo' );
ok( $config->baz($BAZNEW), 'baz new');

#5 - #6: test them
ok( $config->foo() == 1, 'foo set' );
ok( $config->baz() eq $BAZNEW, 'baz set' );

#------------------------------------------------------------------------
# list 
#------------------------------------------------------------------------

my $list = $config->list();
ok( $list, 'got default list' );
ok( $list->[0] == 2, 'first item two' );
ok( $list->[2] == 5, 'third item five' );

#------------------------------------------------------------------------
# hash 
#------------------------------------------------------------------------

my $hash = $config->hash();
ok( $hash, 'got default hash' );
ok( $hash->{ two } == 2, 'item two' );
ok( $hash->{ five } == 5, 'item five' );

#7: read the config from __DATA__
ok( $config->file(\*DATA), 'read from file' );

#8 - #9: test foo and baz got reset to defaults correctly
ok( $config->foo() == 0, 'foo set to zero' );
ok( $config->baz() eq $BAZDEF, 'baz def stuff' );

#10 - #11: test that "+bar" and "+qux" worked
ok( $config->bar() ==  1, 'bar is one'  );
ok( $config->qux() eq '1', 'qux is one' );

#12 - #15: test that list and hash are set
ok( $config->bar() ==  1, 'bar still one' );
ok( $config->qux() eq '1', 'qux still one' );

__DATA__
-foo
+bar
-baz
+qux

Batal