Permalink
Browse files

[v6.pm] more tests;

- added script: util/clear_cache.pl - empty the precompilation cache for both v6 and PCR;
- svn properties


git-svn-id: http://svn.pugscode.org/pugs@21717 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
fglock
fglock committed Aug 1, 2008
1 parent fe0c7b4 commit b320372201ade35a870270d449f6a31f90efff87
@@ -171,10 +171,12 @@ t/spec/S02-literals/autoref.t
# t/spec/S03-operators/assign.t
t/spec/S04-statements/do.t
t/spec/S04-statements/until.t
+t/spec/S05-modifier/repetition.t
t/spec/S10-packages/import.t
t/spec/S12-class/inheritance-class-methods.t
t/spec/S12-role/composition.t
t/spec/S16-filehandles/open.t
+t/spec/S16-filehandles/unlink.t
t/spec/S16-io/say.t
t/spec/S29-any/cmp.t
t/spec/S29-array/delete.t
@@ -183,12 +185,17 @@ t/spec/S29-context/exit-in-if.t
t/spec/S29-context/exit.t
t/spec/S29-list/mutating_listops.t
t/spec/S29-str/append.t
+
+t/statements/for_with_only_one_item.t
+t/statements/loop.t
t/statements/modifiers/if.t
t/statements/modifiers/unless.t
+t/statements/unless.t
t/statements/until.t
t/statements/values_in_bool_context.t
t/syntax/lf_in_list.t
+t/syntax/list_quote_junction.t
t/syntax/parsing/braces_in_rules.t
t/syntax/parsing/braces_in_strings.t
t/syntax/parsing/filetest.t
@@ -1,95 +1,95 @@
-package Pugs::Runtime::Capture;
-# Documentation in the __END__
-
-use 5.006;
-use strict;
-use warnings;
-use Scalar::Util 'refaddr';
-my %_data;
-
-use overload (
- '@{}' => \&array,
- '%{}' => \&hash,
- '${}' => \&scalar,
- 'bool' => \&scalar,
- '&{}' => \&scalar,
- '""' => \&scalar,
- '0+' => \&scalar,
- fallback => 1,
-);
-
-sub new {
- my $obj = bless \$_[1], $_[0];
- $_data{ refaddr $obj } = $_[1];
- return $obj;
-}
-
-sub DESTROY { delete $_data{refaddr $_[0]} }
-sub data { $_data{refaddr $_[0]} }
-sub hash { $_data{refaddr $_[0]}->{hash} }
-sub array { $_data{refaddr $_[0]}->{array} }
-sub scalar { $_data{refaddr $_[0]}->{scalar} }
-
-1;
-
-__END__
-
-=head1 NAME
-
-Pugs::Runtime::Capture - Capture object
-
-=head1 METHODS
-
-* array
-
-* hash
-
-* str
-
-* data
-
-- return the internal representation
-
-* bool
-
-* from
-
-* to
-
-=head1 OVERLOADS
-
-* $match->()
-
-- return the capture
-
-* $match->[$n]
-
-- return the positional matches
-
-* $match->{$n}
-
-- return the named matches
-
-* $match ? 1 : 0
-
-- return whether there was a match
-
-=head1 SEE ALSO
-
-Pugs::Runtime::Match
-
-=head1 AUTHORS
-
-The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.
-
-=head1 COPYRIGHT
-
-Copyright 2006 by Flavio Soibelmann Glock and others.
-
-This program is free software; you can redistribute it and/or modify it
-under the same terms as Perl itself.
-
-See L<http://www.perl.com/perl/misc/Artistic.html>
-
-=cut
-
+package Pugs::Runtime::Capture;
+# Documentation in the __END__
+
+use 5.006;
+use strict;
+use warnings;
+use Scalar::Util 'refaddr';
+my %_data;
+
+use overload (
+ '@{}' => \&array,
+ '%{}' => \&hash,
+ '${}' => \&scalar,
+ 'bool' => \&scalar,
+ '&{}' => \&scalar,
+ '""' => \&scalar,
+ '0+' => \&scalar,
+ fallback => 1,
+);
+
+sub new {
+ my $obj = bless \$_[1], $_[0];
+ $_data{ refaddr $obj } = $_[1];
+ return $obj;
+}
+
+sub DESTROY { delete $_data{refaddr $_[0]} }
+sub data { $_data{refaddr $_[0]} }
+sub hash { $_data{refaddr $_[0]}->{hash} }
+sub array { $_data{refaddr $_[0]}->{array} }
+sub scalar { $_data{refaddr $_[0]}->{scalar} }
+
+1;
+
+__END__
+
+=head1 NAME
+
+Pugs::Runtime::Capture - Capture object
+
+=head1 METHODS
+
+* array
+
+* hash
+
+* str
+
+* data
+
+- return the internal representation
+
+* bool
+
+* from
+
+* to
+
+=head1 OVERLOADS
+
+* $match->()
+
+- return the capture
+
+* $match->[$n]
+
+- return the positional matches
+
+* $match->{$n}
+
+- return the named matches
+
+* $match ? 1 : 0
+
+- return whether there was a match
+
+=head1 SEE ALSO
+
+Pugs::Runtime::Match
+
+=head1 AUTHORS
+
+The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.
+
+=head1 COPYRIGHT
+
+Copyright 2006 by Flavio Soibelmann Glock and others.
+
+This program is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+See L<http://www.perl.com/perl/misc/Artistic.html>
+
+=cut
+
@@ -0,0 +1,12 @@
+#! /opt/local/bin/perl
+
+print "cleaning the precompilation cache for v6 and PCR\n";
+
+eval {
+ require Cache::FileCache;
+ my $cache = new Cache::FileCache( { 'namespace' => 'v6-rules' } );
+ $cache->Clear;
+};
+
+print "$@ \n" if $@;
+

0 comments on commit b320372

Please sign in to comment.