compilation-bundle/dwarf-compilation.base/contrib/libdwarf/dwarfdump/getopttest.c

681 lines
16 KiB
C
Raw Normal View History

2018-10-23 14:56:04 +02:00
/* This is for testing the local getopt. */
#ifdef GETOPT_FROM_SYSTEM
#define dwgetopt getopt
#define dwopterr opterr
#define dwoptind optind
#define dwoptopt optopt
#define dwopterr opterr
#define dwoptarg optarg
#define dwno_argument no_argument
#define dwrequired_argument required_argument
#define dwoptional_argument optional_argument
#endif
#include <stdio.h>
#include <stdlib.h>
#include <string.h> /* for strcmp */
#include "dwgetopt.h" /* for dwgetopt */
char *argv1[20];
/* Use for testing dwgetopt only.
Not a standard function. */
static void
dwgetoptresetfortestingonly(void)
{
dwopterr = 1;
dwoptind = 1;
dwoptopt = 0;
dwoptreset = 0;
dwoptarg = 0;
}
/* for rchar read the real int/char returned.
for xchar read the expected int/char.
for roptarg, read dwoptarg (the real optarg val),
for xoptarg read expected-optarg
for roptind read dwoptind,
for xoptind read expected-optind
*/
static void
chkval(int ct,
int rchar,int xchar,
char *roptarg,char *xoptarg,
int roptind,int xoptind,
const char *testid)
{
int err = 0;
if (rchar != xchar) {
err++;
printf("Mismatch %d %s: got char %c 0x%x exp char %c 0x%x\n",
ct,testid,rchar,rchar,xchar,xchar);
}
if (roptarg != xoptarg) {
/* pointers non-match */
if (roptarg && xoptarg && (!strcmp(roptarg,xoptarg))) {
/* strings match. */
} else {
err++;
printf("Mismatch %d %s: got dwoptarg %s 0x%lx exp optarg %s 0x%lx\n",
ct,testid,
roptarg?roptarg:"",
(unsigned long)roptarg,
xoptarg?xoptarg:"",
(unsigned long)xoptarg);
}
}
if (roptind != xoptind) {
err++;
printf("Mismatch %d %s: got dwoptind %d 0x%x exp optind %d 0x%x\n",
ct,testid,roptind,roptind,xoptind,xoptind);
}
if (err > 0) {
printf("FAIL getopttest %s\n",testid);
exit(1);
}
}
static int
test3(void)
{
int ct = 1;
int c = 0;
int argct = 8;
argv1[0]="a.out";
argv1[1]="-a";
argv1[2]="-#bx";
argv1[3]="-b";
argv1[4]="-c";
argv1[5]="-cfoo";
argv1[6]="-d";
argv1[7]="progtoread";
argv1[8]=0;
for ( ;(c = dwgetopt(argct, argv1, "#:abc::d")) != EOF; ct++) {
switch(ct) {
case 1:
chkval(ct,c,'a',dwoptarg,0,dwoptind,2,"test31");
break;
case 2:
chkval(ct,c,'#',dwoptarg,"bx",dwoptind,3,"test32");
break;
case 3:
chkval(ct,c,'b',dwoptarg,0,dwoptind,4,"test33");
break;
case 4:
chkval(ct,c,'c',dwoptarg,0,dwoptind,5,"test34");
break;
case 5:
chkval(ct,c,'c',dwoptarg,"foo",dwoptind,6,"test35");
break;
case 6:
chkval(ct,c,'d',dwoptarg,0,dwoptind,7,"test36");
break;
case 7:
case 8:
case 9:
case 10:
case 11:
default:
printf("FAIL test3 unexpected ct %d\n",ct);
}
}
#if 0
printf(" final check: ct %d dwoptind %d\n",ct,optind);
#endif
if (strcmp(argv1[dwoptind],"progtoread")) {
printf("FAIL test3 on non-dash dwoptind %d arg got %s exp %s\n",
dwoptind,argv1[dwoptind],"progtoread");
exit(1);
}
printf("PASS getopt test 3\n");
return 0;
}
static int
test2(void)
{
int ct = 1;
int c = 0;
int argct = 5;
argv1[0]="a.out";
argv1[1]="-a";
argv1[2]="-#pound";
argv1[3]="-b";
argv1[4]="-cfilename";
argv1[5]=0;
for ( ;(c = dwgetopt(argct, argv1,
"#:abc::")) != EOF; ct++) {
switch(ct) {
case 1:
chkval(ct,c,'a',dwoptarg,0,dwoptind,2,"test21");
break;
case 2:
chkval(ct,c,'#',dwoptarg,"pound",dwoptind,3,"test22");
break;
break;
case 3:
chkval(ct,c,'b',dwoptarg,0,dwoptind,4,"test23");
break;
case 4:
chkval(ct,c,'c',dwoptarg,"filename",dwoptind,5,"test24");
break;
default:
printf("FAIL test2 unexpected ct %d\n",ct);
exit(1);
}
}
#if 0
printf(" final check: ct %d dwoptind %d\n",ct,optind);
#endif
if (argv1[dwoptind]) {
printf("FAIL test2 on non-dash arg dwoptind %d got 0x%lx exp NULL\n",
dwoptind,(unsigned long)argv1[dwoptind]);
exit(1);
}
printf("PASS getopt test 2\n");
return 0;
}
static void chklongval(int ct,
int rchar,int xchar,
const char *xoptname,
struct dwoption *ropt, struct dwoption *xopt,
char *roptarg,char *xoptarg,
int roptind,int xoptind,
const char *testid)
{
int err = 0;
if(xopt != ropt || strcmp(ropt->name,xopt->name)) {
printf("FAIL name check %s: long opt %s vs %s %s\n",
xoptname,
ropt->name,xopt->name,
testid);
++err;
}
if (roptarg != xoptarg &&
(!roptarg || !xoptarg || strcmp(roptarg,xoptarg))) {
printf("FAIL argument check %s: long opt %s vs %s %s\n",
xoptname,
roptarg?roptarg:"",xoptarg?xoptarg:"",
testid);
++err;
}
if (roptind != xoptind) {
printf("FAIL optind check %s: long opt %d vs %d %s\n",
xoptname,
roptind,xoptind,
testid);
++err;
}
if (err > 0) {
printf("FAIL long getopttest %s\n",testid);
exit(1);
}
}
static int
ltest1(void)
{
int ct = 1;
int c = 0;
int argct = 13;
argv1[0]="a.out";
argv1[1]="-ab";
argv1[2] = "--simplelong";
argv1[3] = "--optarglong";
argv1[4] = "--requireoptarglong=val";
argv1[5] = "-cd";
argv1[6]="progtoread";
argv1[7]=0;
static struct dwoption longopts[] = {
{"simplelong", dwno_argument, 0,0},
{"optarglong", dwoptional_argument,0,0},
{"requireoptarglong",dwrequired_argument,0,0},
{0,0,0,0}
};
int longindex = 0;
for ( ;(c = dwgetopt_long(argct, argv1,
"abcd",
longopts,&longindex)) != EOF; ct++) {
switch(ct) {
case 1:
chkval(ct,c,'a',dwoptarg,0,dwoptind,1,"ltest12");
break;
case 2:
chkval(ct,c,'b',dwoptarg,0,dwoptind,2,"ltest2");
break;
case 3: {
struct dwoption * foundop = longopts + longindex;
chklongval(ct,c,0,
"simplelong",
foundop,longopts+0,
dwoptarg,0,
dwoptind,3,"ltest3");
}
break;
case 4: {
struct dwoption * foundop = longopts + longindex;
chklongval(ct,c,0,
"optarglong",
foundop,longopts+1,
dwoptarg,0,
dwoptind,4,"ltest4");
}
break;
case 5: {
struct dwoption * foundop = longopts + longindex;
chklongval(ct,c,0,
"requireoptarglong",
foundop,longopts+2,
dwoptarg,"val",
dwoptind,5,"ltest5");
}
break;
case 6:
chkval(ct,c,'c',dwoptarg,0,dwoptind,5,"ltest6");
break;
case 7:
chkval(ct,c,'d',dwoptarg,0,dwoptind,6,"ltest7");
break;
default:
printf("FAIL ltest1 unexpected ct %d in ltest1\n",ct);
exit(1);
}
}
#if 0
printf(" final check: ct %d dwoptind %d\n",ct,optind);
#endif
if (strcmp(argv1[dwoptind],"progtoread")) {
printf("FAIL ltest1 on non-dash arg dwoptind %d got %s exp %s\n",
dwoptind,argv1[dwoptind],"progtoread");
exit(1);
}
printf("PASS getopt ltest1\n");
return 0;
}
static int
ltest2(void)
{
int ct = 1;
int c = 0;
int argct = 13;
argv1[0]="a.out";
argv1[1]="-ab";
argv1[2] = "--optarglong";
argv1[3] = "--optarglong=";
argv1[4] = "--optarglong=val";
argv1[5] = "-cd";
argv1[6]="progtoread";
argv1[7]=0;
static struct dwoption longopts[] = {
{"optarglong", dwoptional_argument,0,0},
{0,0,0,0}
};
int longindex = 0;
for ( ;(c = dwgetopt_long(argct, argv1,
"abcd",
longopts,&longindex)) != EOF; ct++) {
switch(ct) {
case 1:
chkval(ct,c,'a',dwoptarg,0,dwoptind,1,"ltest21");
break;
case 2:
chkval(ct,c,'b',dwoptarg,0,dwoptind,2,"ltest22");
break;
case 3: {
struct dwoption * foundop = longopts + longindex;
chklongval(ct,c,0,
"optarglong",
foundop,longopts+0,
dwoptarg,0,
dwoptind,3,"ltest23");
}
break;
case 4: {
struct dwoption * foundop = longopts + longindex;
chklongval(ct,c,0,
"optarglong",
foundop,longopts+0,
dwoptarg,0,
dwoptind,4,"ltest24");
}
break;
case 5: {
struct dwoption * foundop = longopts + longindex;
chklongval(ct,c,0,
"optarglong",
foundop,longopts+0,
dwoptarg,"val",
dwoptind,5,"ltest25");
}
break;
case 6:
chkval(ct,c,'c',dwoptarg,0,dwoptind,5,"ltest26");
break;
case 7:
chkval(ct,c,'d',dwoptarg,0,dwoptind,6,"ltest27");
break;
default:
printf("FAIL ltest1 unexpected ct %d in ltest2\n",ct);
exit(1);
}
}
#if 0
printf(" final check: ct %d dwoptind %d\n",ct,optind);
#endif
if (strcmp(argv1[dwoptind],"progtoread")) {
printf("FAIL ltest2 on non-dash arg dwoptind %d got %s exp %s\n",
dwoptind,argv1[dwoptind],"progtoread");
exit(1);
}
printf("PASS getopt ltest2\n");
return 0;
}
static int
test1(void)
{
int ct = 1;
int c = 0;
int argct = 13;
argv1[0]="a.out";
argv1[1]="-a";
argv1[2]="-#";
argv1[3]="6";
argv1[4]="-H1";
argv1[5]="-H";
argv1[6]="2";
argv1[7]="-ka";
argv1[8]="-l";
argv1[9]="-lv";
argv1[10]="-x";
argv1[11]="path=./foo";
argv1[12]="progtoread";
argv1[13]=0;
for ( ;(c = dwgetopt(argct, argv1,
"#:abc::CdDeE::fFgGhH:iIk:l::mMnNo::O:pPqQrRsS:t:u:UvVwW::x:yz"))
!= EOF; ct++) {
switch(ct) {
case 1:
chkval(ct,c,'a',dwoptarg,0,dwoptind,2,"test11");
break;
case 2:
chkval(ct,c,'#',dwoptarg,"6",dwoptind,4,"test12");
break;
case 3:
chkval(ct,c,'H',dwoptarg,"1",dwoptind,5,"test13");
break;
case 4:
chkval(ct,c,'H',dwoptarg,"2",dwoptind,7,"test14");
break;
case 5:
chkval(ct,c,'k',dwoptarg,"a",dwoptind,8,"test15");
break;
case 6:
chkval(ct,c,'l',dwoptarg,0,dwoptind,9,"test16");
break;
case 7:
chkval(ct,c,'l',dwoptarg,"v",dwoptind,10,"test17");
break;
case 8:
chkval(ct,c,'x',dwoptarg,"path=./foo",dwoptind,12,"test18");
break;
default:
printf("FAIL test1 unexpected ct %d in test1\n",ct);
exit(1);
}
}
#if 0
printf(" final check: ct %d dwoptind %d\n",ct,optind);
#endif
if (strcmp(argv1[dwoptind],"progtoread")) {
printf("FAIL test1 on non-dash arg dwoptind %d got %s exp %s\n",
dwoptind,argv1[dwoptind],"progtoread");
exit(1);
}
printf("PASS getopt test1\n");
return 0;
}
static int
test5(void)
{
int ct = 1;
int c = 0;
int argct = 8;
argv1[0]="a.out";
argv1[1]="-ab";
argv1[2]="-a";
argv1[3]="-cx";
argv1[4]="-c";
argv1[5]="y";
argv1[6]="-d";
argv1[7]="-da";
argv1[8]=0;
for ( ;(c = dwgetopt(argct, argv1, "abc:d::")) != EOF; ct++) {
switch(ct) {
case 1:
chkval(ct,c,'a',dwoptarg,0,dwoptind,1,"test51");
break;
case 2:
chkval(ct,c,'b',dwoptarg,0,dwoptind,2,"test52");
break;
case 3:
chkval(ct,c,'a',dwoptarg,0,dwoptind,3,"test53");
break;
case 4:
chkval(ct,c,'c',dwoptarg,"x",dwoptind,4,"test54");
break;
case 5:
chkval(ct,c,'c',dwoptarg,"y",dwoptind,6,"test55");
break;
case 6:
chkval(ct,c,'d',dwoptarg,0,dwoptind,7,"test56");
break;
case 7:
chkval(ct,c,'d',dwoptarg,"a",dwoptind,8,"test17");
break;
default:
printf("FAIL test5 unexpected ct %d in test1 char 0x%x %c\n",ct,c,c);
exit(1);
}
}
#if 0
printf(" final check: ct %d dwoptind %d\n",ct,optind);
#endif
if (argv1[dwoptind]) {
printf("FAIL test5 there is a non-dash arg dwoptind %d got 0x%lx\n",
dwoptind,(unsigned long)argv1[dwoptind]);
exit(1);
}
printf("PASS getopt test5\n");
return 0;
}
static int
test6(void)
{
int ct = 1;
int c = 0;
int argct = 2;
argv1[0]="a.out";
argv1[1]="-H";
argv1[2]=0;
for ( ;(c = dwgetopt(argct, argv1, "abH:d::")) != EOF; ct++) {
switch(ct) {
case 1:
chkval(ct,c,'?',dwoptarg,0,dwoptind,2,"test61");
break;
default:
printf("FAIL test5 unexpected ct %d in test1 char 0x%x %c\n",ct,c,c);
exit(1);
}
}
if (argv1[dwoptind]) {
printf("FAIL test6 there is a non-dash arg dwoptind %d got 0x%lx\n",
dwoptind,(unsigned long)argv1[dwoptind]);
exit(1);
}
printf("PASS getopt test6\n");
return 0;
}
/* Leading : in opt string */
static int
test7(void)
{
int ct = 1;
int c = 0;
int argct = 2;
argv1[0]="a.out";
argv1[1]="-H";
argv1[2]=0;
for ( ;(c = dwgetopt(argct, argv1, ":abH:d::")) != EOF; ct++) {
switch(ct) {
case 1:
chkval(ct,c,':',dwoptarg,0,dwoptind,2,"test71");
break;
default:
printf("FAIL test5 unexpected ct %d in test1 char 0x%x %c\n",ct,c,c);
exit(1);
}
}
if (argv1[dwoptind]) {
printf("FAIL test7 there is a non-dash arg dwoptind %d got 0x%lx\n",
dwoptind,(unsigned long)argv1[dwoptind]);
exit(1);
}
printf("PASS getopt test7\n");
return 0;
}
static int
test8(void)
{
int ct = 1;
int c = 0;
int argct = 2;
argv1[0]="a.out";
argv1[1]="-x";
argv1[2]=0;
/* We expect a ? because the arg list is improper. */
for ( ;(c = dwgetopt(argct, argv1, "abH:d::")) != EOF; ct++) {
switch(ct) {
case 1:
chkval(ct,c,'?',dwoptarg,0,dwoptind,2,"test81");
break;
default:
printf("FAIL test5 unexpected ct %d in test1 char 0x%x %c\n",ct,c,c);
exit(1);
}
}
if (argv1[dwoptind]) {
printf("FAIL test8 there is a non-dash arg dwoptind %d got 0x%lx\n",
dwoptind,(unsigned long)argv1[dwoptind]);
exit(1);
}
printf("PASS getopt test8\n");
return 0;
}
int main(int argc, const char **argv)
{
int ct = 0;
int failct = 0;
printf("argc: %d\n",argc);
for( ct = 0; ct < argc ; ++ct) {
printf("argv[%d] = %s\n",ct,argv[ct]);
}
if ( argc == 3) {
int num = 0;
if (strcmp(argv[1],"-c")) {
printf("FAIL: invalid arg list\n");
exit(1);
}
num = atoi(argv[2]);
printf("Run one test, number %d\n",num);
switch(num) {
case 1:
failct = test1();
break;
case 2:
failct = test2();
break;
case 3:
failct = test3();
break;
case 5:
failct = test5();
break;
case 6:
failct = test6();
break;
case 7:
failct = test7();
break;
case 8:
failct = test8();
break;
default:
printf("FAIL: invalid test number %d\n",num);
exit(1);
}
if ( failct) {
printf("FAIL getopttest\n");
exit(1);
}
printf("PASS getopttest\n");
exit(0);
} else if (argc != 1) {
printf("FAIL: invalid arg list\n");
exit(1);
}
failct += ltest1();
dwgetoptresetfortestingonly();
failct += ltest2();
dwgetoptresetfortestingonly();
failct += test5();
dwgetoptresetfortestingonly();
failct += test1();
dwgetoptresetfortestingonly();
failct += test2();
dwgetoptresetfortestingonly();
failct += test3();
dwgetoptresetfortestingonly();
failct += test6();
dwgetoptresetfortestingonly();
failct += test7();
dwgetoptresetfortestingonly();
failct += test8();
if ( failct) {
printf("FAIL getopttest\n");
exit(1);
}
printf("PASS getopttest\n");
return 0;
}