secureswitools/swisistools/test/tdumpsis/testdumpsis.pl
branchRCL_3
changeset 26 8b7f4e561641
parent 25 7333d7932ef7
equal deleted inserted replaced
25:7333d7932ef7 26:8b7f4e561641
  1517 	my $result1 = system("/epoc32/tools/DUMPSIS $TestNRflagsis > $TestNRflagLog");
  1517 	my $result1 = system("/epoc32/tools/DUMPSIS $TestNRflagsis > $TestNRflagLog");
  1518 	
  1518 	
  1519 	use Cwd;
  1519 	use Cwd;
  1520 	$dir = cwd;
  1520 	$dir = cwd;
  1521 	chdir $dir.$DumpsisGenPkgPath;
  1521 	chdir $dir.$DumpsisGenPkgPath;
       
  1522 	
  1522 	open($pkgcontent,$TestNRflagpkg);
  1523 	open($pkgcontent,$TestNRflagpkg);
  1523 	foreach (<$pkgcontent>) 
  1524 	foreach (<$pkgcontent>) 
  1524 	{
  1525 	{
  1525 		$_ =~ tr/\000//d;
  1526 		$_ =~ tr/\000//d;
  1526 		if ($_ =~ m/$ExpectedStringInDumpedPackage/) 
  1527 		if ($_ =~ m/$ExpectedStringInDumpedPackage/) 
  1527 		{
  1528 		{
  1528 			$result2 = 1;
  1529 			$result2 = 1;
  1529 		}
  1530 		}
  1530 	}
  1531 	}
  1531 	close($pkgcontent);
  1532 	close($pkgcontent);
  1532 
  1533 	
  1533 	chdir $dir;
  1534 	chdir $dir;
  1534 	$NumberOfTests++;
  1535 	$NumberOfTests++;
  1535 	if ($result == 0 && $result1 == 0 && $result2 == 1) 
  1536 	if ($result == 0 && $result1 == 0 && $result2 == 1) 
  1536 		{
  1537 		{
  1537 		$NumberOfPassed++;
  1538 		$NumberOfPassed++;