use v6-perlito;
class Main {
say '1..3';
my $m = Perlito6::Match.new( str => 'abcdef', from => 2, to => 4, bool => 1 );
# say 'match scalar: ', $$m;
if ($$m) eq 'cd' {
say 'ok 1';
}
else {
say 'not ok 1';
}
$m = Perlito6::Grammar.word( 'abcdef', 2 );
# say 'match scalar: ', $$m;
if ($$m) eq 'c' {
say 'ok 2';
}
else {
say 'not ok 2';
}
$m = Perlito6::Grammar.space( "ab def", 2 );
# say 'match scalar: ', $$m;
if ($$m) eq " " {
say 'ok 3';
}
else {
say 'not ok 3';
}
}