The Tor Browser / file comparison
comparison: intl/uconv/tests/stressgb.pl
intl/uconv/tests/stressgb.pl
- changeset 0
- 6474c204b198
equal
deleted
inserted
replaced
| -1:000000000000 | 0:a380839b8d5e |
|---|---|
| 1 #!/usr/bin/perl | |
| 2 use LWP::Simple; | |
| 3 use IO::Handle; | |
| 4 $stdout = *STDOUT; | |
| 5 open(RES , ">resultlog.txt") || die "cannot open result log file"; | |
| 6 #system("rm alldiff.txt in*.txt out*.txt"); | |
| 7 for($i=10;$i<909;$i++) | |
| 8 { | |
| 9 RES->printf("Test Page %d \n", $i); | |
| 10 $url = "http://people.netscape.com/ftang/testscript/gb18030/gbtext.cgi?page=" . $i; | |
| 11 RES->printf( "URL = %s\n", $url); | |
| 12 $tmpfile = "> in". $i . ".txt"; | |
| 13 open STDOUT, $tmpfile || RES->print("cannot open " . $tmpfile . "\n"); | |
| 14 getprint $url; | |
| 15 $cmd2 = "../../../dist/win32_d.obj/bin/nsconv -f GB18030 -t GB18030 in" . $i . ".txt out" . $i . ".txt >err"; | |
| 16 $cmd3 = "diff -u in" . $i . ".txt out" . $i . ".txt >> alldiff.txt"; | |
| 17 RES->printf( "Run '%s'\n", $cmd2); | |
| 18 $st2 = system($cmd2); | |
| 19 RES->printf( "result = '%d'\n", $st2); | |
| 20 RES->printf( "Run '%s'\n", $cmd3); | |
| 21 $st3 = system($cmd3); | |
| 22 RES->printf( "result = '%d'\n", $st3); | |
| 23 } |
