HG_REPOSITORIES/LPP/INSTRUMENTATION/USERS/JEANDET/qtcharts Files · test/scripts/run_tests.pl

Left-overs from QML model API change

Jani Honkonen - - Load All Authors

File last commit:

r1137:696303b9edc0


                r1142:2246bb6a7b77

Download file

             run_tests.pl
        
                    75 lines
            
             | 2.0 KiB
            
                | text/plain
            
             |
                PerlLexer
            
             / test / scripts / run_tests.pl
          
                    History
                
                 |
                  Source
                 | Raw
                 |Copy content
                 |Copy permalink

        Jani Honkonen
    
Add a script for running tests

              r1134
            
      use Cwd;

      use Cwd 'abs_path';

      use File::Basename;

      use File::Copy;

      use lib 'test/scripts';

      use Jobs;

      # read command line params

      my $jobname = shift;

      # read ini file

      my $inifile = File::Basename::dirname($0) . "/jobs.ini";

      my %job = Jobs::get($inifile, $jobname);

        Jani Honkonen
    
run_tests.pl: return an error code if a test fails

              r1136
            
      # set/get paths

        Jani Honkonen
    
run_tests.pl: try to fix auto test running in win7

              r1135
            
      my $root_path = abs_path();

        Jani Honkonen
    
Remove extra "test" folder. Put all binaries in the bin.

              r1137
            
      my $bin_path = "$root_path/bin/";

        Jani Honkonen
    
run_tests.pl: return an error code if a test fails

              r1136
            
      my $reports_path = "test-reports";

      # create reports path

        Jani Honkonen
    
Remove extra "test" folder. Put all binaries in the bin.

              r1137
            
      mkdir $reports_path;

        Jani Honkonen
    
run_tests.pl: try to fix auto test running in win7

              r1135
            
        Jani Honkonen
    
Add a script for running tests

              r1134
            
      # Windows specific magic

      if ($job{'Platform'} eq "Win7") {

      	$ENV{'PATH'} .= ";" . $job{'QtDir'} . "\\bin"; # Add qtdir to path

        Jani Honkonen
    
run_tests.pl: try to fix auto test running in win7

              r1135
            
      	$ENV{'PATH'} =~ s/\//\\/g; # replace / -> \

        Jani Honkonen
    
Add a script for running tests

              r1134
            
      }

        Jani Honkonen
    
run_tests.pl: return an error code if a test fails

              r1136
            
      my $script_exit_status = 0;

        Jani Honkonen
    
Add a script for running tests

              r1134
            
      # Go through all the files in the test folder

        Jani Honkonen
    
run_tests.pl: return an error code if a test fails

              r1136
            
      # autotest is an executable beginning with "tst_"

        Jani Honkonen
    
Remove extra "test" folder. Put all binaries in the bin.

              r1137
            
      opendir (TESTAPPDIR, "$bin_path") or die "Couldn't open test app dir";

        Jani Honkonen
    
Add a script for running tests

              r1134
            
      @files = <TESTAPPDIR>;

      while ($testapp = readdir TESTAPPDIR) {

          if (index($testapp, "tst_") == 0) {

        Jani Honkonen
    
Remove extra "test" folder. Put all binaries in the bin.

              r1137
            
              if (-x "$bin_path$testapp") {

        Jani Honkonen
    
run_tests.pl: return an error code if a test fails

              r1136
            
                  my $status = executeTestApp($testapp);

      			if ($status != 0) {

      				$script_exit_status = $status;

      			}

        Jani Honkonen
    
Add a script for running tests

              r1134
            
              } else {

                  #print "file $testapp not executable\n";

              }

          }

      }

      closedir TESTAPPDIR;

        Jani Honkonen
    
Remove extra "test" folder. Put all binaries in the bin.

              r1137
            
      print "\n*** script exit status : $script_exit_status ***\n\n";

        Jani Honkonen
    
run_tests.pl: return an error code if a test fails

              r1136
            
      exit($script_exit_status);

        Jani Honkonen
    
Add a script for running tests

              r1134
            
        Jani Honkonen
    
run_tests.pl: return an error code if a test fails

              r1136
            
      sub executeTestApp($) {

          my $testapp = $_[0];

      	# On OSX the actual test binary is in a sub folder

      	my $cmd_postfix = "";

      	if ($^O eq "darwin") {

      		$cmd_postfix = "/Contents/MacOS/$testapp";

      		$cmd_postfix = substr($cmd_postfix, 0, rindex($cmd_postfix, ".app"));

      	}

        Jani Honkonen
    
Remove extra "test" folder. Put all binaries in the bin.

              r1137
            
          my $cmd = "$bin_path$testapp$cmd_postfix -xunitxml -o $reports_path/$testapp.xml";

        Jani Honkonen
    
run_tests.pl: return an error code if a test fails

              r1136
            
          print "executing: $cmd\n";

        Jani Honkonen
    
Remove extra "test" folder. Put all binaries in the bin.

              r1137
            
          system($cmd);

      	# From http://perldoc.perl.org/perlvar.html about $?:

      	# The upper eight bits reflect specific error conditions encountered by the

          # program (the program's exit() value). The lower eight bits reflect

          # mode of failure, like signal death and core dump information.

          # See wait(2) for details. 

        Jani Honkonen
    
Add a script for running tests

              r1134
            
          my $exit_status = $? >> 8;

        Jani Honkonen
    
Remove extra "test" folder. Put all binaries in the bin.

              r1137
            
          print "\texit status: $exit_status\n";

        Jani Honkonen
    
run_tests.pl: return an error code if a test fails

              r1136
            
      	return $exit_status;

        Jani Honkonen
    
Add a script for running tests

              r1134
            
      }

	Site-wide shortcuts
