Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision b56d9999

Von Sven Schöling vor mehr als 10 Jahren hinzugefügt

  • ID b56d9999d5b0be050f66feab190bc765e8ef46ea
  • Vorgänger 6fd52dd5
  • Nachfolger ed7a0c4a

t/structure/globals: Lexikalische Variablen sind schwer exportierbar.

Unterschiede anzeigen:

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