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