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
124
125
126
127
128
129
#!./perl
# We suppose that perl _mostly_ works at this moment, so may use
# sophisticated testing.
BEGIN {
chdir 't' if -d 't';
}
my $torture; # torture testing?
shift;
$torture = 1;
}
# Let tests know they're running in the perl core. Useful for modules
# which live dual lives on CPAN.
#fudge DATA for now.
op/runlevel.t 1
);
foreach (keys %datahandle) {
}
my @tests = ();
if (@ARGV) {
}
else {
}
} else {
}
}
} else {
}
}
}
s,\\,/,g for @tests;
}
# %infinite = qw (
# lib/hostname.t 1
# op/lex_assign.t 1
# );
my $dhwrapper = <<'EOT';
my $new = $_;
local(*F, *T);
print T $dhwrapper, <F>;
close F;
close T;
}
$new;
} @tests;
" generate infinite loops! Skipping!\n";
foreach (keys %datahandle) {
}