Dave Cross: Still Munging Data With Perl: Online event - Mar 27 Learn more

THALJEF / Pinto-0.14 / t / 02-bowels / 02-chrome.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

              
#!perl
use strict;
use warnings;
use Test::More;
use Test::Exception;
use Pinto::Chrome::Term;
#-----------------------------------------------------------------------------
subtest 'verbosity 0' => sub {
    my $chrome = Pinto::Chrome::Term->new;
    is $chrome->should_render_diag(0), 1, 'Diag level 0 at default vebosity';
    is $chrome->should_render_diag(1), 1, 'Diag level 1 at default vebosity';
    is $chrome->should_render_diag(2), 0, 'Diag level 2 at default vebosity';
    is $chrome->should_render_diag(3), 0, 'Diag level 3 at default vebosity';
    # local $Pinto::Globals::is_interactive = 1;
    # is $chrome->should_render_progress, 1, 'Show progress at default verbosity, when interactive';
    local $Pinto::Globals::is_interactive = 0;
    is $chrome->should_render_progress, 0, 'Hide progress at default verbosity, when not interactive';
};
#-----------------------------------------------------------------------------
subtest 'verbosity 1' => sub {
    my $chrome = Pinto::Chrome::Term->new( verbose => 1 );
    is $chrome->should_render_diag(0), 1, 'Diag level 0 at verbose = 1';
    is $chrome->should_render_diag(1), 1, 'Diag level 1 at verbose = 1';
    is $chrome->should_render_diag(2), 1, 'Diag level 2 at verbose = 1';
    is $chrome->should_render_diag(3), 0, 'Diag level 3 at verbose = 1';
    is $chrome->should_render_progress, 0, 'Hide progress at verbose = 1';
};
#-----------------------------------------------------------------------------
subtest 'quiet 1' => sub {
    my $chrome = Pinto::Chrome::Term->new( quiet => 1 );
    is $chrome->should_render_diag(0), 1, 'Diag level when quiet';
    is $chrome->should_render_diag(1), 0, 'Diag level when quiet';
    is $chrome->should_render_diag(2), 0, 'Diag level when quiet';
    is $chrome->should_render_diag(3), 0, 'Diag level when quiet';
    is $chrome->should_render_progress, 0, 'Hide progress when quiet';
};
#-----------------------------------------------------------------------------
subtest 'color palette' => sub {
    local $ENV{PINTO_PALETTE} = 'dark blue,  white on_red,green';
    my $chrome = Pinto::Chrome::Term->new;
    is_deeply $chrome->palette, [ 'dark blue', 'white on_red', 'green' ], 'Parsed color list';
};
#-----------------------------------------------------------------------------
subtest 'no color' => sub {
    local $ENV{PINTO_NO_COLOR} = 1;
    my ( $out, $err ) = ( '', '' );
    my $chrome = Pinto::Chrome::Term->new( stdout => \$out, stderr => \$err );
    $chrome->error('This is diagnostic');
    $chrome->show('This is output');
    is $out, "This is output\n",     'Got stuff on output handle';
    is $err, "This is diagnostic\n", 'Got stuff on error handle';
};
#-----------------------------------------------------------------------------
subtest 'derive editor' => sub {
    my $chrome = Pinto::Chrome::Term->new;
    local $ENV{VISUAL} = '';
    local $ENV{EDITOR} = '';
    local $ENV{PINTO_EDITOR} = 'emacs';
    is $chrome->find_editor, $ENV{PINTO_EDITOR}, 'Editor from PINTO_EDITOR';
    local $ENV{VISUAL} = '';
    local $ENV{EDITOR} = 'emacs';
    local $ENV{PINTO_EDITOR} = '';
    is $chrome->find_editor, $ENV{EDITOR}, 'Editor from EDITOR';
    local $ENV{VISUAL} = 'emacs';
    local $ENV{EDITOR} = '';
    local $ENV{PINTO_EDITOR} = '';
    is $chrome->find_editor, $ENV{VISUAL}, 'Editor from VISUAL';
    local $ENV{PATH} = '';
    local $ENV{VISUAL} = '';
    local $ENV{EDITOR} = '';
    local $ENV{PINTO_EDITOR} = '';
    is $chrome->find_editor, undef, 'No editor is avaiable';
};
#-----------------------------------------------------------------------------
done_testing;