# TEST THAT LINE NUMBERS ARE PRESERVED AFTER PREPROCESSING
use v5.36;
use strict;
plan tests => 5;
no feature 'switch';
@ARGV = 'get';
given ( my $par = shift ) {
is __LINE__, 18;
when ('url') {
say 'parameter passed is "url"';
fail 'Incorrect branch (url) chosen';
}
is __LINE__, 23;
when ('get') {
is __LINE__, 25;
say 'parameter passed is "get"';
pass 'Correct branch (get) chosen';
}
is __LINE__, 30;
default {
fail 'Incorrect branch (default) chosen';
}
is __LINE__, 34;
}
is __LINE__, 37;
done_testing();