Lines Matching full:input
9 my ($input, $output);
11 $input = '[\$]';
12 $output = valid_proto_string($input);
13 is( $output, $input, "Got expected value for <$input>" );
15 $input = '[$]';
16 $output = valid_proto_string($input);
17 is( $output, $input, "Got expected value for <$input>" );
19 $input = '[\$\@]';
20 $output = valid_proto_string($input);
21 is( $output, $input, "Got expected value for <$input>" );
23 $input = '[\$alpha]';
24 $output = valid_proto_string($input);
25 is( $output, 0, "Got expected value for <$input>" );
27 $input = '[alpha]';
28 $output = valid_proto_string($input);
29 is( $output, 0, "Got expected value for <$input>" );
31 $input = '[_]';
32 $output = valid_proto_string($input);
33 is( $output, $input, "Got expected value for <$input>" );