Unverified Commit 9a317676 authored by boklm's avatar boklm
Browse files

Add tests descriptions

parent 9d5cbfcf

README

+3 −0
Original line number Diff line number Diff line
@@ -153,3 +153,6 @@ following actions are available: 
  reports_index::

        Create an index page listing the tests reports.



  list_tests::

        List available tests and their descriptions.

TBBTestSuite/Tests.pm

+18 −3
Original line number Diff line number Diff line
@@ -19,12 +19,27 @@ use TBBTestSuite::Common qw(exit_error); 
use TBBTestSuite::Options qw($options);



my %tests = (

    tor_bootstrap => { type => 'tor_bootstrap' },

    check_screenshot => { type => 'mozmill' },

    check => { type => 'selenium' },

    tor_bootstrap => {

        type  => 'tor_bootstrap',

        descr => 'Check that we can bootstrap tor',

    },

    check_screenshot => {

        type  => 'mozmill',

        descr => 'Load http://check.torproject.org/ and take a screenshot',

    },

    check => {

        type => 'selenium',

        descr => 'Check that http://check.torproject.org/ think we are using tor',

    },

);

%tests = map { $_ => { name => $_, %{$tests{$_}} } } keys %tests;



sub list_tests {

    foreach my $test (keys %tests) {

        print "$test ($tests{$test}->{type})\n   $tests{$test}->{descr}\n\n";

    }

}



sub get_tbbfile {

    my ($tbbinfos, $tbbfile) = @_;

    if ($tbbfile =~ m/^https?:\/\//) {

tbb-testsuite

+1 −0
Original line number Diff line number Diff line
@@ -25,6 +25,7 @@ sub run_tests { 


my %actions = (

    run_tests => \&run_tests,

    list_tests => \&TBBTestSuite::Tests::list_tests,

    reports_index => \&TBBTestSuite::Reports::make_reports_index,

);