Revision b56d9999
Von Sven Schöling vor mehr als 10 Jahren hinzugefügt
| t/Support/CanonialGlobals.pm | ||
|---|---|---|
| 1 | 1 |
package Support::CanonialGlobals; |
| 2 | 2 |
|
| 3 |
my @globals = qw(
|
|
| 3 |
our @globals = qw(
|
|
| 4 | 4 |
$::lxdebug |
| 5 | 5 |
$::auth |
| 6 | 6 |
%::myconfig |
| t/structure/globals.t | ||
|---|---|---|
| 8 | 8 |
my (@globals, $testcount); |
| 9 | 9 |
|
| 10 | 10 |
BEGIN {
|
| 11 |
@globals = map { s/[^a-z_]//; $_ } @Support::CanonialGlobals::globals;
|
|
| 11 |
@globals = map { s/[^a-z_]//g; $_ } @Support::CanonialGlobals::globals;
|
|
| 12 | 12 |
$testcount = scalar(@Support::Files::testitems); |
| 13 | 13 |
} |
| 14 | 14 |
|
| 15 |
|
|
| 15 | 16 |
use Test::More tests => $testcount; |
| 16 | 17 |
|
| 17 | 18 |
# Capture the TESTOUT from Test::More or Test::Builder for printing errors. |
| ... | ... | |
| 53 | 54 |
if ($found_word) {
|
| 54 | 55 |
ok(0,"$file: found UNREGISTERED GLOBAL $found_word --WARNING"); |
| 55 | 56 |
} else {
|
| 56 |
ok(1,"$file does only contain registered globals");
|
|
| 57 |
ok(1,$file);
|
|
| 57 | 58 |
} |
| 58 | 59 |
} else {
|
| 59 | 60 |
ok(0,"could not open $file for globals check --WARNING"); |
Auch abrufbar als: Unified diff
t/structure/globals: Lexikalische Variablen sind schwer exportierbar.