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

Fine tuning the auto test scripts

Jani Honkonen - - Load All Authors

File last commit:

r1134:c7e20df73286


                r1138:9ac9f1032801

Download file

             build.pl
        
                    38 lines
            
             | 1.0 KiB
            
                | text/plain
            
             |
                PerlLexer
            
             / test / scripts / build.pl
          
                    History
                
                 |
                  Annotation
                 | Raw
                 |Copy content
                 |Copy permalink

      use File::Basename;

      use feature "switch";

      use lib 'test/scripts';

      use Jobs;

      # read command line params

      my $jobname = shift;

      # get script directory

      my $scriptdir = File::Basename::dirname($0);

      # read ini file

      my $inifile = $scriptdir . "/jobs.ini";

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

      # examine the platform

      given ($job{'Platform'}) {

      	when ("Win7") {

      		# construct a build command	

      		my @cmd;

      		if ($job{'ToolChain'} eq "mingw") {

      			@cmd = ($scriptdir . "\\build_win_mingw.bat", $job{'QtDir'}, $job{'Config'}, $job{'MinGWDir'});

      		}

      		if ($job{'ToolChain'} eq "vs2005") {

      			@cmd = ($scriptdir . "\\build_win_vs2005.bat", $job{'QtDir'}, $job{'Config'});

      		}

      		if ($job{'ToolChain'} eq "vs2008") {

      			@cmd = ($scriptdir . "\\build_win_vs2008.bat", $job{'QtDir'}, $job{'Config'});

      		}

      		if ($job{'ToolChain'} eq "vs2010") {

      			@cmd = ($scriptdir . "\\build_win_vs2010.bat", $job{'QtDir'}, $job{'Config'});

      		}

      		# run the build command

      		system (@cmd) == 0 or die "system @cmd failed: $?";

      	}

      	default {

      		die "Unknown platform " . $job{'Platform'};

      	}

      }

	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

				use File::Basename;
				use feature "switch";
				use lib 'test/scripts';
				use Jobs;

				# read command line params
				my $jobname = shift;

				# get script directory
				my $scriptdir = File::Basename::dirname($0);

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

				# examine the platform
				given ($job{'Platform'}) {
				when ("Win7") {
				# construct a build command
				my @cmd;
				if ($job{'ToolChain'} eq "mingw") {
				@cmd = ($scriptdir . "\\build_win_mingw.bat", $job{'QtDir'}, $job{'Config'}, $job{'MinGWDir'});
				}
				if ($job{'ToolChain'} eq "vs2005") {
				@cmd = ($scriptdir . "\\build_win_vs2005.bat", $job{'QtDir'}, $job{'Config'});
				}
				if ($job{'ToolChain'} eq "vs2008") {
				@cmd = ($scriptdir . "\\build_win_vs2008.bat", $job{'QtDir'}, $job{'Config'});
				}
				if ($job{'ToolChain'} eq "vs2010") {
				@cmd = ($scriptdir . "\\build_win_vs2010.bat", $job{'QtDir'}, $job{'Config'});
				}
				# run the build command
				system (@cmd) == 0 or die "system @cmd failed: $?";
				}
				default {
				die "Unknown platform " . $job{'Platform'};
				}
				}