lemonldap-ng/lemonldap-ng-portal/t/sendOTP.pl

#!/usr/bin/perl
use strict;
use warnings;

my ( $swt, $user ) = @ARGV;

exit !( $swt eq '-uid' && $user eq 'dwho' );
Append EXT2F unit test 2018-09-05 21:13:39 +02:00			`#!/usr/bin/perl`
			`use strict;`
			`use warnings;`

make tidy 2018-10-12 10:04:03 +02:00			`my ( $swt, $user ) = @ARGV;`
Append EXT2F unit test 2018-09-05 21:13:39 +02:00
			`exit !( $swt eq '-uid' && $user eq 'dwho' );`