| (:*******************************************************:) | |
| (:Test: exactly-onepint1args-2 :) | |
| (:Written By: Carmelo Montanez :) | |
| (:Date: Fri Dec 10 10:15:47 GMT-05:00 2004 :) | |
| (:Purpose: Evaluates The "exactly-one" function :) | |
| (: with the arguments set as follows: :) | |
| (:$arg = xs:positiveInteger(mid range) :) | |
| (:*******************************************************:) | |
| fn:exactly-one(xs:positiveInteger("52704602390610033")) |