head	1.4;
access;
symbols
	FSL_1_7_0:1.4
	CFG_0_9_11:1.4
	FSL_1_6_1:1.3
	CFG_0_9_10:1.3
	FSL_1_6_0:1.3
	FSL_1_6b2:1.3
	CFG_0_9_9:1.3
	FSL_1_6b1:1.3
	CFG_0_9_8:1.3
	CFG_0_9_7:1.2
	CFG_0_9_6:1.2
	CFG_0_9_5:1.2;
locks; strict;
comment	@# @;


1.4
date	2006.08.10.19.36.00;	author rse;	state Exp;
branches;
next	1.3;
commitid	Isy241gp4yykKkIr;

1.3
date	2004.12.31.19.16.34;	author rse;	state Exp;
branches;
next	1.2;

1.2
date	2004.11.16.19.08.24;	author rse;	state Exp;
branches;
next	1.1;

1.1
date	2004.11.14.18.38.53;	author rse;	state Exp;
branches;
next	;


desc
@@


1.4
log
@cleanup source tree for status as of 2006
@
text
@##
##  OSSP cfg - Configuration Parsing
##  Copyright (c) 2002-2006 Ralf S. Engelschall <rse@@engelschall.com>
##  Copyright (c) 2002-2006 The OSSP Project <http://www.ossp.org/>
##
##  This file is part of OSSP cfg, a configuration parsing library which
##  can be found at http://www.ossp.org/pkg/lib/cfg/.
##
##  Permission to use, copy, modify, and distribute this software for
##  any purpose with or without fee is hereby granted, provided that
##  the above copyright notice and this permission notice appear in all
##  copies.
##
##  THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
##  WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
##  MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
##  IN NO EVENT SHALL THE AUTHORS AND COPYRIGHT HOLDERS AND THEIR
##  CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
##  SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
##  LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
##  USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
##  ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
##  OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
##  OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
##  SUCH DAMAGE.
##
##  cfg.ts: Perl Binding (Perl test suite part)
##

use Test::More tests => 8;

##
##  Module Loading
##

use IO::File;

BEGIN {
    use_ok('OSSP::cfg');
};
BEGIN {
    use OSSP::cfg qw(:all);
    ok(defined(CFG_VERSION), "CFG_VERSION");
    ok(CFG_OK == 0, "CFG_OK");
};

##
##  C-Style API
##

my ($rc, $cfg);

$rc = cfg_create($cfg);
ok($rc == CFG_OK, "cfg_create");

my ($in_ptr, $in_len);
my $io = new IO::File "../cfg_test.cfg" or die;
my $str; { local $/; $str = <$io>; }
$io->close();
$rc = cfg_import($cfg, \0, CFG_FMT_CFG, $str, length($str));
ok($rc == CFG_OK, "cfg_import");

my $out;
$rc = cfg_export($cfg, \0, CFG_FMT_CFG, $out, 0);
ok($rc == CFG_OK, "cfg_export");

$rc = cfg_destroy($cfg);
ok($rc == CFG_OK, "cfg_destroy");

##
##  OO-style API
##

$cfg = new OSSP::cfg;
ok(defined($cfg), "new OSSP::cfg");

undef $cfg;

@


1.3
log
@Adjust copyright messages for new year 2005.
@
text
@d3 2
a4 3
##  Copyright (c) 2002-2005 Ralf S. Engelschall <rse@@engelschall.com>
##  Copyright (c) 2002-2005 The OSSP Project <http://www.ossp.org/>
##  Copyright (c) 2002-2005 Cable & Wireless <http://www.cw.com/>
@


1.2
log
@fix test suite
@
text
@d3 3
a5 3
##  Copyright (c) 2002-2004 Ralf S. Engelschall <rse@@engelschall.com>
##  Copyright (c) 2002-2004 The OSSP Project <http://www.ossp.org/>
##  Copyright (c) 2002-2004 Cable & Wireless <http://www.cw.com/>
@


1.1
log
@Initial cut for Perl bindings to OSSP cfg. Still partly broken, of course ;-)
@
text
@d31 1
a31 1
use Test::More tests => 7;
d40 1
a40 1
    use_ok('OSSP::cfg')
d57 1
a57 1
my ($node, $in_ptr, $in_len);
d61 1
a61 1
$rc = cfg_import($cfg, $node, CFG_FMT_CFG, $str, undef);
d64 4
@