02-Common-Conf-File.t 1.55 KB
Newer Older
Yadd's avatar
Yadd committed
1
2
3
4
5
6
7
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl Lemonldap-NG-Manager.t'

#########################

# change 'tests => 1' to 'tests => last_test_to_print';

Yadd's avatar
Yadd committed
8
9
use strict;
use Test::More;
10
BEGIN { use_ok('Lemonldap::NG::Common::Conf') }
Yadd's avatar
Yadd committed
11
12
13
14
15
16

#########################

# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.

17
my $h;
18

19
ok(
20
    $h = new Lemonldap::NG::Common::Conf(
Yadd's avatar
Yadd committed
21
22
        {
            type    => 'File',
Yadd's avatar
Yadd committed
23
            dirName => "t/",
Yadd's avatar
Yadd committed
24
        }
25
26
    ),
    'type => file',
27
);
Yadd's avatar
Yadd committed
28
my $count = 2;
29

Yadd's avatar
Yadd committed
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
my @test = (

    #  simple ascii
    { cfgNum => 1, test => 'ascii' },

    #  utf-8
    { cfgNum => 1, test => 'Русский' },

    #  compatible utf8/latin-1 char but with different codes
    { cfgNum => 1, test => 'éà' }
);

for ( my $i = 0 ; $i < @test ; $i++ ) {
    ok( $h->store( $test[$i] ) == 1, "Test $i is stored" )
      or print STDERR "$Lemonldap::NG::Common::Conf::msg $!";
    $count++;
    if ( -x '/usr/bin/file' ) {
        eval {
            open F, 'file t/lmConf-1.js |';
            $_ = join( '', <F> );
            close F;
            ok( /(ascii|utf-?8)/si, "File is $1 encoded" );
            $count++;
        };
    }
    my $cfg;
    ok( $cfg = $h->load(1), "Test $i can be read" )
      or print STDERR $Lemonldap::NG::Common::Conf::msg;
    ok( $cfg->{test} eq $test[$i]->{test}, "Test $i is restored" );
    $count += 2;
}

unlink 't/lmConf-1.js';

done_testing($count);