HG_REPOSITORIES/LPP/INSTRUMENTATION/USERS/JEANDET/qtcharts Files · tools/Jobs.pm

Copyright header changes Copyright header changes for Qt 5.5. Change-Id: I2b8e9356997de2c87a7436bcefd4d0948d566259 Reviewed-by: Miikka Heikkinen <miikka.heikkinen@theqtcompany.com>

Titta Heikkala - - Load All Authors

File last commit:

r2776:bc1f6aa59d42


                r2776:bc1f6aa59d42

Download file

             Jobs.pm
        
                    33 lines
            
             | 639 B
            
                | text/x-perl
            
             |
                PerlLexer
            
             / tools / Jobs.pm
          
                    History
                
                 |
                  Source
                 | Raw
                 |Copy content
                 |Copy permalink

        Jani Honkonen
    
Add a script for running tests

              r1134
            
      package Jobs;

      use File::Basename;

        Jani Honkonen
    
Added Config::Tiny as a local module....

              r1150
            
      use Tiny;

        Jani Honkonen
    
Add a script for running tests

              r1134
            
      sub get {

      	my $inifile = shift;

      	my $jobname = shift;

          # Strip the prefix from job name when using ${bamboo.buildPlanName}

        Titta Heikkala
    
Copyright header changes...

              r2776
            
              my $prefix = "Qt Charts component";

        Jani Honkonen
    
Add a script for running tests

              r1134
            
      	$jobname =~ s/$prefix//;

      	# read ini file

        Jani Honkonen
    
Switch to Config::Tiny. It comes out of the box with ActivePerl at least.

              r1149
            
      	my $cfg = Config::Tiny->read( $inifile );

        Jani Honkonen
    
Add a script for running tests

              r1134
            
      	# get section from ini by jobname

        Jani Honkonen
    
Switch to Config::Tiny. It comes out of the box with ActivePerl at least.

              r1149
            
      	my %job = %{$cfg->{$jobname}};

        Jani Honkonen
    
Add a script for running tests

              r1134
            
      	if (!%job) {

      		die ("Unknown jobname! Check $inifile and bamboo job name.");

      	}

      	# print out the ini settings

        Jani Honkonen
    
Fine tuning the auto test scripts

              r1138
            
      	print "\n\nini file: $inifile\n";

      	print "[$jobname]\n";

        Jani Honkonen
    
Add a script for running tests

              r1134
            
      	foreach (keys %job) {

        Jani Honkonen
    
Fine tuning the auto test scripts

              r1138
            
      		print $_ . "=" . $job{$_} . "\n";

        Jani Honkonen
    
Add a script for running tests

              r1134
            
      	}

        Jani Honkonen
    
Fine tuning the auto test scripts

              r1138
            
      	print "\n";

        Jani Honkonen
    
Add a script for running tests

              r1134
            
      	return %job;

      }

        Titta Heikkala
    
Copyright header changes...

              r2776
            
      1;

	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	package Jobs;
		use File::Basename;
Jani Honkonen Added Config::Tiny as a local module....	r1150	use Tiny;
Jani Honkonen Add a script for running tests	r1134
		sub get {
		my $inifile = shift;
		my $jobname = shift;

		# Strip the prefix from job name when using ${bamboo.buildPlanName}
Titta Heikkala Copyright header changes...	r2776	my $prefix = "Qt Charts component";
Jani Honkonen Add a script for running tests	r1134	$jobname =~ s/$prefix//;

		# read ini file
Jani Honkonen Switch to Config::Tiny. It comes out of the box with ActivePerl at least.	r1149	my $cfg = Config::Tiny->read( $inifile );

Jani Honkonen Add a script for running tests	r1134	# get section from ini by jobname
Jani Honkonen Switch to Config::Tiny. It comes out of the box with ActivePerl at least.	r1149	my %job = %{$cfg->{$jobname}};
Jani Honkonen Add a script for running tests	r1134	if (!%job) {
		die ("Unknown jobname! Check $inifile and bamboo job name.");
		}

		# print out the ini settings
Jani Honkonen Fine tuning the auto test scripts	r1138	print "\n\nini file: $inifile\n";
		print "[$jobname]\n";
Jani Honkonen Add a script for running tests	r1134	foreach (keys %job) {
Jani Honkonen Fine tuning the auto test scripts	r1138	print $_ . "=" . $job{$_} . "\n";
Jani Honkonen Add a script for running tests	r1134	}
Jani Honkonen Fine tuning the auto test scripts	r1138	print "\n";
Jani Honkonen Add a script for running tests	r1134
		return %job;
		}

Titta Heikkala Copyright header changes...	r2776	1;