Convert to native NQP-rx regex; move last bits of Glue functionality to Util; kill...
[parrot-plumage:parrot-plumage.git] / probes / regex-test.nqp
1 ###
2 ### regex-test.nqp: Test workings of Perl6Regex objects
3 ###
4
5 # TO USE:
6 #   $ parrot-nqp regex-test.nqp
7
8
9 # Load Util module, which includes the regex helper functions
10 pir::load_bytecode('src/lib/Util.pir');
11
12 # Load data structure dumper
13 pir::load_bytecode('dumper.pbc');
14
15 # Wheee, probe testing ...
16 my $regex_object    := /b+c/;
17 my $string_to_match := 'aaabbbcccddd  aa bb cc dd  abcd';
18 _dumper(all_matches($regex_object, $string_to_match), 'ALL');