JKEGL / Marpa-R3-4.001_040 / t / debug_leo.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

              
#!/usr/bin/perl
# Marpa::R3 is Copyright (C) 2017, Jeffrey Kegler.
#
# This module is free software; you can redistribute it and/or modify it
# under the same terms as Perl 5.10.1. For more details, see the full text
# of the licenses in the directory LICENSES.
#
# This program is distributed in the hope that it will be
# useful, but it is provided “as is” and without any express
# or implied warranties. For details, see the full text of
# of the licenses in the directory LICENSES.
use 5.010001;
use strict;
use warnings;
use Test::More tests => 2;
use English qw( -no_match_vars );
use Fatal qw( open close );
use lib 'inc';
use Marpa::R3::Test;
use Marpa::R3;
my $progress_report = q{};
my $dsl = <<'END_OF_DSL';
S ::= Top_sequence
Top_sequence ::= Top Top_sequence | Top
Top ::= Upper_Middle
Upper_Middle ::= Lower_Middle
Lower_Middle ::= Bottom
Bottom ::= T
T ~ 'T'
END_OF_DSL
my $grammar = Marpa::R3::Scanless::G->new(
    {   source => \$dsl }
);
my $recce = Marpa::R3::Scanless::R->new( { grammar => $grammar } );
$recce->read( \('T' x 20) );
$progress_report = $recce->show_progress();
my $value_ref = $recce->value;
Test::More::ok( $value_ref, 'Parse ok?' );
Marpa::R3::Test::is( $progress_report,
    <<'END_PROGRESS_REPORT', 'sorted progress report' );
F0 @0-20 L1c1-20 S -> Top_sequence .
P1 @20-20 L1c21 Top_sequence -> . Top Top_sequence
R1:1 @19-20 L1c20 Top_sequence -> Top . Top_sequence
F1 x19 @0...18-20 L1c1-20 Top_sequence -> Top Top_sequence .
P2 @20-20 L1c21 Top_sequence -> . Top
F2 @19-20 L1c20 Top_sequence -> Top .
P3 @20-20 L1c21 Top -> . Upper_Middle
F3 @19-20 L1c20 Top -> Upper_Middle .
P4 @20-20 L1c21 Upper_Middle -> . Lower_Middle
F4 @19-20 L1c20 Upper_Middle -> Lower_Middle .
P5 @20-20 L1c21 Lower_Middle -> . Bottom
F5 @19-20 L1c20 Lower_Middle -> Bottom .
P6 @20-20 L1c21 Bottom -> . T
F6 @19-20 L1c20 Bottom -> T .
F7 @0-20 L1c1-20 [:start] -> S .
END_PROGRESS_REPORT
# vim: expandtab shiftwidth=4: