# New Ticket Created by Matt Kraai
# Please include the string: [perl #51806]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=51806 >
Howdy,
t/examples/pasm.t fails because examples/pasm/fact.pasm now outputs 30
factorials, whereas the test case only expects it to output 6.
t/perl/Parrot_IO.t fails because it skips the Subversion-specific
tests only when run in a Subversion working copy. The attached patch
fixes both problems.
--
Matt
diff --git a/t/examples/pasm.t b/t/examples/pasm.t
index 60ded1e..3e74d0f 100644
--- a/t/examples/pasm.t
+++ b/t/examples/pasm.t
@@ -42,6 +42,30 @@ fact of 3 is: 6
fact of 4 is: 24
fact of 5 is: 120
fact of 6 is: 720
+fact of 7 is: 5040
+fact of 8 is: 40320
+fact of 9 is: 362880
+fact of 10 is: 3628800
+fact of 11 is: 39916800
+fact of 12 is: 479001600
+fact of 13 is: 6227020800
+fact of 14 is: 87178291200
+fact of 15 is: 1307674368000
+fact of 16 is: 20922789888000
+fact of 17 is: 355687428096000
+fact of 18 is: 6402373705728000
+fact of 19 is: 121645100408832000
+fact of 20 is: 2432902008176640000
+fact of 21 is: 51090942171709440000
+fact of 22 is: 1124000727777607680000
+fact of 23 is: 25852016738884976640000
+fact of 24 is: 620448401733239439360000
+fact of 25 is: 15511210043330985984000000
+fact of 26 is: 403291461126605635584000000
+fact of 27 is: 10888869450418352160768000000
+fact of 28 is: 304888344611713860501504000000
+fact of 29 is: 8841761993739701954543616000000
+fact of 30 is: 265252859812191058636308480000000
END_EXPECTED
'hello.pasm' => << 'END_EXPECTED',
diff --git a/t/perl/Parrot_IO.t b/t/perl/Parrot_IO.t
index 70f4ec6..5ae001a 100644
--- a/t/perl/Parrot_IO.t
+++ b/t/perl/Parrot_IO.t
@@ -165,7 +165,7 @@ SKIP: {
my $nul = File::Spec->devnull;
skip( 'git-svn does not expand keywords', 2 )
- if Parrot::Distribution->new->is_svn_co();
+ if Parrot::Distribution->new->is_git_co();
$f = Parrot::IO::File->new( catfile( 'lib', 'Parrot', 'IO', 'File.pm' ) );
ok( $f->has_svn_id(), 'has_svn_id' );
