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/flag.t

#!/usr/bin/perl -w
#========================================================================
#
# t/flag.t 
#
# Tests the setting and unsetting of flag variables.
#
# 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.
#
#------------------------------------------------------------------------
#
# TODO
#
# * test PEDANTIC option
#
# * test EXPAND_WARN option
#
#========================================================================

use strict;
use vars qw($loaded @expect);

BEGIN { 
    # what we expect the debug state(s) to be
    @expect = qw(1 0 1 0 1 0 1 0 1 0 1 0 1 1 1 0);
    my $max = 3 + @expect;

$| = 1; 
    print "1..$max\n"; 
}

END {
    ok(0) unless $loaded;
}

my $ok_count = 1;
sub ok {
    shift or print "not ";
    print "ok $ok_count\n";
    ++$ok_count;
}

use AppConfig qw(:expand :argcount);
$loaded = 1;
ok(1);

#------------------------------------------------------------------------
# define storage and callback for keeping track of the state of 'debug' 
# variable as it changes.
#
my @debug;

# callback routine to store the state of 'debug' each time it changes
sub debug_set {
    my $cfg = shift;
    my $var = shift;
    my $val = shift;
    push(@debug, $val);
    1;
}

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

my $config = AppConfig->new('debug', { ACTION => \&debug_set });

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

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

while (@expect) {
    my $e = shift @expect;
    my $d = shift @debug;

ok( $e == $d );
}

#========================================================================
# the rest of the file comprises the sample configuration information
# that gets read by file()
#

__DATA__
debug
debug 0
debug 1
debug = 0
debug = 1
debug off
debug on
debug Off
debug On
debug OFF
debug ON
debug = off
debug = on
debug is very much turned on
debug = a turned on thing
nodebug

Batal