Changeset 9733

Timestamp:

12/17/09 00:34:11 (2 years ago)

Author:

Sewi

Message:

Ticket #787: Check for breakpoints in source

File:

• trunk/Padre/xt/12-badcode.t (modified) (4 diffs)

trunk/Padre/xt/12-badcode.t

@@ -21 +21 @@
     $class => "lib/$_"
 } File::Find::Rule->relative->name('*.pm')->file->in('lib');
-plan( tests => scalar( keys %modules ) * 7 );
+plan( tests => scalar( keys %modules ) * 8 );
 
 # Compile all of Padre
@@ -62 +62 @@
 foreach my $module ( sort keys %modules ) {
 
+    my $content = read_file($modules{$module});
+
     # checking if only modules with Wx in their name depend on Wx
     if ($module =~ /^Padre::Wx/ or $module =~ /^Wx::/) {
@@ -67 +69 @@
         $Test->skip("$module is a Wx module");
     } else {
-        my $content = read_file($modules{$module});
         my ($error) = $content =~ m/^use\s+.*Wx.*;/gmx;
         my $Test = Test::Builder->new;
@@ -78 +79 @@
         }
     }
+
+    ok($content !~ /\$DB\:\:single/,$module.' uses $DB::Single - please remove before release');
 
     # Load the document