1#!/usr/bin/perl -w
2######################################################################
3#
4# $Id: test_harness.local,v 1.2 2008/09/20 18:20:10 mavrik Exp $
5#
6######################################################################
7
8use strict;
9
10######################################################################
11#
12# GetTestNumber
13#
14######################################################################
15
16sub GetTestNumber
17{
18  return "1";
19}
20
21
22######################################################################
23#
24# This hash controls the order in which tests are performed.
25#
26######################################################################
27
28  my $phTestNumbers = GetTestNumbers();
29
30  %$phTestNumbers =
31  (
32    1 => "carve_1i_rl",
33    2 => "carve_2i_rl",
34    3 => "carve_3i_rl",
35  );
36
37
38######################################################################
39#
40# This hash holds test descriptions.
41#
42######################################################################
43
44  my $phTestDescriptions = GetTestDescriptions();
45
46  %$phTestDescriptions =
47  (
48    'carve_1i_rl' => "tests carver using 1-item range lists and a variable unit size",
49    'carve_2i_rl' => "tests carver using 2-item range lists and a variable unit size",
50    'carve_3i_rl' => "tests carver using 3-item range lists and a variable unit size",
51  );
52
53
54######################################################################
55#
56# This hash holds various test properties.
57#
58######################################################################
59
60  my $phTestProperties = GetTestProperties();
61
62  # Note: These range lists have been arranged such that the lower range is always [0-3].
63  #       This limits the number of _config_<unit_size>_<offset> files that are generated.
64  %$phTestProperties =
65  (
66    '1Item_RangeLists' => ["0", "0-0", "1", "1-1", "2", "2-2", "3", "3-3", "%LAST", "%LAST-%LAST"],
67    '2Item_RangeLists' => ["0-1,2-3", "1-2,4-5", "2-3,0-1", "3-4,1-2", "5,%LAST", "7,2-%LAST", "%LAST,0"],
68    '3Item_RangeLists' => ["0-1,2-3,4-5", "1-2,4-5,8-9", "2-3,0-1,6-7", "3-4,1-2,9", "5,%LAST,0", "7,2-%LAST,0", "%LAST,0,2-4"],
69    'UnitSizes' => [1, 512, 1024],
70  );
71
721;
73