--- cfg.ts 2004/11/14 18:38:53 1.1
+++ cfg.ts 2004/11/16 19:08:24 1.2
@@ -28,7 +28,7 @@
## cfg.ts: Perl Binding (Perl test suite part)
##
-use Test::More tests => 7;
+use Test::More tests => 8;
##
## Module Loading
@@ -37,7 +37,7 @@
use IO::File;
BEGIN {
- use_ok('OSSP::cfg')
+ use_ok('OSSP::cfg');
};
BEGIN {
use OSSP::cfg qw(:all);
@@ -54,13 +54,17 @@
$rc = cfg_create($cfg);
ok($rc == CFG_OK, "cfg_create");
-my ($node, $in_ptr, $in_len);
+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, $node, CFG_FMT_CFG, $str, undef);
+$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");
|
