Skip to content
This repository has been archived by the owner on Feb 3, 2021. It is now read-only.

Commit

Permalink
Browse files Browse the repository at this point in the history
update spec test/dirs for updated Test.pm
  • Loading branch information
coke committed Feb 18, 2012
1 parent d62568e commit e908a6b
Show file tree
Hide file tree
Showing 3 changed files with 12 additions and 5 deletions.
10 changes: 7 additions & 3 deletions HACKING
Expand Up @@ -58,12 +58,16 @@ This was cobbled together from:
perl t/run_spectests

This will checkout a copy of the spectest suite, and run all the known
to pass tests (list in t/spectest.data). This assumes you've installed pugs to
to pass tests (list in t/spectest.data). This assumes you've got a copy of
pugs built as

$HOME/.cabal/bin/pugs
Pugs/pugs

To get a per-synopsis summary, run:

perl t/spec/test_summary pugs

This requires an alias of ./perl6 in the top level directory.
This requires a ./perl6 script containing:

#!/bin/sh
PUGS_USE_EXTERNAL_TEST=1 ./Pugs/pugs -IPugs/ext/Test/lib $*
3 changes: 2 additions & 1 deletion t/fudgeandrun
Expand Up @@ -15,4 +15,5 @@ if (@ARGV) {
}

my $nt = `t/spec/fudge @OPTS @ARGV`;
system("/home/coke/.cabal/bin/pugs", split ' ', $nt);
$ENV{PUGS_USE_EXTERNAL_TEST}=1;
system("./Pugs/pugs", "-IPugs/ext/Test/lib", split ' ', $nt);
4 changes: 3 additions & 1 deletion t/update_passing_test_data.pl
Expand Up @@ -40,6 +40,8 @@ =head1 DESCRIPTION

my @wanted;

$ENV{PUGS_USE_EXTERNAL_TEST}=1;

find({ wanted => \&queue, no_chdir => 1 }, 't/spec/');

sub queue {
Expand Down Expand Up @@ -125,7 +127,7 @@ sub read_specfile {
sub get_harness {
return TAP::Harness->new({
verbosity => -2,
exec => ["$ENV{HOME}/.cabal/bin/pugs"],
exec => ["./perl6"],
merge => 1,
});
}
Expand Down

0 comments on commit e908a6b

Please sign in to comment.