Commit 70d2952654175cc1b1d76395e70f2aeddbfadacb - libconfig-properties-perl-upstream

use 'is' instead of 'ok' Salvador Fandino 10 years ago

1 changed file(s) with 1 addition(s) and 1 deletion(s). Raw diff Collapse all Expand all

-1

t/5_save.t less more

28	28	# use Assert::Quote ':short';
29	29
30	30	foreach my $k ($cfg->propertyNames, $cfg2->propertyNames) {
31		ok ($cfg->getProperty($k) eq $cfg2->getProperty($k), "same key/value");
	31	is ($cfg->getProperty($k), $cfg2->getProperty($k), "same key/value")
32	32
33	33	# $cfg->getProperty($k) eq $cfg2->getProperty($k)
34	34	# or D($cfg->getProperty($k), $cfg2->getProperty($k))