FSEITZ / Quiq-1.225 / t / bin / Quiq / ApplicationPaths.t 

            

              
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
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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123

              
#!/usr/bin/env perl
package Quiq::ApplicationPaths::Test;
use base qw/Quiq::Test::Class/;
use v5.10;
use strict;
use warnings;
# -----------------------------------------------------------------------------
sub test_loadClass : Init(1) {
    shift->useOk('Quiq::ApplicationPaths');
}
# -----------------------------------------------------------------------------
sub test_unitTest_root: Test(9) {
    my $self = shift;
    $0 = '/opt/myapp/bin/prog';
    my $app = Quiq::ApplicationPaths->new;
    $self->is(ref($app),'Quiq::ApplicationPaths');
    my $name = $app->name;
    $self->is($name,'myapp');
    my $prefix = $app->prefix;
    $self->is($prefix,'');
    my $homeDir = $app->homeDir;
    $self->is($homeDir,'/opt/myapp');
    $homeDir = $app->homeDir('lib/perl5');
    $self->is($homeDir,'/opt/myapp/lib/perl5');
    my $etcDir = $app->etcDir;
    $self->is($etcDir,'/etc/opt/myapp');
    $etcDir = $app->etcDir('disclaimer.txt');
    $self->is($etcDir,'/etc/opt/myapp/disclaimer.txt');
    my $varDir = $app->varDir;
    $self->is($varDir,'/var/opt/myapp');
    $varDir = $app->varDir('import.log');
    $self->is($varDir,'/var/opt/myapp/import.log');
}
sub test_unitTest_depth2: Test(9) {
    my $self = shift;
    $0 = '/opt/myapp/www/public/index.cgi';
    my $app = Quiq::ApplicationPaths->new(2);
    $self->is(ref($app),'Quiq::ApplicationPaths');
    my $name = $app->name;
    $self->is($name,'myapp');
    my $prefix = $app->prefix;
    $self->is($prefix,'');
    my $homeDir = $app->homeDir;
    $self->is($homeDir,'/opt/myapp');
    $homeDir = $app->homeDir('lib/perl5');
    $self->is($homeDir,'/opt/myapp/lib/perl5');
    my $etcDir = $app->etcDir;
    $self->is($etcDir,'/etc/opt/myapp');
    $etcDir = $app->etcDir('disclaimer.txt');
    $self->is($etcDir,'/etc/opt/myapp/disclaimer.txt');
    my $varDir = $app->varDir;
    $self->is($varDir,'/var/opt/myapp');
    $varDir = $app->varDir('import.log');
    $self->is($varDir,'/var/opt/myapp/import.log');
}
sub test_unitTest_prefix: Test(9) {
    my $self = shift;
    $0 = '/home/user/opt/myapp/bin/prog';
    my $app = Quiq::ApplicationPaths->new;
    $self->is(ref($app),'Quiq::ApplicationPaths');
    my $name = $app->name;
    $self->is($name,'myapp');
    my $prefix = $app->prefix;
    $self->is($prefix,'/home/user');
    my $homeDir = $app->homeDir;
    $self->is($homeDir,'/home/user/opt/myapp');
    $homeDir = $app->homeDir('lib/perl5');
    $self->is($homeDir,'/home/user/opt/myapp/lib/perl5');
    my $etcDir = $app->etcDir;
    $self->is($etcDir,'/home/user/etc/opt/myapp');
    $etcDir = $app->etcDir('disclaimer.txt');
    $self->is($etcDir,'/home/user/etc/opt/myapp/disclaimer.txt');
    my $varDir = $app->varDir;
    $self->is($varDir,'/home/user/var/opt/myapp');
    $varDir = $app->varDir('import.log');
    $self->is($varDir,'/home/user/var/opt/myapp/import.log');
}
# -----------------------------------------------------------------------------
package main;
Quiq::ApplicationPaths::Test->runTests;
# eof