Changeset 2094 for Swishetest

Timestamp:

03/19/08 20:35:31 (9 months ago)

Author:

joshr

Message:

use only the smaller (linux) dictionary for this test now.

Files:

• Swishetest/trunk/t/030-C030-medsm-xml.t (modified) (2 diffs)

Swishetest/trunk/t/030-C030-medsm-xml.t

@@ -24 +24 @@
-    # predict number of tests based on number of files in dictionaries and number of index types
-
-
-
+
+
+
-
-    # THE OTHER ORDER
-    #my @dicts = qw( data/C020-words-txt/words-osx-10_3.txt data/C020-words-txt/words-linux-fc1.txt );
-
-    my @dictwordcounts = map { `wc -l $_ | awk '{print \$1}' ` } @dicts;
-    chomp(@dictwordcounts);
-    my $numdictwords = sum( @dictwordcounts );
-
-
+
+   # simpler to more complex
-    my $numdicts = scalar(@dicts);
-    my $numfiletypes = scalar(@filetypes);
-    my $totalnumtests = $numfiletypes * $numdictwords + scalar(@dicts) * scalar(@filetypes) * 3;
-    # three tests plus one for each word, for each dictionary and filetype.
-    #plan tests => ($numdicts * $numfiletypes * (3 + $max_words ));
-    plan tests => $totalnumtests;
-    mkpath( ["blib/index"], 0, 0755);
-    my $base = "C030";
-    for my $dict (@dicts) {
+        ( my $dictname = $dict ) =~ s/^.*-(([^.]|-)+)\.txt$/$1/;
-        for my $filetype ( @filetypes ) {
-            ( my $dictname = $dict ) =~ s/^.*-(([^.]|-)+)\.txt$/$1/;
-            #( my $dictname = $dict ) =~ s/\.txt$//;    # this doesn't work
-            #$dictname =~ s![^/]*/!!;   # this doesn't work
-
-            my $index = "blib/index/${base}_${dictname}_${filetype}.index";
@@ -72 +67 @@
-                #    ($word =~ /^\s*(and|or|not|near)\s*$/i) ? 0 : ($word_count->{lc($word)} || 1));
-                my $num_expected_rows = $word_count->{lc($word)};
-search '$word' ($filetype index from $dict
+'$word' ($filetype/$dictname
-            }
-            DoSearch::close_index($index);