[svn:parrot] r36679 - trunk/languages/t

[fperrad at svn.parrot.org]

Author: fperrad
Date: Fri Feb 13 16:21:18 2009
New Revision: 36679
URL: https://trac.parrot.org/parrot/changeset/36679

Log:
[harness] remove --html option
(revert r35578)

Modified:
   trunk/languages/t/harness

Modified: trunk/languages/t/harness
==============================================================================
--- trunk/languages/t/harness	Fri Feb 13 15:39:17 2009	(r36678)
+++ trunk/languages/t/harness	Fri Feb 13 16:21:18 2009	(r36679)
@@ -57,10 +57,8 @@
 
 
 # Step 0: handle command line args
-my $do_gen_html;       # smoke testing
 my $languages_list;    # select a subset of languages
-my $result = GetOptions( 'html'          => \$do_gen_html,
-                         'languages=s'   => \$languages_list );
+my $result = GetOptions( 'languages=s'   => \$languages_list );
 
 # Step 1: find harness files for testable languages
 
@@ -109,74 +107,7 @@
 chomp(@tests);
 
 # Step 3: test.
-
-if ( ! $do_gen_html ) {
-    Test::Harness::runtests(@tests);
-}
-else {
-    my $html_fn = "languages_smoke.html";
-    my @smoke_config_vars = qw(
-      osname archname cc build_dir cpuarch revision VERSION optimize DEVEL
-    );
-
-    eval {
-        require Test::TAP::HTMLMatrix;
-        require Test::TAP::Model::Visual;
-    };
-    die "You must have Test::TAP::HTMLMatrix installed.\n\n$@"
-        if $@;
-
-    {
-        no warnings qw/redefine once/;
-        *Test::TAP::Model::run_tests = sub {
-            my $self = shift;
-
-            $self->_init;
-            $self->{meat}{start_time} = time();
-
-            my %stats;
-
-            foreach my $file (@_) {
-                my $data;
-                print STDERR "- $file\n";
-                $data = $self->run_test($file);
-                $stats{tests} += $data->{results}{max} || 0;
-                $stats{ok}    += $data->{results}{ok}  || 0;
-            }
-
-            printf STDERR "%s OK from %s tests (%.2f%% ok)\n\n",
-            $stats{ok},
-            $stats{tests},
-            $stats{ok} / $stats{tests} * 100;
-
-            $self->{meat}{end_time} = time();
-        };
-
-        my $start = time();
-        my $model = Test::TAP::Model::Visual->new_with_tests(@tests);
-        my $end   = time();
-
-        my $duration = $end - $start;
-        my $languages = join( q{ }, @unified_testable_languages );
-        my $v = Test::TAP::HTMLMatrix->new(
-            $model,
-            join("\n",
-                 "languages: $languages",
-                 "duration: $duration",
-                 "branch: unknown",
-                 "harness_args: languages",
-                 map { "$_: $PConfig{$_}" } sort @smoke_config_vars),
-        );
-
-        $v->has_inline_css(1); # no separate css file
-
-        open HTML, '>', $html_fn;
-        print HTML $v->html();
-        close HTML;
-
-        print "$html_fn has been generated.\n";
-    }
-}
+Test::Harness::runtests(@tests);
 
 # Local Variables:
 #   mode: cperl