diff options
| author | Andrey Ponomarenko <aponomarenko@rosalab.ru> | 2012-05-23 13:13:15 +0400 |
|---|---|---|
| committer | Andrey Ponomarenko <aponomarenko@rosalab.ru> | 2012-05-23 13:13:15 +0400 |
| commit | 62ddcfa624d1071a751d5d5d070836864c8c2508 (patch) | |
| tree | cf1649b3bc5864616fbf543be32fee130dc6c579 /modules/Internals | |
| parent | 850437949b65b213696469223d749c1f74c29601 (diff) | |
| download | abi-compliance-checker-62ddcfa624d1071a751d5d5d070836864c8c2508.tar.gz | |
ABI Compliance Checker 1.97.6
Diffstat (limited to 'modules/Internals')
| -rw-r--r--[-rwxr-xr-x] | modules/Internals/RegTests.pm | 21 | ||||
| -rw-r--r--[-rwxr-xr-x] | modules/Internals/SysCheck.pm | 0 |
2 files changed, 14 insertions, 7 deletions
diff --git a/modules/Internals/RegTests.pm b/modules/Internals/RegTests.pm index c2ee750..5e923f8 100755..100644 --- a/modules/Internals/RegTests.pm +++ b/modules/Internals/RegTests.pm @@ -23,14 +23,14 @@ ########################################################################### use strict; -my ($TestDump, $Debug, $Quiet, $ExtendedCheck, $LogMode, -$ReportFormat, $LIB_EXT, $GCC_PATH, $Browse); +my ($TestDump, $Debug, $Quiet, $ExtendedCheck, $LogMode, $ReportFormat, +$LIB_EXT, $GCC_PATH, $Browse, $OpenReport, $SortDump); my $OSgroup = get_OSgroup(); -sub testTool($$$$$$$$$) +sub testTool($$$$$$$$$$$) { - ($TestDump, $Debug, $Quiet, $ExtendedCheck, - $LogMode, $ReportFormat, $LIB_EXT, $GCC_PATH, $Browse) = @_; + ($TestDump, $Debug, $Quiet, $ExtendedCheck, $LogMode, $ReportFormat, + $LIB_EXT, $GCC_PATH, $Browse, $OpenReport, $SortDump) = @_; testC(); testCpp(); } @@ -4229,8 +4229,12 @@ sub runTests($$$$$$$$) } # running the tool my @Cmd = ("perl", $0, "-l", $LibName, "-d1", "$LibName/v1.xml", "-d2", "$LibName/v2.xml"); - if($TestDump) { + if($TestDump) + { @Cmd = (@Cmd, "-use-dumps"); + if($SortDump) { + @Cmd = (@Cmd, "-sort"); + } } if($GCC_PATH ne "gcc") { @Cmd = (@Cmd, "-cross-gcc", $GCC_PATH); @@ -4258,10 +4262,13 @@ sub runTests($$$$$$$$) if($Browse) { @Cmd = (@Cmd, "-browse", $Browse); } + if($OpenReport) { + @Cmd = (@Cmd, "-open"); + } if($Debug) { # debug mode @Cmd = (@Cmd, "-debug"); - printMsg("INFO", "@Cmd"); + printMsg("INFO", "running @Cmd"); } system(@Cmd); my $RPath = "compat_reports/$LibName/1.0_to_2.0/compat_report.$ReportFormat"; diff --git a/modules/Internals/SysCheck.pm b/modules/Internals/SysCheck.pm index 4f62cc6..4f62cc6 100755..100644 --- a/modules/Internals/SysCheck.pm +++ b/modules/Internals/SysCheck.pm |