mirror of
https://codeberg.org/scip/Config-General.git
synced 2025-12-16 20:21:01 +01:00
=> 2.52, see changelog
git-svn-id: http://dev.catalyst.perl.org/repos/Config-General/trunk@96 be1acefe-a474-0410-9a34-9b3221f2030f
This commit is contained in:
4
t/cfg.8
4
t/cfg.8
@@ -16,6 +16,10 @@ message <<EOF
|
||||
can reach us somewhere in
|
||||
outerspace.
|
||||
EOF
|
||||
nocomment <<EOF
|
||||
Comments in a here-doc should not be treated as comments.
|
||||
/* So this should appear in the output */
|
||||
EOF
|
||||
command = ssh -f -g orpheus.0x49.org \
|
||||
-l azrael -L:34777samir.okir.da.ru:22 \
|
||||
-L:31773:shane.sol1.rocket.de:22 \
|
||||
|
||||
4
t/run.t
4
t/run.t
@@ -8,7 +8,7 @@
|
||||
|
||||
|
||||
use Data::Dumper;
|
||||
use Test::More tests => 69;
|
||||
use Test::More tests => 70;
|
||||
#use Test::More qw(no_plan);
|
||||
|
||||
# ahem, we deliver the test code with a local copy of
|
||||
@@ -49,6 +49,8 @@ my $copy = new Config::General("t/cfg.out");
|
||||
my %copyhash = $copy->getall;
|
||||
is_deeply(\%hash, \%copyhash, "Writing Config Hash to disk and compare with original");
|
||||
|
||||
# 8a
|
||||
like($copyhash{nocomment}, qr/this should appear/, "C-comments not processed in here-doc");
|
||||
|
||||
### 9
|
||||
$conf = new Config::General(
|
||||
|
||||
Reference in New Issue
Block a user