1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
#!/usr/bin/perl
use Config::Tiny;
use File::Spec;
use File::Temp;
use Test::More tests => 7;
use utf8;
# ------------------------
my($config) = Config::Tiny -> read('t/04.utf8.txt', 'utf8');
ok($$config{utf8_data}{Name} eq 'Δ Lady', 'Hashref after read() returns correct value');
ok($$config{utf8_data}{Class} eq 'Reichwaldstraße', 'Hashref after read() returns correct value');
ok($$config{utf8_data}{Type} eq 'Πηληϊάδεω Ἀχιλῆος', 'Hashref after read() returns correct value');
# The EXLOCK option is for BSD-based systems.
my($temp_dir) = File::Temp -> newdir('temp.XXXX', CLEANUP => 1, EXLOCK => 0, TMPDIR => 1);
my($temp_file) = File::Spec -> catfile($temp_dir, 'write.utf8.conf');
my($string) =<<EOS;
[init]
weird_text = Reichwaldstraße
EOS
my($conf1) = Config::Tiny -> read_string($string);
ok($conf1, 'read_string() returns true');
is_deeply($conf1, {init => {weird_text => 'Reichwaldstraße'} }, 'read_string() returns expected value');
$conf1 -> write($temp_file, 'utf8');
my($conf2) = Config::Tiny -> read($temp_file, 'encoding(utf8)');
is_deeply($conf1, $conf1, 'write() followed by read() works');
is_deeply($conf2, {init => {weird_text => 'Reichwaldstraße'} }, 'write() + read() returns expected value');
|
