inaccessible-and-set-start.t

use strict;
use diagnostics;
use Marpa::R2;

use Test::More;

my $g = Marpa::R2::Scanless::G->new({ source => \(<<'END_OF_SOURCE') });

    lexeme default = inaccessible => discard
    
    start1 ::= X
    start2 ::= Y

    X ~ 'X'
    Y ~ 'Y'

END_OF_SOURCE

my @starts = qw/start1 start2/;

for (my $i = 0; $i < @starts; $i++){

    my $start = $starts[$i];
    my $input = 'X Y';

    $g->set( { ':start' => $start } );
    
    my $r = Marpa::R2::Scanless::R->new( { grammar => $g } );
    $r->read( \$input );
    my $v = ${ $r->value() };

    is $v->[0], $input, "with :start ::= $start and input $input";

}

done_testing();