# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 1.t'

use Test::More tests => 26;
use Config::Properties;
use File::Temp qw(tempfile);

my $cfg=Config::Properties->new();
$cfg->load(\*DATA);

my ($fh, $fn)=tempfile()
    or die "unable to create temporal file to save properties";

# print STDERR "saving properties to '$fn'\n";

$cfg->store($fh, "test header");
close ($fh)
    or die "unable to close temporal file with properties saved";

open(R, '<', $fn)
    or die "unable to open temporal file with properties saved";

my $cfg2=Config::Properties->new();
$cfg2->load(\*R);

close R
    or die "unable to read temporal file with properties saved";

# use Assert::Quote ':short';

foreach my $k ($cfg->propertyNames, $cfg2->propertyNames) {
    ok ($cfg->getProperty($k) eq $cfg2->getProperty($k), "same key/value");

#    $cfg->getProperty($k) eq $cfg2->getProperty($k)
#     or D($cfg->getProperty($k), $cfg2->getProperty($k))
#       or print STDERR S($k), "\n1:", A, "\n2:", B, "\n\n";
	
}

unlink $fn;

__DATA__
# hello
foo=one
    Bar : maybe one\none\tone\r
eq\=ua\:l jamon\njamon\njamon\nmas\tjamon

\ spaces\  = \ at the begining and at the end \
in the key and in the\nvalue

more : another \
    configuration \
    line
less= who said:\tless ??? 

cra\n\=\:\ \\z'y' jump

long\ line = Text::Wrap::wrap()" has a number of variables that control its behav- \
       ior.  Because other modules might be using "Text::Wrap::wrap()" it is \
       suggested that you leave these variables alone!  If you can't do that, \
       then use "local($Text::Wrap::VARIABLE) = YOURVALUE" when you change the \
       values so that the original value is restored.  This "local()" trick \
       will not work if you import the variable into your own namespace.
wrap-me: \ \ \ \ \ \  \ \\  \\\\\ \\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ hello!

cmd3=/usr/share/Artemis/bin/loki -vip 10.51.100.120 -file f3058 -it 10 -repeat 100000000 -proc read -vdir /vol1 -useGateway 172.16.254.254 %ETH%

too\ many\ spaces:\                                                                                                        hello again!

# comment = hello
\# comment = bye

! comment2 = good
\! comment2 = bye