(:*******************************************************:) | |
(:Test: op-gMonth-equal2args-4 :) | |
(:Written By: Carmelo Montanez :) | |
(:Date: Tue Apr 12 16:29:07 GMT-05:00 2005 :) | |
(:Purpose: Evaluates The "op:gMonth-equal" operator :) | |
(: with the arguments set as follows: :) | |
(:$arg1 = xs:gMonth(lower bound) :) | |
(:$arg2 = xs:gMonth(mid range) :) | |
(:*******************************************************:) | |
xs:gMonth("--01Z") eq xs:gMonth("--07Z") |