$title 'Tests miniparser card() function' (CARD02,SEQ=621)

$onText
Contributor: Alex Meeraus, October 2013
$offText

$onDollar
alias (i,*);
$ifE card(i)<>0 $abort should be 0
$eval c1 card(i)
set j / 1*10 /;
$ifE card(i)<>10 $abort should be 10
$eval c2 card(i)
set dummy / a,b/;
alias (k,i),(l,j),(l,m)
$ifE card(j)<>10 $abort should be 10
$eval c3 card(j)
$ifE card(k)<>12 $abort should be 12
$eval c4 card(k)
$ifE card(l)<>10 $abort should be 10
$eval c5 card(l)
$ifE card(m)<>10 $abort should be 10
$eval c6 card(m)
$show