X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/d649c1b9b2415afa32720000a369572588ce6462..bd0d32d80b6162bd2888f98fe0cb1c9beaf9f6f7:/buildtools/Cmake/tesh.pl

diff --git a/buildtools/Cmake/tesh.pl b/buildtools/Cmake/tesh.pl
old mode 100644
new mode 100755
index cae0a63a08..a1ec8afc8f
--- a/buildtools/Cmake/tesh.pl
+++ b/buildtools/Cmake/tesh.pl
@@ -1,38 +1,97 @@
-#!perl -w
-use strict;
-
-if($#ARGV!=1) {
-    die "Usage: perl tesh.pl <directory> <teshfile.tesh>\n";
-}
-
-my($directory)=$ARGV[0];
-my($file)=$ARGV[1];
-
-chdir("$directory");
-
-open SH_LIGNE, $file or die "Unable to open $file. $!\n";
-
-my($line);
-my($line_exec);
-my($l);
-my($tmp);
-
-while(defined($line=<SH_LIGNE>))
-{
-
-		if($line =~ /^\$(.*)$/) 
-	    	{
-			$line_exec = $line;
-			$line =~ s/\$\{srcdir\:\=\.\}/./g;
-			$line =~ s/\$SG_TEST_EXENV//g;
-			$line =~ s/\$EXEEXT//g;
-			$line =~ s/^\$\ */.\//g;
-			$line =~ s/^.\/lua/lua/g;
-			$line =~ s/^.\/ruby/ruby/g;
-			print "$line_exec\n";
-			chomp $line;
-			system "$line";
-			}
-}
-
-close(SH_LIGNE);
+#! /usr/bin/perl -w
+
+use strict;
+
+if($#ARGV!=2){die "Usage: tesh.pl --cd <directory> <teshfile.tesh>\n";}
+my($line1);
+my($line2);
+my($execline);
+my($ok)=0;
+my($nb_arg)=0;
+
+do{
+	if($ARGV[$nb_arg] =~ /^--cd$/)
+	{
+		$nb_arg++;
+		my($directory)=$ARGV[$nb_arg];
+		chdir("$directory");
+		print "Change directory to \"$directory\"\n";	
+	}
+	$nb_arg++;
+}while(($nb_arg-1)!=$#ARGV);
+
+my($file)=$ARGV[$nb_arg-1];
+open SH_LIGNE, $file or die "Unable to open $file. $!\n";
+
+while(defined($line1=<SH_LIGNE>))
+{
+		if($line1 =~ /^\$/){  	#command line
+			$ok = 1;
+			$line1 =~ s/\$\{srcdir\:\=\.\}/./g;
+			$line1 =~ s/\$SG_TEST_EXENV//g;
+			$line1 =~ s/\$SG_EXENV_TEST//g;
+			$line1 =~ s/\$EXEEXT//g;
+			$line1 =~ s/\${EXEEXT:=}//g;
+			$line1 =~ s/^\$\ *//g;
+			$line1 =~ s/^.\/lua/lua/g;
+			$line1 =~ s/^.\/ruby/ruby/g;
+			
+			$line1 =~ s/\(%i:%P@%h\)/\\\(%i:%P@%h\\\)/g;
+			chomp $line1;
+			$execline = $line1;
+			print "$execline\n";
+			system "$execline 1>output_tesh.txt 2>output_tesh_err.txt";
+			close(FILE_ERR);
+			close(FILE);
+			open (FILE, "output_tesh.txt");
+			open (FILE_ERR, "output_tesh_err.txt");}
+			
+		if($line1 =~ /^\>/){	#expected result line
+			if($ok == 0){die "No command line$!";}
+			$line1 =~ s/^\> //g;
+			$line1 =~ s/\r//g;
+			chomp $line1;
+			
+			if($line1 =~ /^.*\[.*\].*\[.*\/INFO\].*$/)
+				{if(!defined($line2=<FILE_ERR>))
+					{	print "- $line1\n";
+						die;}}
+			elsif($line1 =~ /^.*\[.*\].*\[.*\/WARNING\].*$/)
+				{if(!defined($line2=<FILE_ERR>))
+					{	print "- $line1\n";
+						die;}}
+			elsif($line1 =~ /^.*\[.*\].*\[.*\/CRITICAL\].*$/)
+				{if(!defined($line2=<FILE_ERR>))
+					{	print "- $line1\n";
+						die;}}
+			elsif($line1 =~ /^.*\[.*\].*\[.*\/DEBUG\].*$/)
+				{if(!defined($line2=<FILE_ERR>))
+					{	print "- $line1\n";
+						die;}}
+			elsif($line1 =~ /^.*\[.*\].*\[0\:\@\].*$/)
+				{if(!defined($line2=<FILE_ERR>))
+					{	print "- $line1\n";
+						die;}}
+			elsif($line1 =~ /^.*\[.*\].*\(0\:\@\).*$/)
+				{if(!defined($line2=<FILE_ERR>))
+					{	print "- $line1\n";
+						die;}}
+			else{if(!defined($line2=<FILE>))
+					{	print "- $line1\n";
+						die;}}		
+			$line2 =~ s/\r//g;							
+			chomp $line2;
+			
+			if($line2 eq $line1){}
+			else
+			{	print "- $line1\n";
+				print "+ $line2\n";
+				die;}}	
+}
+if($ok == 1){
+	print "Test of \"$file\" OK\n";
+	$ok = 0;}
+	
+close(SH_LIGNE);
+close(FILE_ERR);
+close(FILE);
\ No newline at end of file