Couple more test-harness platform tweaks
This commit is contained in:
		
							parent
							
								
									2a278ad29b
								
							
						
					
					
						commit
						15b7d18104
					
				| 
						 | 
					@ -120,11 +120,18 @@ sub initialize() {
 | 
				
			||||||
#
 | 
					#
 | 
				
			||||||
sub run() {
 | 
					sub run() {
 | 
				
			||||||
 | 
					
 | 
				
			||||||
  my $twpassed = 1;
 | 
					 | 
				
			||||||
 | 
					 | 
				
			||||||
    twtools::logStatus("*** Beginning $description\n");
 | 
					    twtools::logStatus("*** Beginning $description\n");
 | 
				
			||||||
    printf("%-30s", "-- $description");
 | 
					    printf("%-30s", "-- $description");
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    if ($^O eq "skyos") {
 | 
				
			||||||
 | 
					        ++$twtools::twskippedtests;
 | 
				
			||||||
 | 
					        print "SKIPPED; TODO: SkyOS has fewer expected changes here; refactor so we can test for correct values\n";
 | 
				
			||||||
 | 
					        return;
 | 
				
			||||||
 | 
					    }
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					    my $twpassed = 1;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					
 | 
				
			||||||
    #########################################################
 | 
					    #########################################################
 | 
				
			||||||
    #
 | 
					    #
 | 
				
			||||||
    # Run the tests describe above in the %TESTS structure.
 | 
					    # Run the tests describe above in the %TESTS structure.
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
| 
						 | 
					@ -137,7 +137,7 @@ processCommandLine();
 | 
				
			||||||
prepareListOfTests() if scalar(@twtests) == 0;  # only if none were on the cmdline
 | 
					prepareListOfTests() if scalar(@twtests) == 0;  # only if none were on the cmdline
 | 
				
			||||||
 | 
					
 | 
				
			||||||
print "\n";
 | 
					print "\n";
 | 
				
			||||||
print "initializing for tests on $^O…\n\n";
 | 
					print "initializing for tests on $^O...\n\n";
 | 
				
			||||||
 | 
					
 | 
				
			||||||
print "logging to $ENV{'PWD'}/$twtools::twrootdir/status.log\n\n";
 | 
					print "logging to $ENV{'PWD'}/$twtools::twrootdir/status.log\n\n";
 | 
				
			||||||
 | 
					
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
		Reference in New Issue