/************************************************************/
/*                         abnmqry                          */
/************************************************************/

/* :SUMMARY: find M "" should find the M object called 
:PRIORITY: 3
:STATUS: ok
:FEATURE:
	1. find M "" should find the M object called  
	2. find M "Wolf D."  and  Query >?M "Wolf D."  should be equivalent
:DATA: mini.angleb.ace
M ""
T

M "Wolf D."
T

:RESULT: 
abfind : should find 1 object
abfindw: should find one object
abfindesc: should find one object  -- find can escape special chars ...
	   fails in: 4_7h 4_8-990607
abfindq: should find one object  -- ... but does not need to do so
	 works in: 4_7h
abfind2/abfind3: should find the "Wolf D." object in both cases
		 works in: 4_7h		

:SCRIPT: */
abnmqry: dbinit wspec.mini // angle bracket name queries
  tace
    parse: do parse $data/mini.angleb.ace
    abfind: do find M ""
    abfindw: do Query find M ""
    abfindesc: do find M \
    abfindq: do find M 

    abclear: do Query find M T & NOT T   // clear active keyset

    abfind2: do find M "Wolf D."
    abfind3: do Query >?M "Wolf D."

  exit