Index: openacs-4/packages/tsearch2-driver/tcl/test/tsearch2-driver-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/tsearch2-driver/tcl/test/tsearch2-driver-procs.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/tsearch2-driver/tcl/test/tsearch2-driver-procs.tcl 8 Mar 2005 03:22:33 -0000 1.1 +++ openacs-4/packages/tsearch2-driver/tcl/test/tsearch2-driver-procs.tcl 13 Apr 2005 02:41:53 -0000 1.2 @@ -37,6 +37,12 @@ set q "(openacs or test) automated" aa_true "Multiple terms grouped automatic AND '[tsearch2::build_query -query $q]'" \ [string equal "(openacs | test) & automated" \ - [tsearch2::build_query -query $q]] + [tsearch2::build_query -query $q]] + set q "one a two" + aa_true "Single letter elements" \ + [string equal "one & a & two" \ + [tsearch2::build_query -query $q]] + + } }