/	Use quick search box
g h	Goto home page
g g	Goto my private gists page
g G	Goto my public gists page
g 0-9	Goto bookmarked items from 0-9
n r	New repository page
n g	New gist page

	Repositories
g s	Goto summary page
g c	Goto changelog page
g f	Goto files page
g F	Goto files page with file search activated
g p	Goto pull requests page
g o	Goto repository settings
g O	Goto repository access permissions settings
t s	Toggle sidebar on some pages

Jani Honkonen Add a script for running tests	r1134	use Cwd;
		use Cwd 'abs_path';
		use File::Basename;
		use File::Copy;
		use lib 'test/scripts';
		use Jobs;

		# read command line params
		my $jobname = shift;

		# read ini file
		my $inifile = File::Basename::dirname($0) . "/jobs.ini";
		my %job = Jobs::get($inifile, $jobname);

Jani Honkonen run_tests.pl: return an error code if a test fails	r1136	# set/get paths
Jani Honkonen run_tests.pl: try to fix auto test running in win7	r1135	my $root_path = abs_path();
Jani Honkonen Remove extra "test" folder. Put all binaries in the bin.	r1137	my $bin_path = "$root_path/bin/";
Jani Honkonen run_tests.pl: return an error code if a test fails	r1136	my $reports_path = "test-reports";

		# create reports path
Jani Honkonen Remove extra "test" folder. Put all binaries in the bin.	r1137	mkdir $reports_path;
Jani Honkonen run_tests.pl: try to fix auto test running in win7	r1135
Jani Honkonen Add a script for running tests	r1134	# Windows specific magic
		if ($job{'Platform'} eq "Win7") {
		$ENV{'PATH'} .= ";" . $job{'QtDir'} . "\\bin"; # Add qtdir to path
Jani Honkonen run_tests.pl: try to fix auto test running in win7	r1135	$ENV{'PATH'} =~ s/\//\\/g; # replace / -> \
Jani Honkonen Add a script for running tests	r1134	}

Jani Honkonen run_tests.pl: return an error code if a test fails	r1136	my $script_exit_status = 0;

Jani Honkonen Add a script for running tests	r1134	# Go through all the files in the test folder
Jani Honkonen run_tests.pl: return an error code if a test fails	r1136	# autotest is an executable beginning with "tst_"
Jani Honkonen Remove extra "test" folder. Put all binaries in the bin.	r1137	opendir (TESTAPPDIR, "$bin_path") or die "Couldn't open test app dir";
Jani Honkonen Add a script for running tests	r1134	@files = <TESTAPPDIR>;
		while ($testapp = readdir TESTAPPDIR) {
		if (index($testapp, "tst_") == 0) {
Jani Honkonen Remove extra "test" folder. Put all binaries in the bin.	r1137	if (-x "$bin_path$testapp") {
Jani Honkonen run_tests.pl: return an error code if a test fails	r1136	my $status = executeTestApp($testapp);
		if ($status != 0) {
		$script_exit_status = $status;
		}
Jani Honkonen Add a script for running tests	r1134	} else {
		#print "file $testapp not executable\n";
		}
		}
		}
		closedir TESTAPPDIR;

Jani Honkonen Remove extra "test" folder. Put all binaries in the bin.	r1137	print "\n* script exit status : $script_exit_status *\n\n";
Jani Honkonen run_tests.pl: return an error code if a test fails	r1136	exit($script_exit_status);
Jani Honkonen Add a script for running tests	r1134
Jani Honkonen run_tests.pl: return an error code if a test fails	r1136	sub executeTestApp($) {
		my $testapp = $_[0];

		# On OSX the actual test binary is in a sub folder
		my $cmd_postfix = "";
		if ($^O eq "darwin") {
		$cmd_postfix = "/Contents/MacOS/$testapp";
		$cmd_postfix = substr($cmd_postfix, 0, rindex($cmd_postfix, ".app"));
		}

Jani Honkonen Remove extra "test" folder. Put all binaries in the bin.	r1137	my $cmd = "$bin_path$testapp$cmd_postfix -xunitxml -o $reports_path/$testapp.xml";
Jani Honkonen run_tests.pl: return an error code if a test fails	r1136	print "executing: $cmd\n";
Jani Honkonen Remove extra "test" folder. Put all binaries in the bin.	r1137	system($cmd);

		# From http://perldoc.perl.org/perlvar.html about $?:
		# The upper eight bits reflect specific error conditions encountered by the
		# program (the program's exit() value). The lower eight bits reflect
		# mode of failure, like signal death and core dump information.
		# See wait(2) for details.
Jani Honkonen Add a script for running tests	r1134	my $exit_status = $? >> 8;
Jani Honkonen Remove extra "test" folder. Put all binaries in the bin.	r1137	print "\texit status: $exit_status\n";
Jani Honkonen run_tests.pl: return an error code if a test fails	r1136
		return $exit_status;
Jani Honkonen Add a script for running tests	r1134	}