File: 47-stress-use.t

package info (click to toggle)
libindirect-perl 0.33-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 368 kB
  • ctags: 135
  • sloc: perl: 2,457; ansic: 207; makefile: 2
file content (37 lines) | stat: -rw-r--r-- 745 bytes parent folder | download | duplicates (6)
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
#!perl -T

use strict;
use warnings;

use Test::More tests => 3 * (2 * 1);

my $n = 1_000;

sub linear {
 my ($n, $force_use) = @_;

 my @lines;
 my $use = $force_use;
 for (1 .. $n) {
  my $stmt = $use ? 'use indirect;' : 'no indirect;';
  $use = !$use unless defined $force_use;
  push @lines, "{ $stmt }";
 }

 return '{ no indirect; ', @lines, '}';
}

for my $test ([ 1, 'always use' ], [ 0, 'always no' ], [ undef, 'mixed' ]) {
 my ($force_use, $desc) = @$test;
 my $code = join "\n", linear $n, $force_use;
 my ($err, @warns);
 {
  local $SIG{__WARN__} = sub { push @warns, "@_" };
  local $@;
  eval $code;
  $err = $@;
 }
 is $err,   '', "linear ($desc): no errror";
 is @warns, 0,  "linear ($desc): no warnings";
 diag $_ for @warns;
}