#!perl6
use Test;
my regex dot { '.' }
my regex lt { '<' }
my regex gt { '>' }
my regex null { <?> }
ok( '.' ~~ / <dot> /, '. match <dot>');
ok( '<' ~~ / <lt> /, '< match <lt>');
ok( '>' ~~ / <gt> /, '> match <gt>');
ok( '' ~~ / <null> /, 'blank str match <null>');
<dot> <lt> <gt> <null> <sp>is not built-in subrule