Index: ossp-pkg/cfg/perl/cfg.ts
RCS File: /v/ossp/cvs/ossp-pkg/cfg/perl/cfg.ts,v
rcsdiff -q -kk '-r1.1' '-r1.2' -u '/v/ossp/cvs/ossp-pkg/cfg/perl/cfg.ts,v' 2>/dev/null
--- 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");