aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorlouise <louise>2009-09-24 09:29:27 +0000
committerlouise <louise>2009-09-24 09:29:27 +0000
commitcc02b2ee4d30073452d4139d517ecc1aa3f457b8 (patch)
tree0baceeeb9cb8ba654f14afe1411fb37af621cad7
parent64be5f58ca223a7faefc2b443a025c096a6e88fa (diff)
Oops remove commented out tests
-rwxr-xr-xbin/test-run18
1 files changed, 9 insertions, 9 deletions
diff --git a/bin/test-run b/bin/test-run
index 572afa193..ccaf4e319 100755
--- a/bin/test-run
+++ b/bin/test-run
@@ -19,7 +19,7 @@
# RSS
# Whatever I've missed!
-my $rcsid = ''; $rcsid .= '$Id: test-run,v 1.21 2009-09-24 09:25:45 louise Exp $';
+my $rcsid = ''; $rcsid .= '$Id: test-run,v 1.22 2009-09-24 09:29:27 louise Exp $';
use strict;
require 5.8.0;
@@ -87,14 +87,14 @@ my $errors = $wth->_log_watcher_get_errors(); # As Perl has two error lines.
foreach (@actions) {
next unless $action->{$_};
date_print($actions_desc{$_}) if $actions_desc{$_};
- #do_report() if $_ eq 'report';
- #do_update() if $_ eq 'update';
- #do_questionnaire() if $_ eq 'questionnaire';
- #do_alert() if $_ eq 'alert';
- #do_static() if $_ eq 'static';
- #do_cobrand() if $_ eq 'cobrand';
- #do_unit() if $_ eq 'unit';
- #do_eha_alert() if $_ eq 'eha_alert';
+ do_report() if $_ eq 'report';
+ do_update() if $_ eq 'update';
+ do_questionnaire() if $_ eq 'questionnaire';
+ do_alert() if $_ eq 'alert';
+ do_static() if $_ eq 'static';
+ do_cobrand() if $_ eq 'cobrand';
+ do_unit() if $_ eq 'unit';
+ do_eha_alert() if $_ eq 'eha_alert';
do_import() if $_ eq 'import';
}