1#!/usr/bin/perl
2#  ********************************************************************
3#  * Copyright (C) 2016 and later: Unicode, Inc. and others.
4#  * License & terms of use: http://www.unicode.org/copyright.html
5#  ********************************************************************
6#  ********************************************************************
7#  * Copyright (c) 2002-2013, International Business Machines
8#  * Corporation and others. All Rights Reserved.
9#  ********************************************************************
10
11#use strict;
12
13require "../perldriver/Common.pl";
14
15use lib '../perldriver';
16
17use PerfFramework;
18
19my $options = {
20    "title"=>"Normalization performance: ICU ".$ICULatestVersion." vs. Win",
21    "headers"=>"Win ICU".$ICULatestVersion,
22    "operationIs"=>"code point",
23    "passes"=>"10",
24    "time"=>"5",
25    #"outputType"=>"HTML",
26    "dataDir"=>$CollationDataPath,
27    "outputDir"=>"../results"
28};
29
30# programs
31# tests will be done for all the programs. Results will be stored and connected
32my $p = "cd ".$ICULatest."/bin && ".$ICUPathLatest."/normperf/$WindowsPlatform/Release/normperf.exe -b -u";
33
34my $tests = {
35    "NFC_NFD_Text",  ["$p,TestWin_NFC_NFD_Text"  ,  "$p,TestICU_NFC_NFD_Text" ],
36    "NFC_NFC_Text",  ["$p,TestWin_NFC_NFC_Text"  ,  "$p,TestICU_NFC_NFC_Text" ],
37    "NFC_Orig_Text", ["$p,TestWin_NFC_Orig_Text" ,  "$p,TestICU_NFC_Orig_Text"],
38    "NFD_NFD_Text",  ["$p,TestWin_NFD_NFD_Text"  ,  "$p,TestICU_NFD_NFD_Text" ],
39    "NFD_NFC_Text",  ["$p,TestWin_NFD_NFC_Text"  ,  "$p,TestICU_NFD_NFC_Text" ],
40    "NFD_Orig_Text", ["$p,TestWin_NFD_Orig_Text" ,  "$p,TestICU_NFD_Orig_Text"]
41};
42
43my $dataFiles = {
44    "",
45    [
46        "TestNames_Asian.txt",
47        "TestNames_Chinese.txt",
48        "TestNames_Japanese.txt",
49        "TestNames_Japanese_h.txt",
50        "TestNames_Japanese_k.txt",
51        "TestNames_Korean.txt",
52        "TestNames_Latin.txt",
53        "TestNames_SerbianSH.txt",
54        "TestNames_SerbianSR.txt",
55        "TestNames_Thai.txt",
56        "Testnames_Russian.txt",
57        "th18057.txt",
58        "thesis.txt",
59        "vfear11a.txt",
60    ]
61};
62
63runTests($options, $tests, $dataFiles);
64