View | Details | Raw Unified | Return to bug 38936
Collapse All | Expand All

(-)a/t/db_dependent/Output.t (-9 / +2 lines)
Lines 61-84 subtest 'redirect_if_opac_suppressed() tests' => sub { Link Here
61
61
62
    subtest 'not suppressed tests' => sub {
62
    subtest 'not suppressed tests' => sub {
63
63
64
        plan tests => 2;
64
        plan tests => 1;
65
65
66
        open STDOUT, '>', \$stdout;
66
        open STDOUT, '>', \$stdout;
67
        $opac_suppressed = 0;
67
        $opac_suppressed = 0;
68
68
69
        my $warnings;
70
        local $SIG{__WARN__} = sub { $warnings = shift };
71
        redirect_if_opac_suppressed( $query, $biblio );
69
        redirect_if_opac_suppressed( $query, $biblio );
72
70
73
        is( $stdout, undef, 'No redirection if the biblio is not suppressed' );
71
        is( $stdout, undef, 'No redirection if the biblio is not suppressed' );
74
        ok( !$warnings, "safe_exit not called" );
75
72
76
        close STDOUT;
73
        close STDOUT;
77
    };
74
    };
78
75
79
    subtest 'suppressed tests' => sub {
76
    subtest 'suppressed tests' => sub {
80
77
81
        plan tests => 11;
78
        plan tests => 10;
82
79
83
        $opac_suppressed = 1;
80
        $opac_suppressed = 1;
84
81
Lines 151-162 subtest 'redirect_if_opac_suppressed() tests' => sub { Link Here
151
148
152
            $ENV{REMOTE_ADDR} = '192.168.0.115';
149
            $ENV{REMOTE_ADDR} = '192.168.0.115';
153
150
154
            my $warnings;
155
            local $SIG{__WARN__} = sub { $warnings = shift };
156
            redirect_if_opac_suppressed( $query, $biblio );
151
            redirect_if_opac_suppressed( $query, $biblio );
157
152
158
            is( $stdout, undef, 'No redirection if the IP is on the range' );
153
            is( $stdout, undef, 'No redirection if the IP is on the range' );
159
            ok( !$warnings, "safe_exit not called" );
160
154
161
            undef $stdout;
155
            undef $stdout;
162
156
163
- 

Return to bug 38936