(:*******************************************************:)
(: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")