14 lines
386 B
Perl
14 lines
386 B
Perl
|
#!/usr/bin/perl -Tw
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use esmith::config;
|
||
|
|
use Test::More tests => 2;
|
||
|
|
|
||
|
|
my %config;
|
||
|
|
tie %config, 'esmith::config', '10e-smith-lib/dummy.conf';
|
||
|
|
my $value = $config{foo};
|
||
|
|
|
||
|
|
# Config values *should* be tained, but code depends on them not being.
|
||
|
|
is( $value, 'bar', 'tied to the dummy database' );
|
||
|
|
ok( eval { () = join('', $value), kill 0; 1; }, 'config values not tainted' );
|