Update pckg_test_status_patterns.csv with more info to look for tests patterns.
#!perl -w
#
# Copyright (c) 2010 Symbian Foundation Ltd
# This component and the accompanying materials are made available
# under the terms of the License "Eclipse Public License v1.0"
# which accompanies this distribution, and is available
# at the URL "http://www.eclipse.org/legal/epl-v10.html".
#
# Initial Contributors:
# Symbian Foundation Ltd - initial contribution.
#
# Contributors:
#
# Description:
# Search physical drives to find either:
# * The one with the largest amount of free space
# * The one with the greatest capacity
# * The list of all such drives
use strict;
use Getopt::Long;
# Read option arguments
my $option;
my $ok = GetOptions(
'capacity' => \$option->{capacity},
'space' => \$option->{space},
'all' => \$option->{all},
'help|?' => \$option->{help},
);
if (defined $option->{help})
{
usage();
exit;
}
if (!$ok || @ARGV || 1 != scalar grep { defined $option->{$_} } keys %$option)
{
warn "Exactly one option must be supplied to indicate the required output\n$ok\n@ARGV\n";
usage();
exit(1);
}
# Use Windows command to list physical volumes on the machine
# (No substed drives, or mapped network drives)
my @details = map {chomp;$_} `echo list volume | diskpart`;
my @drives;
my %space;
my %capacity;
for my $driveLine (@details)
{
# If this line of output is actually about a healthy HD volume...
if ($driveLine =~ m{^\s+Volume \d+\s+([A-Z]).*?(Partition|RAID-5)\s+(\d+) ([A-Z]+)\s+Healthy} )
{
my ($letter, $capacityValue, $capacityUnit) = ($1, $3, $4);
my %multiplier = (
MB => 1000000,
GB => 1000000000,
TB => 1000000000000,
);
if (not exists $multiplier{$capacityUnit})
{
warn "Don't know how to interpret $capacityValue $capacityUnit\n";
next;
}
$capacityValue *= $multiplier{$capacityUnit};
# Ignore the system drive
next if ($driveLine =~ m{System\s*$});
# Use dir to get the freespace (bytes)
my @bytesFree = grep { s{^.*?(\d+) bytes free\s*$}{$1} } map {chomp;$_} `cmd /c dir /-C /A $letter:\\`;
# Take the value from the bottom of the report
my $bytesFree = $bytesFree[-1];
# Record info for this volume
push @drives, $letter;
$space{$bytesFree} = $letter;
$capacity{$capacityValue} = $letter;
}
}
die "Unable to find any suitable drives at all\n" unless %space;
if ($option->{all})
{
print join ",", map { "$_:" } @drives;
print "\n";
exit;
}
elsif ($option->{capacity})
{
# Sort by capacity to find the largest volume and print out the corresponding letter
print "$capacity{(reverse sort keys %capacity)[0]}:\n";
}
elsif ($option->{space})
{
# Sort by space to find the volume with the largest amount of space and print out the corresponding letter
print "$space{(reverse sort keys %space)[0]}:\n";
}
exit;
sub usage
{
$0 =~ m{[\\/]([^\\/]*)$};
print <<EOT;
Usage: $1 -all | -capacity | -space | -help
-all Outputs all physical drives in the system (separated by ',').
-capacity Outputs physical drive of greatest capacity in the system.
-space Outputs physical drive with greatest free space in the system.
-help Outputs this help message.
EOT
}