1N/Aprint "ok $N\n"; $N++;
1N/Aprint $o ?
"ok $N\n" :
"not ok $N\n";
1N/A# 3 test array element count 1N/Aprint $n ==
3 ?
"ok $N\n" :
"not ok $N # n=$n\n";
1N/Aprint $n ==
3 ?
"ok $N\n" :
"not ok $N # n=$n\n";
1N/A# 5 test $#a notation 1N/Aprint $n ==
2 ?
"ok $N\n" :
"not ok $N # n=$n\n";
1N/A# 6 test looping over array elements 1N/Afor (@a) { $q .= $_ } 1N/Aprint $q eq $data ? "ok $N\n" : "not ok $N # n=$n\n";