This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Reapply the patch that tought EU::ParseXS about _ protos
[perl5.git] / dist / ExtUtils-ParseXS / t / 105-valid_proto_string.t
1 #!/usr/bin/perl
2 use strict;
3 use warnings;
4 use Test::More tests =>  6;
5 use lib qw( lib );
6 use ExtUtils::ParseXS::Utilities qw(
7   valid_proto_string
8 );
9
10 my ($input, $output);
11
12 $input = '[\$]';
13 $output = valid_proto_string($input);
14 is( $output, $input, "Got expected value for <$input>" );
15
16 $input = '[$]';
17 $output = valid_proto_string($input);
18 is( $output, $input, "Got expected value for <$input>" );
19
20 $input = '[\$\@]';
21 $output = valid_proto_string($input);
22 is( $output, $input, "Got expected value for <$input>" );
23
24 $input = '[\$alpha]';
25 $output = valid_proto_string($input);
26 is( $output, 0, "Got expected value for <$input>" );
27
28 $input = '[alpha]';
29 $output = valid_proto_string($input);
30 is( $output, 0, "Got expected value for <$input>" );
31
32 $input = '[_]';
33 $output = valid_proto_string($input);
34 is( $output, $input, "Got expected value for <$input>" );
35