1#!/usr/bin/perl
2use strict;
3use warnings;
4use Test::More tests =>  6;
5use ExtUtils::ParseXS::Utilities qw(
6  valid_proto_string
7);
8
9my ($input, $output);
10
11$input = '[\$]';
12$output = valid_proto_string($input);
13is( $output, $input, "Got expected value for <$input>" );
14
15$input = '[$]';
16$output = valid_proto_string($input);
17is( $output, $input, "Got expected value for <$input>" );
18
19$input = '[\$\@]';
20$output = valid_proto_string($input);
21is( $output, $input, "Got expected value for <$input>" );
22
23$input = '[\$alpha]';
24$output = valid_proto_string($input);
25is( $output, 0, "Got expected value for <$input>" );
26
27$input = '[alpha]';
28$output = valid_proto_string($input);
29is( $output, 0, "Got expected value for <$input>" );
30
31$input = '[_]';
32$output = valid_proto_string($input);
33is( $output, $input, "Got expected value for <$input>" );
34
35