1use strict; 2use warnings; 3 4use Mojolicious::Lite; 5use Test::More; 6 7open my $log_handle, '>', \my $log_buffer; 8app->log->handle($log_handle); 9 10eval { 11 plugin 'SetUserGroup' => { 12 user => 'bad user name !!!!!', 13 }; 14}; 15 16my $error = $@; 17like( 18 $error, 19 qr/User "bad user name !!!!!" does not exist/, 20 'plugin croaks on bad user at register' 21); 22like( 23 $log_buffer, 24 qr/User "bad user name !!!!!" does not exist/, 25 'plugin logs error on bad user at register' 26); 27 28$log_buffer = ''; 29 30eval { 31 plugin 'SetUserGroup' => { 32 user => scalar getpwuid $>, 33 group => 'bad group name !!!!!', 34 }; 35}; 36 37$error = $@; 38like( 39 $error, 40 qr/Group "bad group name !!!!!" does not exist/, 41 'plugin croaks on bad user at register' 42); 43like( 44 $log_buffer, 45 qr/Group "bad group name !!!!!" does not exist/, 46 'plugin logs error on bad user at register' 47); 48 49done_testing; 50