← Back to branch summary

~ubuntu-branches/ubuntu/vivid/nqp/vivid-proposed

« back to all changes in this revision

Viewing changes to t/qregex/01-qregex.t

  • Committer: Package Import Robot
  • Author(s): Alessandro Ghedini
  • Date: 2013-11-01 12:09:18 UTC
  • mfrom: (1.1.4)
  • Revision ID: package-import@ubuntu.com-20131101120918-kx51sl0sxl3exsxi
Tags: 2013.10-1
* New upstream release
* Bump versioned (Build-)Depends on parrot
* Update patches
* Install new README.pod
* Fix vcs-field-not-canonical
* Do not install rubyish examples
* Do not Depends on parrot-devel anymore
* Add 07_disable-serialization-tests.patch

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/qregex/01-qregex.t
5
5
 
6
6
my @files := [
7
7
    'rx_captures',
 
8
    'rx_qcaps',
8
9
    'rx_basic',
9
10
    'rx_quantifiers',
10
11
    'rx_metachars',
25
26
%expansions<f> := "\f";
26
27
sub unescape($s) {
27
28
    $s := subst($s, /\\(<[nretf]>)/, -> $m { %expansions{$m[0]} }, :global);
28
 
    subst($s, /\\x(<[a..fA..F0..9]>**4)/, -> $m { nqp::chr(HLL::Actions::string_to_int(~$m[0], 16)) }, :global);
 
29
    subst($s, /\\x(<[a..fA..F0..9]>**4)/, -> $m { nqp::chr(HLL::Actions.string_to_int(~$m[0], 16)) }, :global);
29
30
}
30
31
 
31
32
 
84
85
            todo($m[0], 1);
85
86
        }
86
87
        else {
87
 
            next if $l ~~ /^\s*\# | ^\s*$ /;
 
88
            next if $l ~~ /^ \s* '#' | ^ \s* $ /;
88
89
            test_line($l);
89
90
            $tests := $tests + 1;
90
91
        }