+my @terms = $rs4->terms();
+ok(($#terms == 1), "Got 2 terms in RPN expression");
+my $cc = 0;
+foreach my $t (@terms) {
+ if ($t->{term} eq 'IDZebra') {
+ ok(($t->{count} = $filecount*2), "Term IDZebra ($t->{count})");
+ $cc++;
+ }
+ elsif ($t->{term} eq 'Session') {
+ ok(($t->{count} = 2), "Term Session ($t->{count})");
+ $cc++;
+ } else {
+ ok(0,"Invalid term $t->{term}");
+ }
+
+}
+ok (($cc == 2), "Got 2 terms for RS");
+
+