public
Description: the Rx schema and validation system
Homepage: http://rjbs.manxome.org/rx
Clone URL: git://github.com/rjbs/rx.git
rx / util / runtests.pl
100755 28 lines (24 sloc) 0.754 kb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
#!/usr/bin/perl
use strict;
use warnings;
use TAP::Harness;
 
my $harness = TAP::Harness->new({
  exec => sub {
    my ($self, $filename) = @_;
    return [ $^X, -I => 'perl/lib', -I => 'perl/t/lib', $filename ] if $filename =~ /\.t$/;
    return [ 'java', -jar => 'js.jar', $filename ] if $filename =~ /\.js$/;
    return [ 'ruby', -I => 'ruby', $filename ] if $filename =~ /\.rb$/;
    return [ 'python', $filename ] if $filename =~ /\.py$/;
    return [ 'php', $filename ] if $filename =~ /\.php$/;
  },
});
 
# You may only choose one of 'exec', 'stream', 'tap' or 'source' at - line 12
 
$harness->runtests(qw(
js/rx/test/runner.js
perl/t/spec.t
perl/t/util-range.t
php/rx-test.php
php/util-test.php
python/rx-test.py
ruby/rx-test.rb
));