From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

SZABGAB / Parse-Functions-0.01 / t / ruby.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
—
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109

              
#!/usr/bin/perl
# Tests the logic for extracting the list of functions in a Ruby program
use strict;
use warnings;
use Test::More;
plan( tests => 6 );
use Parse::Functions::Ruby ();
# Sample code we will be parsing
my $code = <<'END_RUBY';
=begin
def bogus(a, b):
=end
def initialize:
     return
def subtract(a, b):
     return a - b
def add(a, b):
     return a + b
def _private:
     return
END_RUBY
######################################################################
# Basic Parsing
SCOPE: {
        # Create the function list parser
        my $lf = new_ok(
                'Parse::Functions::Ruby',
        );
        # Check the result of the parsing
        is_deeply(
                [ $lf->find( $code ) ],
                [   qw{
                                initialize
                                subtract
                                add
                                _private
                                }
                ],
                'Found expected functions',
        );
}
######################################################################
# Alphabetical Ordering
SCOPE: {
        # Create the function list parser
        my $lf = new_ok(
                'Parse::Functions::Ruby',
        );
        # Check the result of the parsing
        is_deeply(
                [ $lf->find( $code, 'alphabetical' ) ],
                [   qw{
                                add
                                initialize
                                _private
                                subtract
                                }
                ],
                'Found expected functions (alphabetical)',
        );
}
######################################################################
# Alphabetical Ordering (Private Last)
SCOPE: {
        # Create the function list parser
        my $lf = new_ok(
                'Parse::Functions::Ruby',
        );
        # Check the result of the parsing
        is_deeply(
                [ $lf->find( $code, 'alphabetical_private_last' ) ],
                [   qw{
                                add
                                initialize
                                subtract
                                _private
                                }
                ],
                'Found expected functions (alphabetical_private_last)',
        );
}