1N/A# $RCSfile: switch.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:14 $ 1N/Aprint do foo1(0) ==
20 ?
"ok 1\n" :
"not ok 1\n";
1N/Aprint do foo1(1) ==
1 ?
"ok 2\n" :
"not ok 2\n";
1N/Aprint do foo1(2) ==
2 ?
"ok 3\n" :
"not ok 3\n";
1N/Aprint do foo1(3) ==
3 ?
"ok 4\n" :
"not ok 4\n";
1N/Aprint do foo1(4) ==
4 ?
"ok 5\n" :
"not ok 5\n";
1N/Aprint do foo1(5) ==
20 ?
"ok 6\n" :
"not ok 6\n";
1N/Aprint do foo2(0) ==
20 ?
"ok 7\n" :
"not ok 7\n";
1N/Aprint do foo2(1) ==
1 ?
"ok 8\n" :
"not ok 8\n";
1N/Aprint do foo2(2) ==
2 ?
"ok 9\n" :
"not ok 9\n";
1N/Aprint do foo2(3) ==
3 ?
"ok 10\n" :
"not ok 10\n";
1N/Aprint do foo2(4) ==
4 ?
"ok 11\n" :
"not ok 11\n";
1N/Aprint do foo2(5) ==
20 ?
"ok 12\n" :
"not ok 12\n";
1N/Aprint do foo3(0) ==
20 ?
"ok 13\n" :
"not ok 13\n";
1N/Aprint do foo3(1) ==
1 ?
"ok 14\n" :
"not ok 14\n";
1N/Aprint do foo3(2) ==
2 ?
"ok 15\n" :
"not ok 15\n";
1N/Aprint do foo3(3) ==
3 ?
"ok 16\n" :
"not ok 16\n";
1N/Aprint do foo3(4) ==
4 ?
"ok 17\n" :
"not ok 17\n";
1N/Aprint do foo3(5) ==
20 ?
"ok 18\n" :
"not ok 18\n";