- if ( /^-testonly$/) { $testonly = 1; shift; next }
- if ( /^-nodb$/ ) { $nodb = 1; shift; next }
- if ( /^-(masterdata)$/ ) { push @totest, $1; shift; next }
- if ( /^-(system)$/ ) { push @totest, $1; shift; next }
- if ( /^-(selling)$/ ) { push @totest, $1; shift; next }
- if ( /^-(purchase)$/ ) { push @totest, $1; shift; next }
- if ( /^-(testbed)$/ ) { push @totest, $1; shift; next }
- if ( /^-(admin)$/ ) { push @totest, $1; shift; next }
- if ( /^--username=(.*)$/ ) { $lxtest{testuserlogin} = $1; shift; next }
- if ( /^--userpasswd=(.*)$/ ) { $lxtest{testuserpasswd} = $1; shift; next }
- if ( /^--dbname=(.*)$/ ) { $lxtest{db} = $1; shift; next }
- if ( /^--dbport=(.*)$/ ) { $lxtest{dbport} = $1; shift; next }
- if ( /^--dbhost=(.*)$/ ) { $lxtest{dbhost} = $1; shift; next }
- if ( /^--dbuser=(.*)$/ ) { $lxtest{dbuser} = $1; shift; next }
- if ( /^--dbpasswd=(.*)$/ ) { $lxtest{dbpasswd} = $1; shift; next }
- if ( /^--rootpasswd=(.*)$/ ) { $lxtest{rpw} = $1; shift; next }
- if ( /^([A-Z].*)$/ ) { push @totest, shift; next }
- if ( /^-/ ) {
+ elsif ( /^-showtests$/) { $showtests = 1; shift; next }
+ elsif ( /^-nodb$/ ) { $nodb = 1; shift; next }
+ elsif ( /^-(masterdata)$/ ) { push @totest, $1; shift; next }
+ elsif ( /^-(system)$/ ) { push @totest, $1; shift; next }
+ elsif ( /^-(selling)$/ ) { push @totest, $1; shift; next }
+ elsif ( /^-(purchase)$/ ) { push @totest, $1; shift; next }
+ elsif ( /^-(testbed)$/ ) { push @totest, $1; shift; next }
+ elsif ( /^-(payments)$/ ) { push @totest, $1; shift; next }
+ elsif ( /^-(admin)$/ ) { push @totest, $1; shift; next }
+ elsif ( /^-(printing)$/ ) { push @totest, $1; shift; next }
+ elsif ( /^-(reports)$/ ) { push @totest, $1; shift; next }
+ elsif ( /^-(accounting)$/ ) { push @totest, $1; shift; next }
+ elsif ( /^-(purchase)$/ ) { push @totest, $1; shift; next }
+ elsif ( /^-(programm)$/ ) { push @totest, $1; shift; next }
+ elsif ( /^-singletest$/ ) { $singletest = 1; shift; next }
+ elsif ( /^--username=(.*)$/ ) { $lxtest{testuserlogin} = $1; shift; next }
+ elsif ( /^--userpasswd=(.*)$/ ) { $lxtest{testuserpasswd} = $1; shift; next }
+ elsif ( /^--dbname=(.*)$/ ) { $lxtest{db} = $1; shift; next }
+ elsif ( /^--dbport=(.*)$/ ) { $lxtest{dbport} = $1; shift; next }
+ elsif ( /^--dbhost=(.*)$/ ) { $lxtest{dbhost} = $1; shift; next }
+ elsif ( /^--dbuser=(.*)$/ ) { $lxtest{dbuser} = $1; shift; next }
+ elsif ( /^--dbpasswd=(.*)$/ ) { $lxtest{dbpasswd} = $1; shift; next }
+ elsif ( /^--rootpasswd=(.*)$/ ) { $lxtest{rpw} = $1; shift; next }
+ elsif ( /^--test=(.*)$/ ) { foreach (split(/\,/, $1)) { push @totest, $_; } shift; next }
+ elsif ( /^([A-Z].*)$/ ) { push @totest, shift; next }
+ else {