Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100755 46 lines (41 sloc) 0.755 kB
784582b * Change /usr/local/bin/perl to the perl in PATH.
audreyt authored
1 #!/usr/bin/env perl
fe37462 [STD5] some examples of "try" programs
lwall authored
2
6967ba4 [STD] start transition to .pmc forms so names are conserved under Perl 5
lwall authored
3 use STD;
fe37462 [STD5] some examples of "try" programs
lwall authored
4 use utf8;
5
65a2eb3 [Cursor] plug some syntax errors misdiagnosed by new LTM
lwall authored
6 my $failures = 0;
7
9c781d4 [tryfile] allow files specified by stdin, with knowledge of svn output
lwall authored
8 if (not @ARGV) {
8843969 [Cursor] switch back to YAML::XS because Syck can't load STD.pm.syml
lwall authored
9 @ARGV = grep { s/\.t\n/.t/} <STDIN>;
c5be56c [gimme5] make sure STD.pmc ends with 1;
lwall authored
10 s/^\s*[AU]*\s+// for @ARGV;
30fb01d [STD] change YOU_ARE_HERE to {YOU_ARE_HERE}
lwall authored
11 }
12 my $pkgs = $ARGV[0];
052dbfb @TimToady whack in t/spec -> roast change
TimToady authored
13 if ($pkgs =~ s[roast.*][roast/packages]) {
30fb01d [STD] change YOU_ARE_HERE to {YOU_ARE_HERE}
lwall authored
14 $ENV{PERL6LIB} ||= "lib:$pkgs:.";
9c781d4 [tryfile] allow files specified by stdin, with knowledge of svn output
lwall authored
15 }
16
7c985c3 [STD] allow parsing of multiple *.t files in one process (works, but …
lwall authored
17 for my $file (@ARGV) {
3f9f565 [Cursor] some prep work for matching against NFG integer arrays
lwall authored
18 warn $file,"\n" if @ARGV > 1;
98c7dc6 [STD] clobber .text and .item in line with new capture notions
lwall authored
19 next unless -f $file;
7c985c3 [STD] allow parsing of multiple *.t files in one process (works, but …
lwall authored
20 eval {
e562b19 [Cursor] refactor to trie and Storable implementation, which uses less
lwall authored
21 warn "Undefined\n" unless defined STD->parsefile($file);
7c985c3 [STD] allow parsing of multiple *.t files in one process (works, but …
lwall authored
22 };
65a2eb3 [Cursor] plug some syntax errors misdiagnosed by new LTM
lwall authored
23 if ($@) {
24 warn $@;
25 $failures++;
26 }
7c985c3 [STD] allow parsing of multiple *.t files in one process (works, but …
lwall authored
27 }
e562b19 [Cursor] refactor to trie and Storable implementation, which uses less
lwall authored
28 my ($time, $vsz) = split(' ', `ps -o "time= vsz=" $$`);
29 $time =~ s/^00://;
30 $vsz =~ s/\d\d\d$/m/;
dce715e [tryfile] move ok reporting from teststd into tryfile
lwall authored
31 if ($failures) {
32 if ($vsz) {
33 warn "FAILED $time $vsz\n";
34 }
35 else {
36 warn "FAILED\n";
37 }
38 exit $failures;
39 }
40 elsif ($vsz) {
41 warn "ok $time $vsz\n";
42 }
43 else {
44 warn "ok\n";
45 }
Something went wrong with that request. Please try again.